### R代码从vignette源'anota。Rnw ' ################################################### ### 代码块1号:anota。Rnw: 135 - 142 ################################################### ## 加载库和数据集,执行质量控制和确定重大平移的监管。本例中没有应用RVM。library("anota") data(anotaDataSet) anotaQcOut <- anotaPerformQc(dataT=anotaDataT[1:200，]， dataP=anotaDataP[1:200，]， phenoVec= anotahenovec, nDfbSimData=500, useProgBar=FALSE) anotaResidOut <- anotaResidOutlierTest(anotaQcObj=anotaQcOut, useProgBar=FALSE) anotaSigOut <- anotaGetSigGenes(dataT=anotaDataT[1:200，]， dataP=anotaDataP[1:200，]， phenoVec= anotahenovec, anotaQcObj=anotaQcOut, useRVM=FALSE, useProgBar=FALSE) anotaSelected <- anotaPlotSigGenes(anotaSigObj=anotaSigOut, selContr=1，maxP=0.1, minSlope=(-0.5)， maxSlope=1.5, seldelttap =0.5)