################################################### ### 块1号:lkcl ################################################### getClass(“snpLocs”)的数据(hsSnpLocs) hsSnpLocs ################################################### ### 块2号:lkc ################################################### snpLocs.Hs (chrnum (20), rsid(“rs6060535 ")) ################################################### ### 块3号:doco eval = FALSE ################################################### ## humanSNPlocs =列表()# #库(SNPlocs.Hsapiens.dbSNP.20071016) # #如果(file.exists(“humanSNPlocs.rda”))# #负载(“humanSNPlocs.rda”)其他{# #(我用c (as.character(一22),“X”,“Y”)){# # curc = getSNPlocs(粘贴(“空空”,我9月= " "))# # rsid.int = as.integer (curc [1]) # # loc.int = as.integer (curc [3]) # # humanSNPlocs[[我]]= rbind (rsid = rsid.int,loc = loc.int) # # #猫(我 ) ## } ## } ################################################### ### 块数量4:doco2 eval = FALSE ################################################### ## 要求(org.Hs.eg.db) # # chrl = org.Hs.egCHRLENGTHS # #偏移= c (0, cumsum (as.double (chrl[1:22说 ]))) ## ################################################### ### 块5号:垃圾eval = FALSE ################################################### ## # setClass(“snpLocs”,表示(locEnv =“环境”,# # #抵消=“数值”,生物=“字符”,版本= "字符 ")) ## # ## # setMethod(“秀”、“snpLocs”功能(对象){# # #猫(object@organism“snpLocs实例,有机体”,“\ n”)# # #猫(“基于:\ n”)# # #打印(object@versions ) ## #}) ################################################### ### 块6号:docont eval = FALSE ################################################### ## el = new.env () # # getv = function (x) installed.packages () (x,“版本”)# #(我的名字(humanSNPlocs)) # #分配(我humanSNPlocs[[我]],el) # # hsSnpLocs = new(“snpLocs locEnv = el,抵消=走开,# #生物=“商品”,版本= c (# # org.Hs.eg.db = getv(“org.Hs.eg.db”),# # SNPlocs.Hsapiens.dbSNP。20071016 = getv(" snplocs . hsapens . dbsnp .20071016"))))