fitModel(k1, k2, Y, n.surr)n.surr>0).n.surr>0).n.surr>0).n.surr>0).svpls, hfp
data(hidden_fac.dat)
## Fitting an ANCOVA model with 5 surrogate variables
fit <- fitModel(10,10,hidden_fac.dat,n.surr = 5)
print(fit)
Run the code above in your browser using DataLab