# NOT RUN {
# Example 1: Let F be a standard normal cumulative distribution function then
f_N<-function(s){dnorm(s, mean = 0,sd = 1)} # density function of N(0,1)
rnum=rnorm(100)
mleQBAD(rnum,f=f_N)
mleQBAD(rnum,f=f_N,alpha=.5)
# Example 2: Let F be a standard Laplace cumulative distribution function then
f_La<-function(s){0.5*exp(-abs(s))} # density function of Laplace(0,1)
mleQBAD(rnum,f=f_La)
mleQBAD(rnum,f=f_La,alpha=.5)
# }
Run the code above in your browser using DataLab