Example data set with 4 levels, one diploid and one haploid locus
data(exhier)
outermost level
level 2
Level 3
Level 4
Diploid locus
Haploid locus
# NOT RUN {
data(exhier)
varcomp(exhier[,1:5])
varcomp(exhier[,c(1:4,6)],diploid=FALSE)
# }
Run the code above in your browser using DataLab