powered by
InvMethod(Fun, len, candArea, grid = 1e-05, method = c("vector", "free"))
test <- InvMethod(function(x) pnorm(x, 5, 1), 1000, candArea = c(0, 10), method = "free") plot(density(test)) curve(dnorm(x, 5, 1), col = 2, add = TRUE)
Run the code above in your browser using DataLab