powered by
Raprox(x, n)
data(pistonrings) attach(pistonrings) Raprox(pistonrings[1:25,],5)
Run the code above in your browser using DataLab