powered by
kkuip(x, k=1)
pmden
aaa <- rclaw(500) kkuip(aaa,9)
Run the code above in your browser using DataLab