# NOT RUN {
# Examples
y<-rnorm(100)
g_id<-function(y){y}
g_log<-function(y){log(y)}
LogLikGTEF(y,eta=0,phi=1,alpha=0.5,p=2,g=g_id) # For identity-link
LogLikGTEF(rexp(100,0.1),eta=10,phi=1,alpha=0.5,p=2,g=g_log) # For log-link
# }
Run the code above in your browser using DataLab