fork download
  1. options(width=80)
  2. b <- sapply(1:50, function(n) (2*n + 20)/(n^2))
  3. plot(b, type ="l")
Runtime error #stdin #stdout 0.36s 22832KB
stdin
Standard input is empty
stdout
Standard output is empty