2018
DOI: 10.1016/j.insmatheco.2018.02.002
|View full text |Cite
|
Sign up to set email alerts
|

On generalized log-Moyal distribution: A new heavy tailed size distribution

Help me understand this report

Search citation statements

Order By: Relevance

Paper Sections

Select...
3
1
1

Citation Types

0
54
0
4

Year Published

2020
2020
2024
2024

Publication Types

Select...
5
1

Relationship

0
6

Authors

Journals

citations
Cited by 56 publications
(63 citation statements)
references
References 29 publications
0
54
0
4
Order By: Relevance
“…library(AdequacyModel) data<-read.csv(file.choose(), header=TRUE) data=data[,1] data=data[!is.na(data)] data=data/1000 data pdf_pm <-function(par,x) { a= par [1] t= par [2] g= par [3] a * t * g * (x^(a-1)) * exp((g * x^a)/(t+g * x^a)) * (1/(t+g * x^a)^2) * (1/(exp(1)-1)) } cdf_pm <-function(par,x) { a= par [1] t= par [2] g= par [3] (exp((g * x^a)/(t+g * x^a))-1)/(exp(1)-1) } set.seed(0) goodness.fit(pdf=pdf_pm,cdf=cdf_pm, starts = c(0.1,0.1,0.1), data = data, method="B", domain=c(0,Inf),mle=NULL) ############################################################### R Code for Simulation ############################################################### ############################################################### ########## Generating a Random Sample of Size n from the EP-Weibull ############################################################### rEP_Weibull=function(par,n) { a=par [1]; t=par [2];g=par [3] u=runif(n) x=c() for (i in 1:n) { x[i]=((g/t) * (((log(u[i] * (exp(1)-1)+1))^(-1)-1)))^(-1/a) } return(x) } ############################################################### ##########…”
Section: Resultsunclassified
See 4 more Smart Citations
“…library(AdequacyModel) data<-read.csv(file.choose(), header=TRUE) data=data[,1] data=data[!is.na(data)] data=data/1000 data pdf_pm <-function(par,x) { a= par [1] t= par [2] g= par [3] a * t * g * (x^(a-1)) * exp((g * x^a)/(t+g * x^a)) * (1/(t+g * x^a)^2) * (1/(exp(1)-1)) } cdf_pm <-function(par,x) { a= par [1] t= par [2] g= par [3] (exp((g * x^a)/(t+g * x^a))-1)/(exp(1)-1) } set.seed(0) goodness.fit(pdf=pdf_pm,cdf=cdf_pm, starts = c(0.1,0.1,0.1), data = data, method="B", domain=c(0,Inf),mle=NULL) ############################################################### R Code for Simulation ############################################################### ############################################################### ########## Generating a Random Sample of Size n from the EP-Weibull ############################################################### rEP_Weibull=function(par,n) { a=par [1]; t=par [2];g=par [3] u=runif(n) x=c() for (i in 1:n) { x[i]=((g/t) * (((log(u[i] * (exp(1)-1)+1))^(-1)-1)))^(-1/a) } return(x) } ############################################################### ##########…”
Section: Resultsunclassified
“…The pdf of the EP-Weibull ############################################################### dEP_Weibull <-function(par,x) { a= par [1] t= par [2] g= par [3] a * t * g * (x^(a-1)) * exp((g * x^a)/(t+g * x^a)) * (1/(t+g * x^a)^2) * (1/(exp(1)-1)) } ############################################################### ##########…”
Section: Resultsunclassified
See 3 more Smart Citations