(P1 <- Pareto(shape = 1, Min = 1))
plot(P1)
E(Pareto())
E(P1, function(x){x^2})
## The function is currently defined as
function(shape = 1, Min = 1)
new("Pareto", shape = shape, Min = Min)
Run the code above in your browser using DataLab