# NOT RUN {
dataset <- matrix( runif(100 * 50, 1, 100), ncol = 50 )
write.csv(dataset, "dataset.csv", row.names = FALSE)
x <- pchc::big_read("dataset.csv", header = TRUE)
a <- pchc::big_cor(x) ## No NA values
write.csv(dataset, "dataset.csv")
x <- pchc::big_read("dataset.csv", header = TRUE)
a <- pchc::big_cor(x) ## it contains NA values
# }
Run the code above in your browser using DataLab