R/pci.R

Defines functions pci

Documented in pci

pci <- function( x1, x2 ) {
  ###################################################
  #do some argument checking
  if( length( x1) != length( x2 ) ) { stop("x1 and x2 lengths differ") }
  ret <- .Call("pci", as.factor(x2), as.factor(x1), PACKAGE="profdpm")
  return( ret )
}

Try the profdpm package in your browser

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

profdpm documentation built on May 2, 2019, 4:56 p.m.