# NOT RUN {
# Reading 'FAMTdata'
data(expression)
data(covariates)
data(annotations)
chicken = as.FAMTdata(expression,covariates,annotations,idcovar=2)
# FAMT complete multiple testing procedure
model = modelFAMT(chicken,x=c(3,6),test=6,nbf=3)
# Estimation of the Proportion of True Null Hypotheses
# "density" method
# }
# NOT RUN {
pi0FAMT(model,method="density",diagnostic.plot=TRUE)
# }
# NOT RUN {
# "smoother" method
pi0FAMT(model,method="smoother",diagnostic.plot=TRUE)
# }
Run the code above in your browser using DataLab