Nothing
#' Confidence interval for alpha (PN)
#'
#' @description Confidence interval for alpha
#'
#' @usage pn.IC(x, model, p)
#'
#'@param x the response vector
#'@param p confidence level
#'
#' @export
pn.IC <- function(x, p){
dados <- as.matrix(x)
n <- length(dados)
list(L_Inf = -0.5*qchisq((1-p)/2,2*n)/sum(log(pnorm(dados))),
L_Sup = -0.5*qchisq(1-(1-p)/2,2*n)/sum(log(pnorm(dados))))
}
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.