Nothing
correlation_lrt <-
function(F, r0, starVal=NA, nlm=FALSE, ...) {
# correlation_lrt returns the p-value for the likelihood ratio
# test of the null hypothesis that the correlation coefficient is
# r0, relative to an unconstrained alternative.
#
# Arguments
# F: A list formatted as returned by prepare_data
# r0: The null value of the correlation parameter
#
# Returns
# The p-value for the likelihood ratio test
m1 <- estimate(F, starVal=starVal, nlm=nlm, ...)
m0 <- estimate(F, r0, starVal=starVal, nlm=nlm, ...)
T <- 2*(m1$loglike - m0$loglike)
pv <- 1-pchisq(T, 1)
return(pv)
}
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.