==== Front Entropy (Basel) Entropy (Basel) entropy Entropy 1099-4300 MDPI 33287072 10.3390/e22111307 entropy-22-01307 Article Estimation of the Reliability of a Stress–Strength System from Poisson Half Logistic Distribution https://orcid.org/0000-0002-3899-1626Muhammad Isyaku 1 Wang Xingang 23* Li Changyou 1* Yan Mingming 1 Chang Miaoxin 1 1 School of Mechanical Engineering and Automation, Northeastern University, Shenyang 110819, China; isyakuedu@yahoo.com (I.M.); david.yan0086@gmail.com (M.Y.); changmiaoxin@stumail.neu.edu.cn (M.C.) 2 College of Mechanical and Electrical Engineering, Guangdong University of Petrochemical Technology, Maoming 525000, China 3 School of Control and Engineering, Northeastern University, Qinhunangdao 066004, China * Correspondence: xgwang@neuq.edu.cn (X.W.); lichangyou_1980@163.com (C.L.) 17 11 2020 11 2020 22 11 130711 10 2020 12 11 2020 © 2020 by the authors.2020Licensee MDPI, Basel, Switzerland. This article is an open access article distributed under the terms and conditions of the Creative Commons Attribution (CC BY) license (http://creativecommons.org/licenses/by/4.0/).This paper discussed the estimation of stress-strength reliability parameter R=P(Y0 having the PHLD with parameter α,λ>0 are given by F(x)=eλΔ(x)−1eλ−1, where, Δ(x)=1−e−αx1+e−αx, and (1) f(x)=2αλe−αx+λΔ(x)(eλ−1)[1+e−αx]2, respectively. The quantile function of PHLD can be used for random number generation by random sampling from the uniform (0,1) distribution. Proposition 1 ([37]). The pth quantile of the PHLD is given by (2) xp=−1αlog1−ξ1+ξ,00, where Δ1(x)=1−e−α1x1+e−α1x, and F2(y)=eλ2Δ2(y)−1eλ2−1,y,α2,λ2>0, where Δ2(y)=1−e−α2y1+e−α2y, then, the strength-stress parameter R is derive as R=∫0∞f1(x)F2(x)dx=2α1λ1(eλ1−1)(eλ2−1)∫0∞e−α1x+λ1Δ1(x)eλ2Δ2(x)−1[1+e−α1x]2dx=2α1λ1(eλ1−1)(eλ2−1)∫0∞e−α1x+λ1Δ1(x)eλ2Δ2(x)[1+e−α1x]2dx−1eλ2−1. Let u=e−x, then uα1=e−α1x, and uα2=e−α2x, thus, (4) R=2α1λ1(eλ1−1)(eλ2−1)∫01uα1−1(1+uα1)2eλ11−uα11+uα1eλ21−uα21+uα2du−1eλ2−1. The above integral can be computed numerically, but we can represent R in a series form by solvinging the integral part as follows. Let defined B as B=2α1λ1(eλ1−1)(eλ2−1)∫01uα1−1(1+uα1)2eλ11−uα11+uα1eλ21−uα21+uα2du. Let v=1−uα1, this implies du=−dv/(α1uα1−1), and uα2=(1−v)α2α1, therefore, B=2λ1(eλ1−1)(eλ2−1)∫011(2−v)2eλ1v2−veλ21−(1−v)α2α11+(1−v)α2α1dv. Recall that for |z|<1, (5) (1−z)−s=∑k=0∞s+k−1kzk, and by the exponential expansion we get B=2λ1(eλ1−1)(eλ2−1)∑i,j=0∞λ1iλ2ji!j!∫01vi(2−v)2+i1−(1−v)α2α11+(1−v)α2α1jdv, by the expansion in (5) and the generalized binomial expansion we obtain B=2λ1(eλ1−1)(eλ2−1)∑i,j=0∞∑k,r=0∞∑l=0ji+k+1kj+r−1rjl(−1)k+l+rλ1iλ2ji!j!∫01vi(1−v)α2α1(r+l)+kdv, thus, (6) B=∑i,j=0∞∑k,r=0∞Ci,j,k,l,rB(i+1,α2α1(r+l)+k+1), where, Ci,j,k,l,r=∑l=0ji+k+1kj+r−1rjl2(−1)k+l+rλ1i+1λ2ji!j!(eλ1−1)(eλ2−1). Hence, by putting (6) in (4), R can be approximated as (7) R=∑i,j=0∞∑k,r=0∞Ci,j,k,l,rB(i+1,α2α1(r+l)+k+1)−1eλ2−1. 2.1. Maximum Likelihood Estimation Suppose x1,x2,…,xn1 is a random sample of size n1 from PHLD1(α1,λ1) and y1,y2,…,yn2 is an independent random sample of size n2 from PHLD2(α2,λ2). The log likelihood function L(α1,α2,λ1,λ2)=L(θ) is given by (8) below, where θ is a vector of parameters given by θ=(α1,α2,λ1,λ2)T. (8) logL=∑i=1n1logfX(xi)+∑j=1n2logfY(yj)=(n1+n2)log2+n1logα1+n2α2+n1logλ1+n2logλ2−n1log(eλ1−1)−n2log(eλ2−1)−α1∑i=1n1xi−α2∑j=1n2yj−2∑i=1n1log(1+e−α1xi)−2∑j=1n2log(1+e−α2yj)+λ1∑i=1n1Δ1(xi)+λ2∑j=1n2Δ2(yj). To obtain the estimators of θ that is θ^=(α^1,α^2,λ^1,λ^2)T, we need to solve the following nonlinear Equations (9)–(12) below. These equations cannot be solved analytically, but by the use of numerical optimizations available in Mathematica, Matlab or R. (9) ∂L∂α1=n1α1−∑i=1n1xi+2∑i=1n1xie−α1xi1+e−α1xi+2λ1∑i=1n1xie−α1xi(1+e−α1xi)2, (10) ∂L∂α2=n2α2−∑j=1n2yj+2∑j=1n2yje−α2yj1+e−α2yj+2λ2∑j=1n2yje−α2yj(1+e−α2yj)2, (11) ∂L∂λ1=n1λ1−n1eλ1eλ1−1+∑i=1n1Δ1(xi), (12) ∂L∂λ2=n2λ2−n2eλ2eλ2−1+∑j=1n2Δ2(yj). Once θ^ is computed, we can get the maximum likelihood estimator of R(θ) say R^(θ^) from (7) or (4). 2.2. Asymptotic Distribution and Confidence Interval In this subsection, we derived the asymptotic distribution of θ^=(α^1,α^2,λ^1,λ^2)T then we derive the asymptotic distribution of R^, and the asymptotic confidence intervals of R. We first require the Fisher information matrix defined by I(θ)=−E[J(θ)], where J(θ)=∂2L∂θ∂θT, thus, I(θ)=−Iα1α1Iα1α2Iα1λ1Iα1λ2Iα2α1Iα2α2Iα2λ1Iα2λ2Iλ1α1Iλ1α2Iλ1λ1Iλ1λ2Iλ2α1Iλ2α2Iλ2λ1Iλ2λ2. The elements of J(θ) and the computation of the element of I are provided in Appendix A. Before we provided the elements of I(θ) we need the following Lemma 1 used to compute the elements of I(θ). Lemma 1. Let x,α,γ4>0, γ1,γ2,γ3∈N, let ∇(α,γ1,γ2,γ3,γ4)=∫0∞xγ1e−γ2αx+γ4Δ(x)[1+e−αx]γ3dx, then, ∇(α,γ1,γ2,γ3,γ4)=∑m,s=0∞ϕm,sB0,γ1(m+1,γ2+s), where ϕm,s=γ3+m+s−1sγ4m(−1)γ1+sm!αγ1+1 and Bt,γ1(a,b)=∂t+γ1∂at∂bγ1B(a,b). In particular, when γ1=1,2, we have ∇(α,1,γ2,γ3,γ4)=∑m,s=0∞ϕm,sψ0(γ2+s)−ψ0(m+γ2+s+1)B(m+1,γ2+s), and ∇(α,2,γ2,γ3,γ4)=∑m,s=0∞ϕm,s(ψ0(γ2+s)−ψ0(m+γ2+s+1)2+ψ1(γ2+s)−ψ1(m+γ2+s+1))B(m+1,γ2+s), where ψm(z)=dmdzmψ(z)=dm+1dzm+1lnΓ(z) is called polygamma function, and ψ(z)=ψ0(z)=ddzlnΓ(z)=Γ′(z)Γ(z) is called the digamma function. Proof.  Let ∇=∫0∞xγ1e−γ2αx+γ4Δ(x)[1+e−αx]γ3dx, by the exponential expansion we have ∇=∑m=0∞γ4mm!∫0∞xγ1(1−e−αx)me−γ2αx(1+e−αx)γ3+mdx. Let u=e−αx, then, e−γ2αx=(1−u)γ2, in similar way to the computation of R we get ∇=∑m=0∞γ4m(−1)γ1m!αγ1+1∫01logγ1(1−u)um(1−u)γ2−1(1+(1−u))γ3+mdu,=∑m,s=0∞γ3+m+s−1sγ4m(−1)γ1+sm!αγ1+1∫01logγ1(1−u)um(1−u)γ2+s−1du,=∑m,s=0∞ϕm,sB0,γ1(m+1,γ2+s), where ϕm,s=γ3+m+s−1sγ4m(−1)γ1+sm!αγ1+1 and Bt,γ1(a,b)=∂t+γ1∂at∂bγ1B(a,b). □ Hence, the elements of I(θ) are derived using the Lemma 1 as: Iα1α1=−n1α12−4n1α1λ1(eλ1−1)∇(α1,2,2,3,λ1)+4n1α1λ1(eλ1−1)∇(α1,2,3,4,λ1),−4n1α1λ12(eλ1−1)∇(α1,2,2,4,λ1)+8n1α1λ12(eλ1−1)∇(α1,2,3,5,λ1), Iα2α2=−n2α22−4n2α2λ2(eλ2−1)∇(α2,2,2,3,λ2)+4n2α2λ2(eλ2−1)∇(α2,2,3,4,λ2),−4n2α2λ22(eλ2−1)∇(α2,2,2,4,λ2)+8n2α2λ22(eλ2−1)∇(α2,2,3,5,λ2),Iλ1λ1=−n1λ12−n1eλ1(eλ1−1)2,Iλ2λ2=−n2λ22−n2eλ2(eλ2−1)2,Iα1λ1=4n1λ1α1eλ1−1∇(α1,1,2,4,λ1),Iα2λ2=4n2λ2α2eλ2−1∇(α2,1,2,4,λ2),Iα2α1=Iα1α2=Iα1λ2=Iλ2α1=Iα2λ1=Iλ1α2=Iλ1λ2=Iλ2λ1=0. Thus, we can establish the asymptotic distribution for the MLEs. Lemma 2. As n1→∞, n2→∞, then, n1+n2(θ^−θ)→N4(0,I−1(θ)), where limn1,n2→∞1n1+n2I−1(θ)=Var(α1^)Cov(α1^α2^)Cov(α1^λ1^)Cov(α1^λ2^)Cov(α2^α1^)Var(α2^)Cov(α2^λ1^)Cov(α2^λ2^)Cov(λ1^α1^)Cov(λ1^α2^)Var(λ1^)Cov(λ1^λ2^)Cov(λ2^α1^)Cov(λ2^α2^)Cov(λ2^λ1^)Var(λ2^) Proof.  follows from the asymptotic normality of MLE. □ To, establish the asymptotic distribution of R, we need to compute the partial derivative of R(θ), say B(θ)=∂R∂α1,∂R∂α2,∂R∂λ1,∂R∂λ2T as follows, but before that, we need the following Lemma 3. Lemma 3. Let x>0, Θ=(α1,α2,λ1,λ2,δ1,δ2,δ3,δ4,δ5,δ6)T>0, let, ζ(Θ)=∫0∞xδ1(1−e−α1x)δ3(1−e−α2x)δ4(1+e−α1x)δ5(1+e−α2x)δ6e−δ2x+λ1Δ1(x)+λ2Δ2(x)dx, then ζ(Θ)=∑i,j=0∞∑l,m=0∞Di,j,k,l,mB0,δ1(δ3+i+1,δ2−1α1+α2α1(k+m)+α1l), where Di,j,k,l,m=∑k=0δ4+j(−1)δ1+k+l+mλ1iλ2ji!j!α1α1+1δ5+i+l−1lδ6+j+m−1mδ4+jk. Proof.  Let ζ(Θ)=∫0∞xδ1(1−e−α1x)δ3(1−e−α2x)δ4(1+e−α1x)δ5(1+e−α2x)δ6e−δ2x+λ1Δ1(x)+λ2Δ2(x)dx, by applying the exponential expansion and letting u=e−x in similar way to the computation of (7) we get ζ(Θ)=∑i,j=0∞(−1)δ1λ1iλ2ji!j!∫01logδ1uuδ2−1(1−uα1)δ3+i(1−uα2)δ4+j(1+uα1)δ5+i(1+uα2)δ6+jdu, letting v=1−uα1 we have ζ(Θ)=∑i,j=0∞(−1)δ1λ1iλ2ji!j!α1α1+1∫01logδ1(1−v)(1−v)δ2−1α1−1vδ3+i(1−(1−v)α2α1)δ4+j(1+(1−v)α1)δ5+i(1+(1−v)α2α1)δ6+jdv, by the generalized binomial expansion, finally we obtain ζ(Θ)=∑i,j=0∞∑l,m=0∞Di,j,k,l,m∫01logδ1(1−v)vδ3+i(1−v)δ2−1α1+α2α1(k+m)+α1l−1dv, hence, ζ(Θ)=∑i,j=0∞∑l,m=0∞Di,j,k,l,mB0,δ1(δ3+i+1,δ2−1α1+α2α1(k+m)+α1l), where Di,j,k,l,m=∑k=0δ4+j(−1)δ1+k+l+mλ1iλ2ji!j!α1α1+1δ5+i+l−1lδ6+j+m−1mδ4+jk. □ Now, the derivative of R(θ) can be computed by applying the Lemma 3. ∂R∂λ1=2α1(eλ1−1)(eλ2−1)∫0∞e−α1x+λ1Δ1(x)+λ2Δ2(x)(1+e−α1x)2dx−2α1λ1eλ1(eλ1−1)(eλ2−1)∫0∞e−α1x+λ1Δ1(x)+λ2Δ2(x)(1+e−α1x)2dx+2α1λ1(eλ1−1)(eλ2−1)∫0∞e−α1x+λ1Δ1(x)+λ2Δ2(x)(1−e−α1x)(1+e−α1x)3dx=2α1(eλ1−1)(eλ2−1)ζ(α1,α2,λ1,λ2,0,α1,0,0,2,0)−2α1λ1eλ1(eα1−1)2(eα2−1)ζ(α1,α2,λ1,λ2,0,α1,0,0,2,0)+2α1λ1(eλ1−1)(eλ2−1)ζ(α1,α2,λ1,λ2,0,α1,1,0,3,0),∂R∂λ2=−2α1λ1eλ2(eλ1−1)(eλ2−1)2∫0∞e−α1x+λ1Δ1(x)+λ2Δ2(x)(1+e−α1x)2dx+2α1λ1(eλ1−1)(eλ2−1)∫0∞e−α1x+λ1Δ1(x)+λ2Δ2(x)(1−e−α1x)(1+e−α1x)2(1+e−α2x)dx+eλ2(eλ2−1)2=−2α1λ1eλ2(eλ1−1)(eλ2−1)2ζ(α1,α2,λ1,λ2,0,α1,0,0,2,0)+2α1λ1(eλ1−1)(eλ2−1)ζ(α1,α2,λ1,λ2,0,α1,1,0,2,1)+eλ2(eλ2−1)2,∂R∂α1=2α1λ1(eλ1−1)(eλ2−1)∫0∞e−α1x+λ1Δ1(x)+λ2Δ2(x)(1+e−α1x)2dx−2α1λ1(eλ1−1)(eλ2−1)∫0∞xe−α1x+λ1Δ1(x)+λ2Δ2(x)(1+e−α1x)2dx+4α1λ1(eλ1−1)(eλ2−1)∫0∞xe−2α1x+λ1Δ1(x)+λ2Δ2(x)(1+e−α1x)3dx+4α1λ12(eλ1−1)(eλ2−1)∫0∞xe−2α1x+λ1Δ1(x)+λ2Δ2(x)(1+e−α1x)4dx =2α1λ1(eλ1−1)(eλ2−1)ζ(α1,α2,λ1,λ2,0,α1,0,0,2,0)−2α1λ1(eλ1−1)(eλ2−1)ζ(α1,α2,λ1,λ2,1,α1,0,0,2,0)+4α1λ1(eλ1−1)(eλ2−1)ζ(α1,α2,λ1,λ2,1,2α1,0,0,3,0)+4α1λ12(eλ1−1)(eλ2−1)ζ(α1,α2,λ1,λ2,1,2α1,0,0,4,0)∂R∂α2=4α1λ1λ2(eλ1−1)(eλ2−1)∫0∞xe−(α1+α2)x+λ1Δ1(x)+λ2Δ2(x)(1+e−α1x)2(1+e−α2x)2dx=4α1λ1λ2(eλ1−1)(eλ2−1)ζ(α1,α2,λ1,λ2,1,α1+α2,0,0,2,2). Therefore, using Lemma 4, we obtain the asymptotic distribution of R(θ)^ as (13) n1+n2(R^−R)→N4(0,BT(θ)I−1(θ)B(θ)). Thus, the asymptotic variance of R^ from (13) is Var(R^)=1n1+n2BT(θ)I−1(θ)B(θ)=∂R∂α12Var(α1^)+∂R∂α22Var(α2^)+∂R∂λ12Var(λ1^)+∂R∂λ2Var(λ2)+2∂R∂α1∂R∂α2Cov(α1^α2^)+2∂R∂α1∂R∂λ1Cov(α1^λ1^)+2∂R∂α1∂R∂λ2Cov(α1^λ2^)+2∂R∂α2∂R∂λ1Cov(α2^λ1^)+2∂R∂α2∂R∂λ2Cov(α2^λ2^)+2∂R∂λ1∂R∂λ2Cov(λ1^λ2^). The asymptotic 100(1−ϵ) confidence interval AScl for R can be constructed as R^±Zϵ2Var(R^), where Zϵ2 is the upper ϵ2 quantile of the standard normal distribution. Next, we consider the use of a bootstrap confidence interval preferably not for a larger sample size. The bootstrap confidence interval for a large sample may require sufficient time computationally. 2.3. Bootstrap Confidence Intervals for R In this subsection, we proposed two non-parametric confidence intervals, the percentile bootstrap confidence interval (Bp), and the student’s bootstrap confidence interval (Bt) based on [41]. The procedures for the estimation of the two bootstrap confidence intervals of R are as follows. Generate independent samples x1,x2,x3,…,xn1 from PGHLD1(α1,λ1), and y1,y2,y3,…,yn2 from PGHLD2(α2,λ2). The samples can be generated from (2) by sampling p from uniform distribution i.e., p∼U(0,1). Generate an independent bootstrap sample x1*,x2*,x3*,…,xn1* and y1*,y2*,y3*,…,yn2* taken with replacement from the given samples above in the first step. Based on the bootstrap sample compute the maximum likelihood estimates of θ=(α1,α2,λ1,λ2)T say θ^*=(α^1*,α^2*,λ^1*,λ^2*)T as well as the MLE of R*^(θ*^). Repeat step 2 to 3 B-times to obtain a set of bootstrap samples of R say R^j*, j=1,2,…,B. From the above bootstrap sample of R^j* we can determine the two different bootstrap confidence intervals of R as follows by rearranging the sample in the order R^1*0, Θ*=(α,λ1,λ2,δ1,δ2,δ3,δ4)T>0, let, ζ*(Θ*)=∫0∞xδ1e−δ2αx+(λ1+λ2)Δ(x)(1−e−αx)δ3[1+e−αx]δ4dx, then, ζ*(Θ*)=∑i=1∞∑j=1∞ϕi,j*B0,δ1(δ3+i+1,δ2+j−1), where ϕi,j*=(−1)δ1+j(λ1+λ2)iαδ1+1i!δ4+i+j−1j, in particular, for δ1=1 we have ζ*(Θ*)=∑i=1∞∑j=1∞ϕi,j*B(3,j)ψ0(j)−ψ0(j+3), with ϕi,j*=(−1)j+1(λ1+λ2)iα2i!δ4+i+j−1j. Proof.  Let ζ*(Θ*)=∫0∞xδ1e−δ2αx+(λ1+λ2)Δ(x)(1−e−αx)δ3[1+e−αx]δ4dx, by the expansion of e(λ1+λ2)Δ(x) and some algebraic simplification we have ζ*(Θ*)=∑i=0∞(λ1+λ2)ii!∫0∞xδ1e−δ2αx(1−e−αx)δ3+i[1+e−αx]δ4+idx, letting u=1−e−αx and then expansion of the denominator, we get ζ*(Θ*)=∑i=0∞(λ1+λ2)ii!(−1)δ1αδ1+1∫01logδ1(1−u)uδ3+i(1−u)δ2−1(1+(1−u))δ4+idu,=∑i=0∞∑j=0∞(λ1+λ2)ii!(−1)δ1+1αδ1+1δ4+i+j−1j∫01logδ1(1−u)uδ3+i(1−u)δ2+j−1du. Thus, ζ*(Θ*)=∑i=1∞∑j=1∞ϕi,j*B0,δ1(δ3+i+1,δ2+j−1), where ϕi,j*=(−1)δ1+j(λ1+λ2)iαδ1+1i!δ4+i+j−1j. □ From the above lemma we derive ∂R∂λ1 and ∂R∂λ2 as follows. ∂R∂λ2=−2αλ1eλ2(eλ1−1)(eλ2−1)2∫0∞e−αx+(λ1+λ2)Δ(x)(1+e−αx)2dx+2αλ1(eλ1−1)(eλ2)−1∫0∞Δ(x)e−αx+(λ1+λ2)Δ(x)(1+e−αx−1)2dx+eλ2(eλ2−1)2=−2αλ1eλ2(eλ1−1)(eλ2−1)2ζ*(α,λ1,λ2,0,1,0,2)+2αλ1(eλ1−1)(eλ2−1)ζ*(α,λ1,λ2,0,1,1,3)+eλ2(eλ2−1)2, ∂R∂λ1=2α(eλ1−1)(eλ2−1)∫0∞e−αx+(λ1+λ2)Δ(x)(1+e−αx)2dx−2αλ1eλ1(eλ1−1)(eλ2−1)∫0∞e−αx+(λ1+λ2)Δ(x)(1+e−αx)2dx+2αλ1(eλ1−1)(eλ2−1)∫0∞Δ(x)e−αx+(λ1+λ2)Δ(x)(1+e−αx)2dx=2α(eλ1−1)(eλ2−1)ζ*(α,λ1,λ2,0,1,0,2)−2αλ1eλ1(eλ1−1)(eλ2−1)ζ*(α,λ1,λ2,0,1,0,2)+2αλ1(eλ1−1)(eλ2−1)ζ*(α,λ1,λ2,0,1,1,3). In similar way, we can obtain the asymptotic distribution of R^(θ) as n1+n2(R^−R)→N3(0,BT(θ)I−1(θ)B(θ)), hence, the asymptotic variance of R^ is computed as Var(R^)=1n1+n2BT(θ)I−1(θ)B(θ)=∂R∂λ12Var(λ1^)+∂R∂λ22Var(λ2^)+2∂R∂λ1∂R∂λ2Cov(λ1^λ2^). The 100(1−ϵ) asymptotic confidence interval for R can be constructed as R^±Zϵ2Var(R^), where Zϵ2 is the upper ϵ2 quantile of the standard normal distribution. Moreover, we can use the bootstrap confidence interval preferably for moderate sample sizes, the computation of the bootstrap confidence interval follows similarly to the steps given in Section 2.3. 4. Bayes Estimation of R In this section, we discuss the Bayes estimation of R in general case and the Bayes estimation of R with common scale parameter α. We employ the use of the Bayesian estimation to estimate R under various loss functions. The point estimators ϑ^ are derived from the posterior distributions given the sample data. The estimator that minimizes the square error loss function (SEL) for the assumed prior distribution is (ϑ^−ϑ)2 which is the posterior mean, here, we compute R^SEL=1N−M∑i=M+1NR(i). The absolute error loss function (AEL), |ϑ^−ϑ| for the assumed prior distribution is minimizes by the posterior median as R^AEL. The maximum a posteriori (MAP) can be used to obtain the estimators when there is no loss function, it depends on the likelihood function and prior distribution, that makes it closely related to maximum likelihood, it is the value that maximizes the posterior distribution i.e., the mode. The linear exponential loss function (LINEX) with parameters c is defined by (ec(ϑ^−ϑ)−c(ϑ^−ϑ)−1) and we can minimized by the estimator R^LIN=−1clog1N−M∑i=M+1NecR(i), the sign of the parameter c reflect the direction of asymmetry, while its magnitude reflect the degree of the asymmetry. The general entropy loss function (GEL) [42] is ϑ^ϑq−qϑ^ϑ−1, and its minimized by R^GEL=1N−M∑i=M+1N(R(i))−q−1q. Moreover, the highest posterior density (HPD) credible interval for R is constructed. N is the number of iterations and M is the burn in. 4.1. Bayes Estimation of R in General Case Let x1,x2,…,xn1 is an independent random sample of size n1 from PHLD1(α1,λ1) and y1,y2,…,yn2 is an independent random sample of size n2 from PHLD2(α2,λ2). Let assumed that α1,α2,λ1,λ2 are independent and follow gamma density function Gamma(a1,b1),Gamma(a2,b2),Gamma(a3,b3), and Gamma(a4,b4), respectively. Then the joint density of the data, α1,α2,λ1,λ2 is given by ℓ(data;α1,α2,λ1,λ2)=L(α1,α2,λ1,λ2|data)π1(α1)π2(α2)π3(λ1)π4(λ2), where πi(.),i=1,2,3,4, are the gamma prior density for α1,α2,λ1 and λ2 respectively. Thus, the joint posterior density of α1,α2,λ1,λ2 given the data sets is given by (19) P(α1,α2,λ1,λ2|data)=ℓ(data;α1,α2,λ1,λ2)∫∫∫∫ℓ(data;α1,α2,λ1,λ2)dα1dα2dλ1dλ2. The above Equation (19) cannot be expressed in a closed form, therefore, we employ the Gibbs sampling technique to compute the Bayes estimate of R under various measures and an approximate 100(1−ϵ)% credible interval of R. The marginal posterior densities of α1,α2,λ1 and λ2 are: (20) P1(α1|data)∝α1n1+a1−1e−α1b1+∑i=1n1xi+λ1∑i=1n1Δ1(xi)∏i=1n1(1+e−α1xi)2−1, (21) P2(α2|data)∝α2n2+a2−1e−α2b2+∑j=1n2yj+λ2∑j=1n2Δ2(yj)∏j=1n2(1+e−α2yj)2−1, (22) P3(λ1|data)∝λ1n1+a3−1e−λ1b3−∑i=1n1Δ1(xi)eλ1−1−n1, (23) P4(λ2|data)∝λ2n2+a4−1e−λ2b4−∑j=1n2Δ2(yj)eλ2−1−n2. The marginal conditional distributions obtained from the posterior distribution Pi in (20)–(23) are not straightforward, they are not from well-known distributions, so we are going to obtain samples by applying the Metropolis– Hastings algorithm, see [43,44,45], we take our proposal distribution to be a normal distribution. In general, we consider the Gibbs sampling technique to generate samples from the posterior distributions, then to compute the Bayes estimators of R with respect to some loss functions. We can obtain the highest posterior density (HPD) interval for R. The step-by-step Gibbs sampling algorithm is given below:Step 1: Start with initial guess (α1(0),α2(0),λ1(0),λ2(0)) Step 2: Set t=1 Step 3: Use the Metropolis–Hastings algorithm to generate α1(t) from P1 and λ1(t) from P3 Step 4: Use the Metropolis–Hastings algorithm to generate α2(t) from P2 and λ2(t) from P4 Step 5: Compute R(t) from Equation (7) Step 6: Set t=t+1 Step 7: Repeat step 3 to 6, T times. For sufficiently large value of T, we can have an approximate of RSEL,RAEL,RMAP,RLIN, and RGEL. An approximate 100(1−ϵ)% credible interval of R from SEL can computed by using the procedure provided by [46] as the shortest distance of the intervals of (R^(1),R^(1−ϵ)T),(R^2,R^(1−ϵ)(T+1)),…,(R^ϵT,R^T). 4.2. Bayes Estimation of R with Common Scale Parameter α Let x1,x2,…,xn1 is an independent random sample of n1 size from PHLD1(α,λ1) and y1,y2,…,yn2 is an independent random sample of size n2 from PHLD2(α,λ2). Let assumed that α,λ1,λ2 are independent with gamma density function Gamma(a1,b1),Gamma(a2,b2), and Gamma(a3,b3), respectively. Then the joint density of the data, α,λ1,λ2 is given by ℓ(data;α,λ1,λ2)=L(α,λ1,λ2|data)π1(α)π2(λ1)π3(λ2), where πi(.),i=1,2,3, are the gamma prior density for α,λ1 and λ2 respectively. Thus, the joint posterior density of α,λ1,λ2 given the data sets is given by (24) P(α,λ1,λ2|data)=ℓ(data;α,λ1,λ2)∫∫∫ℓ(data;α,λ1,λ2)dαdλ1dλ2. The above Equation (24) is required to apply the Gibbs sampling technique to obtain the Bayes estimates of α,λ1,λ2 to compute R and its credible interval. The posterior densities of α,λ1 and λ2 are: (25) P1(α|data)∝αn1+n2+a1−1e−αb1+∑i=1n1xi+∑j=1n2yj+λ1∑i=1n1(xi)+λ2∑j=1n2(yj)∏i=1n1(1+e−αxi)2∏j=1n2(1+e−αyj)2, (26) P2(λ1|data)∝λ1n1+a2−1e−λ1b2−∑i=1n1Δ(xi)eλ1−1−n1, (27) P3(λ2|data)∝λ2n2+a3−1e−λ2b3−∑j=1n2Δ(yj)eλ2−1−n2. Here, the posterior distributions Pi in (25)–(27) are not from well-known distributions, therefore we apply the Gibbs sampling technique to generate samples from the posterior distributions as in the Section 4.1 above, then to compute the Bayes estimators of R with respect to some loss function, and the HPD credible interval for R. The steps are given below:Step 1: Start with initial guess (α(0),λ1(0),λ2(0)) Step 2: Set t=1 Step 3: Use the Metropolis–Hastings algorithm to generate λ1(t) from P2 and λ2(t) from P3 Step 4: Use the Metropolis–Hastings algorithm to generate α(t) from P1 Step 5: Compute R(t) from Equation (14) Step 6: Set t=t+1 Step 7: Repeat step 3 to 6, T times. For sufficiently large value of T the approximate RSEL,RAEL,RMAP,RLIN,RGEL, and the HPD credible interval of R can be computed from the resulting sampling as described in Section 4.1. 5. Simulation In this section, Monte Carlo simulation was used to examine the performance of the different estimators discussed. Simulated samples were generated using different values of parameters from independent PHLD1(α1,λ1) and PHLD2(α2,λ2) of sizes say n1 and n2 respectively, using Equation (2). We consider the cases when n1=n2, n1>n2 and n1