# NOT RUN {
# For identiy link function
y=rnorm(100)
g_id<-function(y){y}
dGTEF(y,eta=0,phi=1,alpha=0.5,p=2,g=g_id)
# cumulative distribution function
pGTEF(q=y,eta=10,phi=1,alpha=0.5,p=2,g=g_id)
# Quantile function
beta=c(0.25,0.5,0.75)
qGTEF(beta=beta,eta=10,phi=1,alpha=0.5,p=2,g=g_id)
# random sample generation
rGTEF(n=100,eta=10,phi=1,alpha=.5,p=2,g=g_id,lower = -Inf, upper = Inf)
# For log link function
y=rexp(100)
g_log<-function(y){log(y)}
dGTEF(y,eta=10,phi=1,alpha=0.5,p=2,g=g_log)
# cumulative distribution function
pGTEF(q=y,eta=10,phi=1,alpha=0.5,p=2,g=g_log)
# Quantile function
g_log<-function(y){log(y)}
#' beta=c(0.25,0.5,0.75)
qGTEF(beta=beta,eta=10,phi=1,alpha=0.5,p=2,g=g_log,lower = 0, upper = Inf)
# random sample generation
rGTEF(n=100,eta=10,phi=1,alpha=.5,p=2,g=g_log,lower = 0, upper = Inf)
# }
Run the code above in your browser using DataLab