### R代码从vignette源的ChromHeatMap。Rnw ' ################################################### ### 代码块1号:ChromHeatMap。Rnw: 57 - 64 ################################################### 图书馆(所有的)数据(所有的)selSamples < - $摩尔。杂志% % c (ALL1 / AF4, ea2 / PBX1)呼叫< -所有[,selSamples]图书馆(ChromHeatMap) chrdata < -makeChrStrandData (exprs(呼叫),自由= ' hgu95av2 ') ################################################### ### 代码块2号:ChromHeatMap。Rnw: 87 - 89 ################################################### groupcol < - ifelse(呼叫$摩尔。= =‘ALL1 / AF4’杂志,“红”、“绿色”)plotChrMap(19岁的chrdata链=‘都’,RowSideColors = groupcol ) ################################################### ### 代码块3号:ChromHeatMap。Rnw: 98 - 99 ################################################### plotmap < -plotChrMap (chrdata 1 cytoband = q23处,间隔= 50000,srtCyto = 0, cexCyto = 1.2 ) ################################################### ### 代码块数量4:ChromHeatMap。Rnw: 135 - 137 (eval = FALSE ) ################################################### ## 基因探针< - grabChrMapProbes (plotmap) # # < - unlist (mget(探针,envir = hgu95av2SYMBOL ifnotfound = NA )) ################################################### ### 代码块5号:ChromHeatMap。Rnw: 156 - 157 ################################################### sessionInfo ()