# NOT RUN {
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))
write.table(dat, 'test.csv', sep=",", dec=".")
guessFileEncoding('test.csv')
#cleanup
unlink('test.csv')
# }
Run the code above in your browser using DataLab