troyjcross / concordancer Goto Github PK

Can you explain why the CCC calculated by condordancer is different to that calculated by two other packages?

library("concordancer")
library("DescTools")
library("epiR")

# Create x and y vectors
x <- rnorm(100, sd = 1)
y <- rnorm(length(x), sd = 0.2)

# Calculate CCC using 3 different packages
c <- concordancer::ccc(x, y)
d <- DescTools::CCC(x, y)
e <- epiR::epi.ccc(x, y)

# Look at their CCC
c
[1] -0.01593504
d$rho.c["est"]
          est
1 -0.01593447
e$rho.c["est"]
          est
1 -0.01593447

First release:

• usethis::use_cran_comments()
• Update (aspirational) install instructions in README
• Proofread Title: and Description:
• Check that all exported functions have @return and @examples
• Check that Authors@R: includes a copyright holder (role 'cph')
• Check licensing of included files
• Review https://github.com/DavisVaughan/extrachecks

Prepare for release:

• git pull
• usethis::use_github_links()
• urlchecker::url_check()
• devtools::check(remote = TRUE, manual = TRUE)
• devtools::check_win_devel()
• git push
• Draft blog post

Submit to CRAN:

• usethis::use_version('major')
• devtools::submit_cran()
• Approve email

Wait for CRAN...

• Accepted 🎉
• Add preemptive link to blog post in pkgdown news menu
• usethis::use_github_release()
• usethis::use_dev_version(push = TRUE)
• Finish blog post
• Tweet