sample_technicalVariance: A generic function for computing the technical variance
In clippda: A package for the clinical proteomic profiling data analysis

Description Usage Arguments Value Author(s) Examples

This generic function computes the within-sample (technical) variance. It fits a simple regression model for repeated measures using the mixedModel2 function in the statmod package. The technical variance is the block component of the varcomp output.

1	sample_technicalVariance(Data, ...)

`Data`	An object of `aclinicalProteomicsData` class.
`...`	Some methods for this generic function may take additional, optional arguments. At present none do.

It returns a vector of the within-sample variances, one for each peak.

Stephen Nyangoma

#arrange the data in a form that can be averaged by limma function dupcor
# use the function called limmaData
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

sample_technicalVariance(OBJECT)