data <- c(10,4,5,7,3,4,1)
data2 <- c(1,8,3,4,4,5,7)
# Simple calculation
pearson(data, data2)
# Learning mode
pearson(data, data2, learn = TRUE)
# Interactive mode
if(interactive()){
pearson(interactive = TRUE)
}
Run the code above in your browser using DataLab