# NOT RUN {
## Reading 'FAMTdata'
data(expression)
data(covariates)
data(annotations)
chicken = as.FAMTdata(expression,covariates,annotations,idcovar=2)
# Estimation of the number of factors
# }
# NOT RUN {
nbfactors(chicken,x=c(3,6),test=6)
# }
# NOT RUN {
# Estimation of the number of factors with a graph of variance inflation
# criterion
# }
# NOT RUN {
nbfactors(chicken,x=c(3,6),test=6, diagnostic.plot=TRUE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab