powered by
n
filein
fileout
readWriteFirst(filein, fileout, n)
path <- system.file("extdata", "affy_raw_data", package="GWASdata") file <- paste(path, list.files(path)[1], sep="/") outf <- tempfile() readWriteFirst(file, outf, 20) file.remove(outf)
Run the code above in your browser using DataLab