## Predict the phenotype values of ten lines using the rest of the population in the wheat data
data("wheat")
clmarker<- cleanclust(wheat$marker, nafrac=0.2, mafb=0.1, corbnd=0.5, method="complete")
intermat <- epigen(wheat$y, clmarker$newmarker, wheat$A, numkeep=100, selectvar=30,
corbnd=0.5, mafb=0.04)
which10<- sample(1:282, 10)
pred10<- aml.pred.outside(intermat$effects, wheat$y, wheat$A, which10, 80, 40)
Run the code above in your browser using DataLab