R/pco.R

Defines functions pco

Documented in pco

pco <- function(dis, k=2)
{
    tmp <-cmdscale(dis,k=k,eig=TRUE)
    class(tmp) <- c("dsvord","pco")
    tmp$type <- "PCO"
    return(tmp)
}

Try the labdsv package in your browser

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

labdsv documentation built on April 10, 2023, 5:08 p.m.