library(distr)
Z_K <- AbscontDistribution(
d = function(x) (2*3*2*1*(x^(2-1))*((1-x^2)^(1-1))*
(1-((1-x^2)^(1-1)))*exp(3*(1-((1-x^2)^(1-1)))^2))/
exp(3)-1, withStand = T)
plot(Z_K)
```r
The above is a code of a custom distribution, I want to plot the cdf, pdf and quantile functions but i am not getting a smooth curve. I have attached the plot I am getting, please how can i get a smooth curve