powered by
changepointDetection(vect, OrthagonalResiduals = FALSE, PlotFlag = FALSE)
library(flowMeans) data(x) res <- flowMeans(x, c("FL1.H", "FL2.H", "FL3.H", "FL4.H"), MaxN=10) ft<-changepointDetection(res@Mins) plot(res@Mins) abline(ft$l1) abline(ft$l2)
Run the code above in your browser using DataLab