### R代码来自Vignette Source'MultioMICSVIZ.RNW'####################################################################################sourceomicsviz”）sourceomics < - read.table（sourceomics，header = true，sep =“ \ t”，stringsasfactors = false，check.names = false）targetomics1 <-system.file（“ extdata”，“ extdata”，“ targetomics.txt”，“ targetomics.txt”，，“package =“ multioMICSVIZ”）targetomics1 < - read.table（targetomics1，header = true，sep =“ \ t”，stringsasFactors = false，check.names = false）targetomicslist <-list list < - list targetomicslist [[1]]targetomics1 outputfile <-paste（tempdir（），“/heatmap”，sep =“”）MultioMICSVIZ（souncoromics，“ cna”，“ 20”，targetomicslist，“ mRNA”，“ mRNA”，“ all”，0.001，upputfile）#################################代码块数字2：示例#####################################################图书馆（“ MultioMicsViz”）matrix1 <-System.file（“ extdata”，“ sourceomics.txt”，package =“ multiomicsviz”）matrix1 < - read.table（matrix1，header = true，sep =“ \ t”，stringsasFactors = false，check.names = false）matrix2 <-system.file（“ extdata”，“ extdata”，“ targetomics.txt”，“ targetomics.txt”，，“package =“ multioMICSVIZ”）matrix2 < - read.table（matrix2，header = true，sep =“ \ t”，stringsasfactors = false，check.names = false）= 0.01）