Nothing
`comp.psm` <-
function(cls) {
n <- ncol(cls)
M <- nrow(cls)
if(sum(cls %in% (1:n)) < n * M){
stop("All elements of cls must be integers in 1:nobs")
}
cls.C <- as.vector(t(cls))
psm <- rep(0,n^2)
psm <- matrix(.C("comp_psm", as.integer(psm), as.integer(cls.C), as.integer(n), as.integer(M))[[1]]/M,ncol=n)
psm
}
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.