getProb <- function(distMat,Beta,nn) { Prob = lapply(1:length(distMat), function(xx)inverselogit(Beta,as.vector(distMat[[xx]]))) return(Prob) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.