# NOT RUN {
#generate files
nobs <- 100
y <- matrix(rnorm(nobs * 2), ncol = 2, dimnames = list(NULL,
paste0("column", 1:2)))
write.table(y, file = "y.txt", sep = "\t")
write_databel(y, "y")
x <- matrix(rnorm(nobs * 3), ncol = 3, dimnames = list(NULL,
paste0("column", 1:3)))
write.table(x, file = "x.txt", sep = "\t")
z <- matrix(rnorm(nobs * 4), ncol = 4, dimnames = list(NULL,
paste0("column", 1:4)))
write.table(z, file = "z.txt", sep = "\t")
#run pulverize_all with generated files
pulverize_all(as.list("y.txt", "y.fvi"), as.list("x.txt"), as.list("z.txt"),
suppress_return = FALSE)
#remove generated files
file.remove("x.txt", "y.txt", "z.txt", "y.fvi", "y.fvd")
# }
Run the code above in your browser using DataLab