CIcorr.val = function(r, n) {
CI=(0.45304^r)*2.25152*(n^-0.50089)
UP=r+CI
LP=r-CI
cat("-------------------------------------------------","\n")
cat("Nonparametric 95% half-width confidence interval", "\n")
cat("-------------------------------------------------","\n")
cat(paste0("Level of significance: 5%","\n",
"Correlation coefficient: ", r,
"\nSample size: ", n,
"\nConfidence interval: ", round(CI,4),
"\nTrue parameter range from: ", round(LP,4)," to ",
round(UP,4)),"\n")
cat("-------------------------------------------------","\n")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.