# NOT RUN {
require(lattice)
fm1 <- lmer(Reaction ~ Days + (Days|Subject), sleepstudy)
fm2 <- lmer(Reaction ~ Days + (1|Subject) + (0+Days|Subject), sleepstudy)
fm3 <- lmer(diameter ~ (1|plate) + (1|sample), Penicillin)
ranef(fm1)
str(rr1 <- ranef(fm1, condVar = TRUE))
dotplot(rr1) ## default
## specify free scales in order to make Day effects more visible
dotplot(rr1,scales = list(x = list(relation = 'free')))[["Subject"]]
if(FALSE) { ##-- condVar=TRUE is not yet implemented for multiple terms -- FIXME
str(ranef(fm2, condVar = TRUE))
}
op <- options(digits = 4)
ranef(fm3, drop = TRUE)
options(op)
## extracting random effects and conditional standard deviations
dd <- as.data.frame(rr1)
if (require(ggplot2)) {
ggplot(dd,aes(y=grp,x=condval))+
geom_point()+facet_wrap(~term,scales="free_x")+
geom_errorbarh(aes(xmin=condval-2*condsd,xmax=condval+2*condsd),
height=0)
}
# }
Run the code above in your browser using DataLab