samples <- c("s1","s2","s3","s4","s5","s6","s7","s8","s9","s10")
zscores <- c(3.83,2.70,2.67,2.31,1.70,1.25,-0.42,-1.01,-2.43,-3.37)
changepoints <- c(1,1,1,2,2,3,3,NA,NA,NA)
sample_groups <- c(1,1,1,0,0,0,0,0,0,0)
my.data = data.frame(samples,zscores,changepoints,sample_groups)
waterfallplot(my.data)
Run the code above in your browser using DataLab