library(GWASdata)
ncfile <- system.file("extdata", "illumina_geno.nc", package="GWASdata")
data(illuminaSnpADF, illuminaScanADF)
genoData <- GenotypeData(NcdfGenotypeReader(ncfile),
scanAnnot=illuminaScanADF, snpAnnot=illuminaSnpADF)
pedfile <- tempfile()
plinkWrite(genoData, pedfile)
logfile <- tempfile()
plinkCheck(genoData, pedfile, logfile)
# exclude samples
plinkWrite(genoData, pedfile, scan.exclude=c(281, 283),
blockSize=10)
plinkCheck(genoData, pedfile, logfile)
readLines(logfile)
#samples not found in Ped:
#281
#283
close(genoData)
unlink(c(logfile, paste(pedfile, "*", sep=".")))
Run the code above in your browser using DataLab