33
33
# load and work with srdta
35
mc <- check.marker(data=srdta@gtdata[,1:100],redundant="all",maf=0.01,minconcordance=0.9,fdr=.1,ibs.mrk=0)
36
srdta <- srdta[seq(from=1,to=nids(srdta),by=2),seq(from=1,to=nsnps(srdta),by=2)]
37
mc <- check.marker(data=gtdata(srdta)[,1:100],redundant="all",maf=0.01,minconcordance=0.9,fdr=.1,ibs.mrk=0)