john_s <- c(11,5,4,4,3,2,2,2,2,2,1,1,1,0,0,0,0);
plot.citfun(john_s, main="Smith, John");
curve.add.lp(index.lp(john_s), col="green");
curve.add.lp(index.lp(john_s,1), 1, col="blue");
curve.add.lp(index.lp(john_s,2), 2, col="red");
Run the code above in your browser using DataCamp Workspace