intraclasscorr <- 0.60 #cut-off for intraclass correlation
signifcut <- 0.05 #significance cut-off
data(liverdata)
data(liver_pheno)
OBJECT=new("aclinicalProteomicsData")
OBJECT@rawSELDIdata=as.matrix(liverdata)
OBJECT@covariates=c("tumor" , "sex")
OBJECT@phenotypicData=as.matrix(liver_pheno)
OBJECT@variableClass=c('numeric','factor','factor')
OBJECT@no.peaks=53
sampleSizeParameters(OBJECT,intraclasscorr,signifcut)
Run the code above in your browser using DataLab