dat <- rbind(matrix(rnorm(100, mean = 0, sd = 0.3), ncol = 2),
matrix(rnorm(100, mean = 2, sd = 0.3), ncol = 2),
matrix(rnorm(100, mean = 4, sd = 0.3), ncol = 2))
csv.file <- tempfile()
write.table(dat, csv.file, sep=",", dec=".")
guessFileEncoding(csv.file)
Run the code above in your browser using DataLab