Okay actually I need help again.

I need to plot the PDF and then the historgram of the quantile function.

The graph of the PDF looks fine.

The historgram of the quanitle function is just one bar over one section and nothing elsewhere. It is attached.

Here is my code:

pdffunction<-function(x){

2/(x^3)

}

plot(x,pdffunction(x),ylim=c(0,50),type='l')

myquant<-function(y){

1/sqrt(1-y)

}

hist(myquant(runif(100000)),prob=T)

I would appreciate some help!