R/pco.R

"pco" <-
function(x,ncomp,dist.method){
  d <- Dist(t(x),method=dist.method)
  pco <- cmdscale(d, k=ncomp, eig=TRUE)
  newx <- pco$points 
  return(newx)
}

Try the pcot2 package in your browser

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

pcot2 documentation built on Nov. 8, 2020, 5:08 p.m.