dlogr.predict <-
function (x,BetaHat) {
# function to get predicted values for a set of 1 or more x's
if (!is.matrix(x)) {
dim(x) <- c(1,length(x))
}
return(1/(1+exp(-x %*% BetaHat)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.