Description Usage Arguments Value Author(s) See Also Examples
View source: R/JacksonParameters.R
Given PCA model, this function calculates the parameters to perform the Jackson statistics of the Q-residuals.
1 | JacksonParameters(nPCs, TFBS)
|
nPCs |
number of principal components of the model |
TFBS |
numerical TFBS matrix |
output:list including the parameters h0 x1, x2 and x3 needed to calculate the Q-residuals statistics
Erola Pairo <epairo@ibec.pcb.ub.es>
kfold.PCA, Predict.PCA, QtoJackson
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | data(TranscriptionFactor)
data(iicc)
nPCs<-1
TFBS<-iicc$Transcriptionfactor
Prob<-iicc$background
missing<-iicc$missing
NumericalMatrix<-numericalDNA(Prob)
suma<-apply(TFBS,2,function(y){sum(y=="-")})
threshold<-floor(nrow(TFBS)*missing/100)
TFBS<-TFBS[, suma<=threshold]
ncolTFBS<-ncol(TFBS)
TFBSnum<-apply(TFBS,1,function(x){as.vector(t(NumericalMatrix[x,]))})
TFBSnum<-t(TFBSnum)
model<-pca(TFBSnum, nPcs=nPCs, method="svd", center=TRUE)
JacksonPars<-JacksonParameters(nPCs,TFBSnum)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.