# 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)
mu_k(f=f_N,k=1)
gamma_k(f=f_N,k=1)
mu.1_N=sqrt(2/pi)
mu.2_N=1
mu.3_N=2*sqrt(2/pi)
mu.4_N=4
meanQBAD(mu=0,phi=1,alpha=0.5,mu_1=mu.1_N)
varQBAD(mu=0,phi=1,alpha=0.5,mu_1=mu.1_N,mu_2=mu.2_N)
skewQBAD(alpha=0.5,mu_1=mu.1_N,mu_2=mu.2_N,mu_3=mu.3_N)
kurtQBAD(alpha=0.5,mu_1=mu.1_N,mu_2=mu.2_N,mu_3=mu.3_N,mu_4=mu.4_N)
momentQBAD(phi=1,alpha=0.5,f=f_N,r=1)
# 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)
mu_k(f=f_La,k=1)
gamma_k(f=f_La,k=1)
mu.1_La=1
mu.2_La=2
mu.3_La=6
mu.4_La=24
meanQBAD(mu=0,phi=1,alpha=0.5,mu_1=mu.1_La)
varQBAD(mu=0,phi=1,alpha=0.5,mu_1=mu.1_La,mu_2=mu.2_La)
skewQBAD(alpha=0.5,mu_1=mu.1_La,mu_2=mu.2_La,mu_3=mu.3_La)
kurtQBAD(alpha=0.5,mu_1=mu.1_La,mu_2=mu.2_La,mu_3=mu.3_La,mu_4=mu.4_La)
momentQBAD(phi=1,alpha=0.5,f=f_La,r=1)
# }
Run the code above in your browser using DataLab