# #——lkc ---------------------------------------------------------------------- 库(GGBase) getClass(“smlSet”)showMethods(类=“smlSet”=“包:GGBase ") ## ---- lkd ---------------------------------------------------------------------- 如果(“GGtools”% % installed.packages()[1]){图书馆(GGtools) s20 =得到s20(“GGtools”、“20”) } ## ---- 兰桂坊,无花果= TRUE ------------------------------------------------------------- 如果存在(s20)) {plot_EvG (genesym(“CPNE1”),rsid(“rs6060535”),S20)} else plot(1) # PDF必须存在....# #——lkgt,保持。源= TRUE ---------------------------------------------------- 如果存在(s20)){#原始字节为(smList (s20)[[1]],“矩阵”)(1:5,1:5)#通用电话(smList (s20)[[1]],“性格”)(1:5,1:5)#风险等位基因(按字母顺序后核苷酸)计数(smList (s20)[[1]],“数字”)(1:5,1:5)}