### R代码来自vignette源的vignettes/flowMeans/inst/doc/flowMeans。Rnw ' ################################################### ### 代码块1号:stage0 ################################################### 库(flowMeans ) ################################################### ### 代码块2号:stage1 ################################################### 数据(x) res < - flowMeans (x, varNames = c(“FL1.H”、“FL2.H”、“FL3.H”、“FL4.H”),MaxN = 10 ) ################################################### ### 代码块3号:stage2 ################################################### 情节(x [c(3, 4)],坳= res@Labels [[1]], pch = 20);################################################### ### 代码块数量4:stage3 ################################################### 情节(res@Mins xlab =“迭代”,ylab = '距离 ') ################################################### ### 代码块5号:stage4 ################################################### 情节(res@Mins xlab = ' ', ylab = ' ', xlim = c (1, res@MaxN) ylim = c(0,马克斯(res@Mins)))英国《金融时报》< -changepointDetection (res@Mins) abline(英尺l1美元)abline(英尺l2美元);par(new=TRUE) plot(ft$MinIndex+1, res@Mins[ft$MinIndex+1]， col='red'， xlab='Iteration'， ylab='Distance'， xlim=c(1, res@MaxN)， ylim=c(0, max(res@Mins))， pch=19);################################################### ### 代码块6号:stage5 ################################################### 情节(x, res, c(“FL1.H”、“FL2.H ")) ################################################### ### 代码块7号:stage6 ################################################### 情节(x, res c(“FL1.H”、“FL2.H”,“FL3.H”、“FL4.H”),pch = '。')