## Not run:
# # create IntensityData and GenotypeData objects from netCDF
# library(GWASdata)
# data(affySnpADF)
# data(affyScanADF)
# nsamp <- nrow(affyScanADF)
#
# xyfile <- system.file("extdata", "affy_qxy.nc", package="GWASdata")
# xyNC <- NcdfIntensityReader(xyfile)
# xyData <- IntensityData(xyNC, snpAnnot=affySnpADF, scanAnnot=affyScanADF)
#
# genofile <- system.file("extdata", "affy_geno.nc", package="GWASdata")
# genoNC <- NcdfGenotypeReader(genofile)
# genoData <- GenotypeData(genoNC, snpAnnot=affySnpADF, scanAnnot=affyScanADF)
#
# # calculate BAF and LRR
# blfile <- tempfile()
# BAFfromGenotypes(xyData, genoData, blfile, file.type="ncdf", min.n.genotypes=2,
# call.method="by.plate", plate.name="plate")
#
# blNC <- NcdfIntensityReader(blfile)
# baf <- getBAlleleFreq(blNC)
# lrr <- getLogRRatio(blNC)
#
# close(xyData)
# close(genoData)
# close(blNC)
# file.remove(blfile)
# ## End(Not run)
Run the code above in your browser using DataLab