inverselogit <- function(beta0,ZZ){ D = as.matrix(dist(ZZ),diag=TRUE,upper=TRUE) diag(D) = 0 denom = 1 + exp(D - beta0) prob = 1/denom 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.