### R代码从vignette源的'norm2。Rnw ' ################################################### ### 代码块1号:设置 ################################################### 票面价值(mfrow = c (1 1 )) ################################################### ### 代码块2号:importData ################################################### 库(prada) sampdat < readFCS(系统。文件(“extdata”、“fas-Bcl2-plate323-04-04。A01”,包=“普拉达”)fdat < - exprs (sampdat ) ################################################### ### 代码块3号:plotsbefore ################################################### FSC-H“情节(fdat [], fdat[,“SSC-H”],pch = 20,坳=“303030 #”,xlab =“FSC ylab =“SSC”,主要= "散点图FSC vs SSC ") ################################################### ### 代码块4号:plotNorm2 ################################################### nfit < fitNorm2 (fdat[,“FSC-H”],fdat[,“SSC-H”],scalefac = 2 ) ################################################### ### 代码块5号:plotNorm2-1 ################################################### plotNorm2 (nfit选择= TRUE,椭圆= TRUE ) ################################################### ### 代码块6号:plotNorm2-2 ################################################### nfit3 < - fitNorm2 (fdat[,“FSC-H”],fdat[,“SSC-H”],scalefac = 3) plotNorm2 (nfit3,选择= TRUE,椭圆= TRUE ) ################################################### ### 代码块7号:索引 ################################################### cleanfdat < - fdat [nfit选取美元 ,] ################################################### ### 代码块8号:plotafter ################################################### par (mfrow = c(1、2)xlim < -范围(fdat [" FL1-H "]) ylim < -范围(fdat [" FL4-H "])情节(fdat[,“FL1-H”],fdat[,“FL4-H”],pch = 20,坳=“303030 #”,xlab =“FL1 ylab =“FL4”,主要=“所有数据”,xlim = xlim ylim = ylim)情节(cleanfdat[,“FL1-H”],cleanfdat[,“FL4-H”],pch = 20,坳=“303030 #”,xlab =“FL1 ylab =“FL4”,主要=“清洁数据只”,xlim = xlim ylim = ylim ) ################################################### ### 代码块9号:smoothscatter ################################################### smoothScatter (fdat [c(“FSC-H”、“SSC-H”)],nrpoints = 50)