library(lme4)

fruitdat1 = read.csv("C:\\Users\\ecrone\\Desktop\\NCEAS\\projects\\wildflower\\DATA\\wildflower_pods_complete.csv")
fruitdat1$State = factor(fruitdat1$State, levels = c("F", "L", "M", "S", "D"))
Rfit = lmer(toF ~ State + Pods + (1|PlantID) + (-1 + Pods|PlantID) + (1|Year), family = binomial, data = fruitdat1)

save.image("C:\\Users\\ecrone\\Desktop\\NCEAS\\projects\\wildflower\\R\\wildflower.fit.RData")