R/CIcorr.val.R

In TiagoOlivoto/cursoR: Curso R do grupo Experimentacao da UFSM-SM

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")
}