## ----------- echo = false，结果=“ hide” ---------------------------------------------------------------------------------------------------------------库（“ knitr”）opts_chunk $ set（tidy = false，dev =“ png”，fig.show =“ as.is”，fig.width = 10，fic.height = 6，消息= false，eval = t，parning = false）## ----样式，eval = true，echo = f，结果=“ asis” -------------------------------------------------------------------------------------------------------------------------------------------------------选项，echo = false，eval = true ---------------------------------------------------------------------------------------------------选项（宽度= 70）## -------------------------------------------------------------------------------------------------------------------------库（Beadarray）## ----雷丁蒂夫，eval = false -----------------------------------------------------------------------------------------------------------＃tiff < - readtiff（）;＃数据< - readBeadLevelTextFile（）;## ----standardProcessing, eval=FALSE--------------------------------- # bg <- illuminaBackground(tiff，数据[，3：4]）;＃tiffsharp <-Illuminasharpen（tiff）;＃fg <-IlluminaForeground（Tiffsharp，数据[，3：4]）;＃finalintenths < - fg -bg;## ----creatingObject, eval=FALSE------------------------------------- # BLData< - new（class =“ beadleveldata”）;# BLData <- insertBeadData(BLData, array = 1, what = "Grn", data = finalIntensity) ## ----usingReadIllumina, eval=FALSE----------------------------------------＃bldata <-Readillumina（）; # BLData <- insertBeadData(BLData, array = 1, what = "Grn", data = finalIntensity) # BLData <- insertBeadData(BLData, array = 1, what = "GrnLog", data = log2(finalIntensity)) ## ----alternativeMethods, eval=FALSE--------------------------------- # bg <- medianBackground(tiff, data[,3:4]); ## ----sessionInfo---------------------------------------------------- sessionInfo()