Nothing
#' @export
#'
summary.ppm<-function(object, ...){
se <- object$se
zval <- coef(object)/se
TAB <- cbind(Estimate = coef(object), StdErr = se, z.value = zval,
p.value = 2 * pnorm(-abs(zval), mean = 0, sd = 1))
res <- list(call = object$call, coefficients = TAB, loglik = object$loglik,boundaryissue=object$boundaryissue,strictconcavity=object$strictconcavity)
class(res) <- "summary.ppm"
res
}
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.