x <- as.factor(c(1:5,1:5,1:5));x
ism(x)
# data(DT_example, package="enhancer")
# ans1 <- mmes(Yield~Env,
# random= ~ vsm( ism( Name ) ),
# data=DT_example)
# summary(ans1)$varcomp
Run the code above in your browser using DataLab