R/pca.R

"pca" <- function(...) {
  dots <- list(...)
  if(inherits(dots[[1]], "matrix")) {
    class(dots[[1]]) <- c("matrix", "xyz")
    UseMethod("pca", dots[[1]])
  }
  UseMethod("pca")
}

Try the bio3d package in your browser

Any scripts or data that you put into this service are public.

bio3d documentation built on Oct. 27, 2022, 1:06 a.m.