# NOT RUN {
data(yang.barley)
dat <- yang.barley
require(reshape2)
dat <- acast(dat, gen~site, value.var='yield')
# }
# NOT RUN {
## For bootstrapping of a biplot, see the 'bbplot' and
## distfree.cr packages here:
## http://statgen.ualberta.ca/index.html?open=software.html
require(SDMTools)
require(distfree.cr)
require(bbplot)
d1 <- bbplot.boot(dat, nsample=2000) # bootstrap the data
plot(d1) # plot distributions of principal components
b1 <- bbplot(d1) # create data structures for the biplot
plot(b1) # create the confidence regions on the biplot
# this may not be working...
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab