## Fitting the optimal ANCOVA model to the data gives:
data(hidden_fac.dat)
fit <- svpls(10,10,hidden_fac.dat,pmax = 5)
## Specifying the set of genes and subjects
genes <- c(1,20,55,70,100,150,250,450)
subjects <- c(1,4,7,10,11,15,17,20)
hfp(fit,genes,subjects,hidden_fac.dat)Run the code above in your browser using DataLab