#circular-linear correlation
cl_cor <- function(theta,lin){
rad <- theta/(180/pi)
rxc <- cor(cos(rad), lin)
rxs <- cor(sin(rad), lin)
rcs <- cor(cos(rad), sin(rad))
R.sq <- (rxc^2+rxs^2-2*rxc*rxs*rcs)/(1-rcs^2)
sqrt(R.sq)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.