options(width=80)b <- sapply(1:50, function(n) (2*n + 20)/(n^2))plot(b, type ="l")
Standard input is empty
Standard output is empty
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!