R/PCanalysis.R

In MEET: MEET: Motif Elements Estimation Toolkit

Defines functions PCanalysis

Documented in PCanalysis

PCanalysis <-function(TFBS, nPCs, Sequences){

  model<-pca(TFBS, nPcs=nPCs, method="svd", center=TRUE)
  matrix.residuals<-residuals.pcaRes(model,Sequences, nPcs=model@nPcs)
  residus<-apply(matrix.residuals,1,function(vector){vector%*%vector})
}

Try the MEET package in your browser