########################################################################
## SAMPLE SIZE
#######################################################################
#The function sampleSize calculates the biological variance, differences.
#These are the consensus values of peaks with median biological variation
# It also gives sample sizes for beta=c(0.90,0.80,0.70) and alpha = c(0.001, 0.01,0.05)
####################################################################
####################################################################
####################################################################
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
sampleSize(OBJECT,intraclasscorr,signifcut)
####################################################################
####################################################################
####################################################################
Run the code above in your browser using DataLab