search for: roaddensity

...elieve I need to account for this by nesting year (as a factor) within body size (also a factor). My first question is whether or not the code below is correct for the models outlined above? data= (mixed) fBodySize <- factor(mixed$BodySize) fYear<-factor(mixed$Year) groupedData(ABUNDANCE~RoadDensity | fBodySize/fYear, data = mixed) #random intercept m1<-lmer(ABUNDANCE~RoadDensity +(1|fBodySize/fYear), family=poisson(log), data = mixed) # random slope m2<-lmer(ABUNDANCE~RoadDensity +(-1 + RoadDensity |fBodySize/fYear), family=poisson(log), data = mixed) #random slope and intercept...