data<-read.table("/Users/andrewharbicht/School_Stuff/Project/Statistics/Individuals.txt",header=T, na.strings="na")
attach(data)
names(data)
library(MASS)
library(glmmADMB)

glmm4<-glmmadmb(formula = Admix ~ SDI + (1|Lake), data = data, family = "beta")

glmm8<-glmmadmb(formula = Admix ~ pH + (1|Lake), data = data, family = "beta")

glmm15<-glmmadmb(formula = Admix ~ StMonth + (1|Lake), data = data, family = "beta", verbose=T)