# # # R代码从装饰图案的rqubic来源。Rnw“# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块1号:helpParser (eval = FALSE) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #库(rqubic) # #库(Biobase) # #库(biclust) # #帮助(parseQubicRules) # #例子(parseQubicRules) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块2号:buildExpres # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #库(rqubic)库(Biobase)库(biclust)数据(BicatYeast)演示。exprs < -新(“ExpressionSet exprs = BicatYeast) # # demo.cond处理状态信息。< - strsplit分裂(子(“\ \。移动电话”、“”,colnames (BicatYeast)),“_”)演示。组< -酸式焦磷酸钠(demo.cond。分裂,函数(x)粘贴(x[长度(x)],崩溃=“_”))演示。时间< -酸式焦磷酸钠(demo.cond。分裂,x (x)函数[长度(x)]) pData (demo.exprs) < - data.frame(组= demo.group,时间= demo.time) sampleNames (demo.exprs) < -粘贴(演示。集团demo.time) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块3号:分位数# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #演示。盘< - quantileDiscretize (demo.exprs) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块数量4:种子# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #演示。种子< - generateSeeds (demo.disc) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块5号:biclust # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #演示。bic < quBicluster(演示。种子,demo.disc)演示。bic # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块6号:帮助(eval = FALSE) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #帮助(“特性”,包=“rqubic”) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块7号:biclustVis # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # parallelCoordinates (BicatYeast,演示。bic数量= 3,plotBoth = FALSE,比较= TRUE,坳=“004495 #”,pch = 1) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块8号:sessionInfo # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # toLatex (sessionInfo ())