Nothing
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 )
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.