inst/examples/R/stat/BravaisPearson/BravaisPearson_bev.R

In sigbertklinke/shinyExample: Create and run simple (interactive) programs as Shiny apps

x <- c(0.2,0.2,0.5,0.5, 0.5, 0.5, 0.5, 1, 1, 1, 1, 1, 1, 2, 2, 2.3, 2.8,2.8,3, 3, 3.5, 3, 3, 3.8,4,4,4,4,5,5,5,5,5,6.1,6.5,6.5,7.5,10,11,11,11.5,16,17,25,5,6,9,9,11,14)
y <- c(2,7,2,4,6,7,13,2.5,3,3.5,4,4.8,9.8,3,2.9,6,7,7.5,1.3,4,5.3,5.5,9,15,2,4,9,13,2,3.8,8.5,10.5,13.8,12,16,5,9,6,5,9,13,11,8,6,12,12,3,8,5,15)
plot(x,y, pch=16, xlab="Bev\u00F6lkerungsgr\u00F6\u00DFe", ylab="Mordrate", las=1, lwd=3)