###来自vignette源‘pvca’的R代码。Rnw'（右）######################################################代码块编号1：安装（eval=FALSE）#####################################################if（！requireNamespace（“生物管理器”，悄悄=真））##install.packages（“BiocManager”）##BiocManager:：安装（“pvca”）######################################################代码块编号2：示例###################################################图书馆（golubEsets）库（pvca）数据（Golub_Merge）pct阈值<-0.6批次系数<-c（“ALL.AML”，“BM.PB”，“来源”）pvcaObj<-pvcaBatchAssess（Golub_Merge，batch.factors，pct_threshold）######################################################代码块编号3：绘图（eval=FALSE）#####################################################bp<-barplot（pvcaObj$dat，xlab=“效果”，##ylab=“加权平均比例方差”，##ylim=c（0,1.1），col=c（“蓝色”），las=2，##main=“PVCA估算条形图”）##轴（1，at=bp，labels=pvcaObj$label，xlab=“效果”，cex.axis=0.5，las=2）##值=pvcaObj$dat##new_values=圆形（值，3）##文本（bp，pvcaObj$dat，labels=new_values，pos=3，cex=0.8）## ######################################################代码块编号4：<###################################################打印（sessionInfo（））