library(GWASdata)
ncfile <- system.file("extdata", "illumina_geno.nc", package="GWASdata")
data(illuminaSnpADF)
gdsfile <- tempfile()
convertNcdfGds(ncfile, gdsfile, snp.annot=illuminaSnpADF)
checkNcdfGds(ncfile, gdsfile)
ncfile2 <- tempfile()
convertGdsNcdf(gdsfile, ncfile2)
file.remove(gdsfile, ncfile2)
Run the code above in your browser using DataLab