R/predict.r

In wrathematics/pcapack: Principal Components Analysis Tools and Utilities

#predict.pca <- function (object, newdata, ...) 
#{
  #if (missing(newdata))
  #{
    #if (!is.null(object$x))
      #return(object($x))
    #else
      #stop("no scores are available; refit with 'retx=TRUE'")
  #}
  
  #assert.type(newdata, "numeric")
  
  #if (ncol(newdata) != nrow(object$rotation))
    #stop("'newdata' does not have the correct number of columns")
  
  
  #.Call(R_pca_predict, )
#}