### R代码从vignette源的oldHeatplus。Rnw ' ################################################### ### 代码块1号:oldHeatplus。Rnw: 44-45 ################################################### 选项(宽度= 65 ) ################################################### ### 代码块2号:oldHeatplus。Rnw: 54 - 62 ################################################### 毫米=矩阵(rnorm (1000 m = 1), 100年,10)毫米= cbind (mm,矩阵(rnorm(2000), 100年,20))毫米= cbind (mm,矩阵(rnorm (1500 m = 1), 100年,15))平方毫米=矩阵(rnorm(450), 30日15)平方毫米= cbind(平方毫米,矩阵(rnorm (900 m = 1.5), 30、30))毫米= rbind (mm,平方毫米)colnames (mm) =粘贴(“样本”,1:45)rownames(毫米)=粘贴(1:130“基因” ) ################################################### ### 代码块3号:oldHeatplus。Rnw: 67 - 72 ################################################### addvar = data.frame (Var1 =代表(c (0,1,0), c(10年,20年,15)),Var2 =代表(c (1,0,0), c(10年,20年,15)),Var3 =代表(c (1,0), c(15、30)),Var4 =代表(seq(0, 1,长度= 4),c(10、5、15、15))+ rnorm (45, sd = 0.5)) addvar [3 3] = addvar[17日2]= addvar[34岁,1]= NA ################################################### ### 代码块数量4:oldHeatplus。Rnw: 81 - 83 ################################################### 图书馆(Heatplus) heatmap_2(毫米 ) ################################################### ### 代码块5号:oldHeatplus。Rnw: 91 - 92 ################################################### heatmap_2 (mm, do.dendro = c(假,真),传说= 1,legfrac = 12 ) ################################################### ### 代码块6号:oldHeatplus。Rnw: 100 - 101 ################################################### heatmap_plus(毫米 ) ################################################### ### 代码块7号:oldHeatplus。Rnw: 109 - 111 ################################################### colnames (mm) = NULL heatmap_plus (mm, addvar = addvar x = 4 ) ################################################### ### 代码块8号:oldHeatplus。Rnw: 119 - 120 ################################################### heatmap_plus (mm, addvar = addvar x = 4 h = 20,坳= RGBColVec (64))