### R代码从vignette源的rtPCR。Rnw ' ################################################### ### 代码块1号:specifyFiles ################################################### 库(Biobase)库(晶格)图书馆(RColorBrewer)图书馆(ddCt) datadir < -函数(x)系统。文件(“extdata”,x,包= ddCt) savedir < -函数(x) file.path (tempdir (), x) file.names < - c (datadir(“Experiment1.txt”),datadir(“Experiment2.txt”)信息< - datadir (sampleData.txt) warningFile < - savedir(“warnings.txt ") ################################################### ### 代码块2号:readingData ################################################### name.reference.sample < - c(“Sample1”、“Sample2”)name.reference.gene < - c(“Gene2 ") ################################################### ### 代码块3号:readData ################################################### 库(Biobase) CtData < - SDMFrame (file.names) sampleInformation < -阅读。AnnotatedDataFrame(信息,头= TRUE, row.names = NULL ) ################################################### ### 代码块数量4:计算 ################################################### 结果< - ddCtExpression (CtData calibrationSample = name.reference。样本,housekeepingGene = name.reference。基因,sampleInformation = sampleInformation warningStream = warningFile ) ################################################### ### 代码块5号:showMAD ################################################### CtErr(结果 ) ################################################### ### 代码块6号:粘度 ################################################### br < - errBarchart print (br(结果) ) ################################################### ### 代码块7号:写表 ################################################### elistWrite(因此,文件= savedir(“allValues.txt ")) ################################################### ### 代码块8号:sessionInfo ################################################### toLatex (sessionInfo()、区域= FALSE)