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