set.seed(42)
data <- data.frame(u=runif(500)) # generate some correlated data
data$x <- rnorm(500,mean=data$u)
data$y <- rnorm(500,mean=data$u)
fun <- FormatCorrelation()
fun(data$x,data$y)
fun <- FormatCorrelation(method="spearman",p.format="%.4g")
fun(data$x,data$y)
Run the code above in your browser using DataLab