We use cookies to ensure you have the best browsing experience on our website. Please read our cookie policy for more information about how we use cookies.
  1. Prepare
  2. Tutorials
  3. 10 Days of Statistics
  4. Day 7: Pearson Correlation Coefficient I
  5. Discussions

Day 7: Pearson Correlation Coefficient I

  • sylvain_michel
     + 0 comments

    in R could be 

    stdin <- file('stdin')
open(stdin)
n <- as.integer(trimws(readLines(stdin, n = 1, warn = FALSE), which = "both"))
dataX <- as.numeric(strsplit(trimws(readLines(stdin, n = 1, warn = FALSE), which = "right"), " ")[[1]])
dataY <- as.numeric(strsplit(trimws(readLines(stdin, n = 1, warn = FALSE), which = "right"), " ")[[1]])
correlation = cor(dataX, dataY, method = 'pearson')
cat(round(correlation, 3))