##Load data: fcgr3bMXL in CNVrd2 package############
data(fcgr3bMXL)
##Name a vcf file (vcfFile)
vcfFile <- system.file(package="CNVrd2", "extdata",
"chr1.161600000.161611000.vcf.gz")
##Make a data fame named sampleCNV including samples, CNs, population names
sampleCNV <- data.frame(copynumberGroups$allGroups[, c(1,2) ],rep("MXL", 58))
rownames(sampleCNV) <- substr(sampleCNV[, 1], 1, 7)
sampleCNV[, 1] <- rownames(sampleCNV)
##The first column must be the sample names
tagSNPandINDELofMXL <- calculateLDSNPandCNV(sampleCNV = sampleCNV,
vcfFile = vcfFile, cnvColumn = 2,
population = "MXL", popColumn = 3,
nChunkForVcf = 5, chr = "1",
st = 161600000, en = 161611000,
codeSNP= "Three", codeCNV = "ThreeGroup")
tagSNPandINDELofMXL[1:3,]
Run the code above in your browser using DataLab