Next Article in Journal / Special Issue
Small Area Estimation of Zone-Level Malnutrition among Children under Five in Ethiopia
Previous Article in Journal
Finding the Conjectured Sequence of Largest Small n-Polygons by Numerical Optimization
Previous Article in Special Issue
Multivariable Panel Data Cluster Analysis of Meteorological Stations in Thailand for ENSO Phenomenon
 
 
Font Type:
Arial Georgia Verdana
Font Size:
Aa Aa Aa
Line Spacing:
Column Width:
Background:
Article

Applications of the Sine Modified Lindley Distribution to Biomedical Data

1
Department of Statistics, Deva Matha College, Kuravilangad 686633, Kerala, India
2
Department of Statistics, St.Thomas College, Palai 686574, Kerala, India
3
Laboratoire de Mathématiques Nicolas Oresme (LMNO), Université de Caen Normandie, Campus II, Science 3, 14032 Caen, France
*
Author to whom correspondence should be addressed.
Math. Comput. Appl. 2022, 27(3), 43; https://doi.org/10.3390/mca27030043
Submission received: 5 April 2022 / Revised: 9 May 2022 / Accepted: 10 May 2022 / Published: 16 May 2022
(This article belongs to the Special Issue Computational Mathematics and Applied Statistics)

Abstract

:
In this paper, the applicability of the sine modified Lindley distribution, recently introduced in the statistical literature, is highlighted via the goodness-of-fit approach on biological data. In particular, it is shown to be beneficial in estimating and modeling the life periods of growth hormone guinea pigs given tubercle bacilli, growth hormone treatment for children, and the size of tumors in cancer patients. We anticipate that our model will be effective in modeling the survival times of diseases related to cancer. The R codes for the figures, as well as information on how the data are processed, are provided.

1. Introduction

When people are diagnosed with cancer, COVID-19, or any other severe condition, or when clinical trials of a new treatment are conducted, survival is a major concern. Carcinoma is a general term that refers to a variety of diseases that can affect any part of the body. One of the risk factors is the abrupt development of aberrant cells that grow beyond their usual bounds, allowing them to infect nearby portions of the body and travel to other organs, which is one of the risk factors; this is known as metastasis. Widespread metastases are the leading cause of cancer death.
Doctors seek to regulate the growth and size of these tumors in the places where they arise in order to protect human lives. The tumor stage and survival times are two aspects, as they aid doctors in determining the best treatment for their patients. As a result, determining the probability distribution of tumor size and survival durations is crucial for selecting the best treatment option.
In order to analyze the numbers of people who are diagnosed with and die from severe diseases each year, the number of people who are currently living after the diagnosis of a disease, the mean age at which a disease was diagnosed, and the number of people who are still alive at a given time after diagnosis, statistics can be used. It also gives an idea of the differences among groups defined by age, sex, racial/ethnic group, geographic location, and other categories.
One such way of analyzing the properties of the survival data or the size of the tumor is by modeling the data. Data modelling related to biological science is of utmost importance to understanding the data statistically. Over the years, many researchers have developed discrete as well as continuous distributions that help in modelling biological data. Ref. [1] developed the Marshall–Olkin Inverse Lomax distribution (MO-ILD), which is used in modeling cancer stem cells. Ref. [2] studied the weighted generalized Quasi Lindley distribution, which was studied to model COVID-19 data from Algeria and Saudi Arabia, and Ref. [3] modeled the survival times of guinea pigs infected with virulent tubercle bacilli using the Sine Half-Logistic Inverse Rayleigh distribution. With this motivation in mind, we use the existing sine-modified Lindley (S-ML) distribution developed by [4] in modelling data related to different types of cancer. We also provide optimized open source S-ML distribution codes for practitioners to use.
This paper is structured as follows. Section 2 covers a review of the existing S-ML distribution. Section 3 includes the application of the distribution to cancer data, as well as various visual presentations to back up the numbers, and Section 4 concludes the study.

2. The S-ML Distribution

In this section, a brief review of the definitions and properties of the sine generated (S-G or Sin-G in some references) family of distributions, the modified Lindley distribution, and the S-ML distribution is implemented. Due to their application and operating capability in a range of contexts, the families defined by “trigonometric transformations” have sparked a lot of interest in recent years. The sinusoidal transformation that contributes to the S-G family was initially studied by [5].

2.1. S-G Family of Distributions

The corresponding basic definitions of the associated distribution function (DF) and PDF given, respectively, by 
F S G ( y ; γ ) = sin π 2 G y ; γ , y R
and
f S G ( y ; η ) = π 2 g y ; γ cos π 2 G y ; γ , y R
where G ( y ; γ ) and g ( y ; γ ) are the DF and PDF of a certain continuous distribution with parameter vector denoted by γ , respectively. These functions are linked to a reference or parent distribution that the practitioner determines ahead of time based on the study’s goals. The S-G family is well-known as a potential parent family alternative. Without introducing extra parameters, the following stochastic ordering holds: G ( y ; γ ) F S G ( y ; γ ) for every y R . The S-G family provides the capability to develop flexible statistical models that can handle a variety of data. The recent works on the S-G family include the sine Lindley and the sine exponential distribution introduced by [6], the transformed S-G family studied by [7], the sine Topp Leone-G family of distributions developed by [8], sine Kumaraswamy-G family introduced by [9], the sine extended odd Fréchet-G family of distributions studied by [10], and the sine power Lomax model by [11].
Ref. [4] improved the S-G family’s performance by applying it to a specific one-parameter distribution established by [12]: the modified Lindley (ML) distribution. The S-ML distribution was developed as a result.

2.2. Modified Lindley Distribution

The ML distribution proposed by [12] is made possible by applying the tuning function e β y , β > 0 to the Lindley distribution with the goal of boosting its capabilities in a variety of domains. As a result, the ML distribution is defined by the DF expressed as follows:
G M L ( y ; β ) = 1 1 + β y 1 + β e β y e β y , y > 0 .
The PDF is given by
g M L ( y ; β ) = β 1 + β e 2 β y 1 + β e β y + 2 β y 1 , y > 0 ,
respectively, with  β > 0 , and  G M L ( y ; β ) = g M L ( y ; β ) = 0 for y 0 .
The ML distribution adapts to rising, reverse bathtub, and constant hazard rates and is a mixture of the exponential and gamma distributions with parameters β and (2, 2 β ).
The practical benefit is very significant; for the three data sets shown in [12], the ML model outperforms the Lindley and exponential models. The wrapped modified Lindley distribution proposed by [13] and the inverted modified Lindley distribution proposed by [14] are two examples of improvements to the ML distribution.

2.3. S-ML Distribution

The corresponding DF and PDF of the S-ML distribution, respectively,
F S - M L ( y ; β ) = cos π 2 1 + e β y y β 1 + β e β y , y > 0
and
f S - M L ( y ; β ) = π 2 β 1 + β e 2 β y 1 + β e β y + 2 y β 1 sin π 2 1 + e β y y β 1 + β e β x , y > 0 ,
with β > 0 , and  F S - M L ( y ; β ) = f S - M L ( y ; β ) = 0 for y 0 .
By varying the value of β , different variants of f S - M L ( y ; β ) can be obtained. Figure 1 depicts the most representative of them.
We can imply from Figure 1, that for
  • smaller values of β , local increasing shape are seen; the distribution is unimodal,
  • larger values of β , the plot of f S - M L ( y ; β ) decreases and is leptokurtic in shape.
The shapes of the S-ML probability density function (PDF) are found to be adaptable to different shapes, being unimodal, decreasing, and right-skewed.
The S-ML distribution has also been shown to exhibit a non-monotonic hazard rate function (HRF), depicting an increasing-reverse bathtub-constant shape. The distribution’s applicability and adaptability make it very appealing for modeling data from various fields and [4] has proved that the model stands strong against twelve other competent distributions, such as the generalized beta type 2 distribution introduced by [15], the Lomax distribution studied by [16], and the lognormal distribution developed by [17] in modelling data related to weather and engineering.

3. Applications

In the statistical literature on life-testing experiments, numerous distributions have been developed. Some of which can be used to model the increase or decrease in failure rates, while others can model bathtub and upside-down bathtub failure rates, and still others can do both. We have examined a few distributions in this case, which include the S-ML distribution against the sine-Lindley distribution (S-Lindley) defined by [18], the sine-exponential (S-Expo) distribution studied by [6], the inverse Lindley distribution (IL) introduced by [19], and the exponential (Expo) distribution as seen in [20].
The PDF and DF of the competing models used against the S-ML model are displayed in Table 1.

3.1. Methodology

  • We begin by investigating the descriptive measures of the modeled data-sets, which include the mean ( μ ), median (M), standard deviation ( σ ), skewness ( γ 1 ) and the kurtosis ( γ 2 ).
  • A statistical analysis is conducted on the data-sets with the help of the statistical software [21]. The statistical analysis includes evaluating the estimate ( β ^ ) of the data by the method of maximum likelihood estimation, the related standard error (SE), and other statistical measures such as the goodness-of-fit (GOF) test statistics including Akaike Information criterion (AIC), Bayesian information criterion (BIC) along with Anderson Darling statistic ( A ), Cramér-von Mises statistic ( w ) and Kolmgrov–Smirnov statistic ( D n ) with its correspondig p-value. The AIC is defined to be
    AIC = 2 k 2 l l ,
    the BIC is given by
    BIC = k log ( n ) 2 l l ,
    where l l denotes the log-likelihood function taken at the maximum likelihood estimate, n denotes the number of data and k represents the numver of model parameters.
    The model with the highest p-value and the lowest values for D n , w , and  A , as well as the AIC and BIC values, is the best fit for the data. It will be highlighted in the coming numerical tables with the blue color. The software R is used to conduct the estimation.
  • Finally, for a visual representation, the empirical probability density function (EPDF) plots and the empirical cumulative density function (ECDF) plots, accompanied by the box plot and total time on test (TTT) plot, are displayed. The box plot gives a visual representation of the descriptive measures of the data and the TTT plot, proved useful for gaining information about the hazard form of the data. In many real-world situations, there is qualitative information about the shape of the failure rate function that might help in the selection of a particular distribution. The TTT plot has a convex shape for decreasing HRF and a concave shape for increasing HRF.

3.2. Survival Times of Growth Hormone Medication

The first data set consists of the estimated time from growth hormone medication until the children reached the target age in the Programa Hormonal de Secretaria de Saude de Minas Gerais in 2009, as reported in [22].
A summary of the measures of descriptive statistics is provided in Table 2 with the box and TTT plots plotted in Figure 2.
Table 3 provides β ^ , the SE and the GOF metrics of the survival times of growth hormone medication.
Statistical Analysis—Based on the information in Table 2, we can conclude that the data are positively skewed and mesokurtic, as evidenced by the box plot in Figure 2. The TTT plot of the survival times of the data set is displayed in Figure 2. It shows an increasing HRF plot. In addition, analysis of the data set shows that the evaluated model (S-ML) is the best model throughout all elements of the model selection criteria, such as the increasing hazard function. The S-ML model has a higher p-value and minimum values for the test statistics including the AIC, BIC, A , w , and D n values, as shown in Table 3. The EPDF and ECDF plots are given in Figure 3.
The plots in Figure 3 display that the S-ML and S-Lindley models give a better fit to the data set than the S-Lindley, S-Expo, IL, and Expo models.

3.3. Survival Times of Guinea Pigs Data

This data set was originally studied by [23], which has also been analyzed previously by [24]. The data set represents the survival times of n = 72 guinea pigs injected with different doses of tuberculosis bacilli. The main concern of this data set is to predict the survival times of the guinea pigs because they have a high susceptibility to human tuberculosis.
A summary of measures of descriptive statistics is provided in Table 4 with the box and TTT plots displayed in Figure 4.
Table 5 displays β ^ , the SE and the GOF metrics for the survival times of guinea pigs.
Statistical AnalysisTable 4 informs us that the data are right-skewed and leptokurtic, as demonstrated by a graphical representation of the box plot in Figure 4. Figure 4 also illustrates the TTT plot of this data set. It displays an increasing HRF plot. Moreover, analysis of the data set implies that the S-ML distribution is the best model among the other competitive models, when statistical GOF criteria and the increasing HRF are considered. We can observe from Table 5, that the S-ML distribution has minimum values for the test statistics with a higher p-value and least values for GOF metrics. The EPDF and ECDF plots are displayed in Figure 5.
From Figure 5, we can also confirm this suitability behavior, as the plots of S-ML and S-Lindley distribution trace the shape of the data very well. We can conclude from Table 5 and Figure 5 that the S-ML model perfectly describes the survival times of guinea pigs.

3.4. Size of Tumors in Lung Cancer Patients

A swelling or tumor arises when the cells in the lungs expand at an abnormally fast rate, which can lead to lung cancer. It is possible to identify that and see if its spread to other organs based on a variety of indicators. One of these characteristics is tumor stage, which aids doctors in determining the best treatment for their patients. The tumor size is used to determine the staging system. The data show the tumor size of 76 lung cancer patients at Tanta University’s chest hospital, sixty of whom are in stage I, seven in stage II, and the rest in stage III.
A summary of measures of descriptive statistics is provided in Table 6 with the box and TTT plots plotted in Figure 6.
Table 7 displays β ^ , the SE and the GOF metrics of the tumor size of the lung cancer patients.
Statistical Analysis—From Table 6, we see that the data are right-skewed and leptokurtic. This is proved in a graphical display of the box plot in Figure 6. Figure 6 shows the TTT plot of this data set. It illustrates an increasing HRF plot. From Table 7, the S-ML model has minimum values for D n and higher p-value with least values for AIC and BIC. The EPDF and ECDF plots are illustrated in Figure 7.
The plots in Figure 7 show that S-ML distribution captures the shape of the histogram of the data set. We can conclude from Table 7 and Figure 7 that the S-ML distribution can be used to model this data set related to the size of tumors in lung cancer patients.

4. Conclusions

In this paper, we have extended the applications of the sine-modified Lindley (S-ML) distribution developed by [4] to model biomedical data. The distribution yields the benefits of both the modified Lindley and S-G distributional functionalities. It was used to investigate the distribution of tumor size, patients diagnosed with cancer’s survival durations, and medications provided. The AIC, BIC, and test statistics such as A , w , and  D n with their associated p-values are used to select the best-fitting model. These metrics are supported by a visual representation of how well the S-ML model fits the data, such as a box plot or a TTT plot. We believe the findings are superior to other competing distributions for modeling biomedical data and can be used to model a range of other biological data. We have also included the data sets and R codes for all of the figures in the paper, as well as all of the estimations, and the tests carried out. We refer readers to the Appendix A for these R codes.

Author Contributions

Conceptualization, L.T., V.G. and C.C.; methodology, L.T., V.G. and C.C.; software, L.T., V.G. and C.C.; validation, L.T., V.G. and C.C.; formal analysis, L.T., V.G. and C.C.; investigation, L.T., V.G. and C.C.; resources, L.T., V.G. and C.C.; data curation, L.T., V.G. and C.C.; writing—original draft preparation, L.T., V.G. and C.C.; writing—review and editing, L.T., V.G. and C.C.; visualization, L.T., V.G. and C.C. All authors have read and agreed to the published version of the manuscript.

Funding

This research received no external funding.

Acknowledgments

We would like to thank the two referees for the constructive comments on the paper.

Conflicts of Interest

The authors declare no conflict of interest.

Appendix A

In this section, we have included the code to analyze data set 1, using the software R. The codes for the graphs in the data analysis are also plotted.

Appendix A.1. Data Sets

Data set 1
(2.15, 2.20, 2.55, 2.56, 2.63, 2.74, 2.81, 2.90, 3.05, 3.41, 3.43, 3.43, 3.84, 4.16, 4.18, 4.36, 4.42, 4.51, 4.60, 4.61, 4.75, 5.03, 5.10, 5.44, 5.90, 5.96, 6.77, 7.82, 8.00, 8.16, 8.21, 8.72, 10.40, 13.20, 13.70)
Data set 2
(12, 15, 22, 24, 24, 32, 32, 33, 34, 38, 38, 43, 44, 48, 52, 53, 54, 54, 55, 56, 57, 58, 58,59, 60, 60, 60, 60, 61, 62, 63, 65, 65, 67, 68, 70, 70, 72, 73, 75, 76, 76, 81, 83, 84, 85, 87, 91, 95, 96,98, 99, 109, 110, 121, 127, 129, 131, 143, 146, 146, 175, 175, 211, 233, 258, 258, 263, 297, 341, 341, 376)
Data set 3
(0.96, 1.06, 1.09, 1.16, 1.19, 1.20, 1.32, 1.33, 1.40, 1.42, 1.46, 1.49, 1.51, 1.52, 1.54, 1.57, 1.59, 1.68, 1.70, 1.70, 1.76, 1.76, 1.77, 1.80, 1.81, 1.86, 1.89, 1.89, 1.94, 2.20, 2.20, 2.22, 2.36, 2.36, 2.39, 2.41, 2.45, 2.69, 2.71, 2.73, 2.77, 2.80, 2.83, 2.87, 2.94, 2.98, 3.03, 3.04, 3.19, 3.31, 3.57, 3.73, 4.17, 4.27, 4.30, 4.36, 4.45, 4.79, 4.85, 4.97, 5.26, 5.33, 5.53, 5.55, 5.91, 6.25, 6.31, 7.62, 7.84, 8.49, 8.63, 8.99, 9.94, 10.43, 10.86, 11.18)

Appendix A.2. Graphics for the PDF of S-ML Distribution

x= 0:10
f= function(x,p) #defining the pdf of S-ML model
{
(((pi/2)*(p/(1+p))*exp(-2*p*x))*(((1+p)*exp(p*x))+(2*p*x)-1)*sin((pi/2)*
(1+(exp(-p*x)*((p*x)/(1+p))))*exp(-p*x)))
}
curve(f(x,p= 5),col="yellow",xlab="x", ylim=c(0,1),ylab="pdf",lwd=2 )
curve(f(x,p= 15),col="pink",  lwd=2,  add= TRUE)
curve(f(x,p= 50),col="purple",  lwd=2,  add= TRUE)
curve(f(x,p=100),col="orange",  lwd=2, add= TRUE)
legend("topright",legend=c(expression(paste(beta," = ",5)),
expression(paste(beta," = ",15)),
expression(paste(beta, " = ",50)),
expression(paste(beta, " = ",100))),
ncol=1, col=c("yellow","pink","purple", "orange"),
lwd=c(2,2,2,2), cex=c(1,1,1,1),text.width = 0.1, inset=0.011, bty ="n")
### In the same way, we can plot the pdf for other beta~values.

Appendix A.3. Parameter Estimate along with GOF Metrics

install.packages (c("EstimationTools", "MASS", "plyr" ))
library(EstimationTools)
library(MASS)
library(plyr)
# Data set 1
st = c(2.15, 2.20, 2.55, 2.56, 2.63, 2.74, 2.81, 2.90, 3.05, 3.41, 3.43,
 3.43, 3.84, 4.16, 4.18, 4.36, 4.42, 4.51, 4.60, 4.61, 4.75, 5.03, 5.10,
 5.44, 5.90, 5.96, 6.77, 7.82, 8.00, 8.16, 8.21, 8.72, 10.40, 13.20, 13.70)
# S-ML distribution
dSml = function(x, p, log = FALSE)  #log of pdf of S-ML model
{
n=count(x)
loglik <- (log(pi/2)+log(p)-log(1+p)-(2*p*x)+log((1+p)*exp(x*p)*(2*p*x)-1)+
log(sin((pi/2)*(1+exp(-p*x)*(p*x)/(1+p))*exp(-x*p))))
if ( log == FALSE)
density <- exp(loglik)
else density <- loglik
return(density)
}
theta <- maxlogL(x =st, dist = "dSml",start = 0.59)
summary(theta)
# S-Lindley~distribution
dSL = function(x, p, log = FALSE) #log of pdf of S-Lindley model
{
n=count(x)
loglik <- (log(pi/2)+log(p^2)+log(1+x)-log(1+p)-(p*x)+
log(sin((pi/2)*(1+((x*p)/(1+p)))*exp(-x*p))))
if ( log == FALSE)
density <- exp(loglik)
else density <- loglik
return(density)
}
theta <- maxlogL(x =st, dist = "dSL",start = 0.59)
summary(theta)
# SE distribution
dSE = function(x, p, log = FALSE)  #log of pdf of SE model
{
n=count(x)
loglik <- (log(pi/2)+log(p)-(p*x)+log(sin((pi/2)*exp(-x*p))))
if ( log == FALSE)
density <- exp(loglik)
else density <- loglik
return(density)
}
theta <- maxlogL(x =st, dist = "dSE",start = 0.59)
summary(theta)
#IL distribution
dIL = function(x,p, log = FALSE)
{
n=count(x)
loglik <- (2*log(p))-log(1+p)-(p/x)+log(1+x)-(3*log(x))
if ( log == FALSE)
density <- exp(loglik)
else density <- loglik
return(density)
}
theta <- maxlogL(x =st, dist = "dIL",start = 0.65)
summary(theta)
#Exp distribution
dE = function(x,p, log = FALSE)  #log of pdf of Expo model
{
n=count(x)
loglik <- log(dexp(x, p, log = FALSE))
if ( log == FALSE)
density <- exp(loglik)
else density <- loglik
return(density)
}
st = c(2.15, 2.20, 2.55, 2.56, 2.63, 2.74, 2.81, 2.90, 3.05, 3.41, 3.43,
 3.43, 3.84, 4.16, 4.18, 4.36, 4.42, 4.51, 4.60, 4.61, 4.75, 5.03, 5.10,
 5.44, 5.90, 5.96, 6.77, 7.82, 8.00, 8.16, 8.21, 8.72, 10.40, 13.20, 13.70)
theta <- maxlogL(x =st, dist = "dE",start =  0.6)
summary(theta)

Appendix A.4. KS Test Statistic, p-Value and Other Test Statistics

install.packages ("goftest")
library(goftest)
y = c(2.15, 2.20, 2.55, 2.56, 2.63, 2.74, 2.81, 2.90, 3.05, 3.41, 3.43,
 3.43, 3.84, 4.16, 4.18, 4.36, 4.42, 4.51, 4.60, 4.61, 4.75, 5.03, 5.10,
 5.44, 5.90, 5.96, 6.77, 7.82, 8.00, 8.16, 8.21, 8.72, 10.40, 13.20, 13.70)
# S-ML~CDF
pSml = function(x,p)
{
p =   0.14870
cos((pi/2)*(1+(exp(-p*x)*(x*p)/(1+p)))*exp(-p*x))
}
ks1=ad1=cvm1=NULL
ks1=ks.test(y,pSml)
ad1=ad.test(y,pSml)
cvm1=cvm.test(y,pSml)
result1=c(ks1$statistic,ks1$p.value,ad1$statistic,ad1$p.value,
cvm1$statistic,cvm1$p.value)
# S-Lindley~CDF
pSL = function(x,p)
{
p =   0.22660
cos((pi/2)*(1+((x*p)/(1+p)))*exp(-p*x))
}
ks1=ad1=cvm1=NULL
ks1=ks.test(y,pSL)
ad1=ad.test(y,pSL)
cvm1=cvm.test(y,pSL)
result1=c(ks1$statistic,ks1$p.value,ad1$statistic,ad1$p.value,
cvm1$statistic,cvm1$p.value)
# S-Expo CDF
pSe = function(x,p)
{
p =   0.10780
cos((pi/2)*exp(-p*x))
}
ks1=ad1=cvm1=NULL
ks1=ks.test(y,pSe)
ad1=ad.test(y,pSe)
cvm1=cvm.test(y,pSe)
result1=c(ks1$statistic,ks1$p.value,ad1$statistic,ad1$p.value,
cvm1$statistic,cvm1$p.value)
#IL distribution
pIL = function(x,p)
{
p =    4.9096
(1 + (p/((1+p)*x)))*exp(-p/x)
}
ks1=ad1=cvm1=NULL
ks1=ks.test(y,pIL)
ad1=ad.test(y,pIL)
cvm1=cvm.test(y,pIL)
result1=c(ks1$statistic,ks1$p.value,ad1$statistic,ad1$p.value,
cvm1$statistic,cvm1$p.value)
# Expo~CDF
pEx = function(x,p)
{
p =   0.18848
pexp(x,p)
}
ks1=ad1=cvm1=NULL
ks1=ks.test(y,pEx)
ad1=ad.test(y,pEx)
cvm1=cvm.test(y,pEx)
result1=c(ks1$statistic,ks1$p.value,ad1$statistic,ad1$p.value,
cvm1$statistic,cvm1$p.value)

Appendix A.5. Graphics—To Plot the EPDF for the First Data Set

x = c(2.15, 2.20, 2.55, 2.56, 2.63, 2.74, 2.81, 2.90, 3.05, 3.41, 3.43,
3.43, 3.84, 4.16, 4.18, 4.36, 4.42, 4.51, 4.60, 4.61, 4.75, 5.03, 5.10,
5.44, 5.90, 5.96, 6.77, 7.82, 8.00, 8.16, 8.21, 8.72, 10.40, 13.20, 13.70)
hist(x,prob=T,main="Histogram and estimated PDFs",
col="pink", ylab = "PDF",ylim=c(0,0.05), bty ="n")
p = 0.14870 ## parameter estimate of S-ML model
curve(((pi/2)*(p/(1+p))*(exp(-2*p*x))*((1+p)*exp(p*x)+(2*x*p)-1)*
(sin((pi/2)*(1+exp(-p*x)*((x*p)/(1+p)))*exp(-x*p)))),col="blue",lwd=3,
add=T)
p = 0.22660 # parameter estimate of S-Lindley
curve(((pi/2)*((p^2)/(1+p))*(1+x)*exp(-p*x)*(sin((pi/2)*
(1+((x*p)/(1+p)))*exp(-x*p)))), col="green",lwd = 3, add=T)
p = 0.10780 # parameter estimate of S-Expo
curve(((pi/2)*(p*exp(-p*x))*(sin((pi/2)*exp(-x*p)))), col="orange",
lwd = 3, add=T)
p = 4.9096 # parameter estimate of IL
curve((((p^2)/(1+p))*((1+x)/x^3)*exp(-p/x)),col="red",lwd = 3, add=T)
p =  0.18848 # parameter estimate of Expo
curve(dexp(x,p), col="yellow", lwd = 3, add = T)
legend("topright",legend = c("S-ML","S-Lindley","S-Expo","IL","Expo"),
ncol = 1,
col= c("blue","green","orange","red","yellow"),lty =1,lwd=3,
text.width = 2.5 , inset= 0.00005, bty ="n")

Appendix A.6. Graphics—To Plot the ECDF for the First Data Set

 y = c(2.15, 2.20, 2.55, 2.56, 2.63, 2.74, 2.81, 2.90, 3.05, 3.41, 3.43,
 3.43, 3.84, 4.16, 4.18, 4.36, 4.42, 4.51, 4.60, 4.61, 4.75, 5.03, 5.10,
 5.44, 5.90, 5.96, 6.77, 7.82, 8.00, 8.16, 8.21, 8.72, 10.40, 13.20, 13.70)
plot(ecdf(y) , verticals=TRUE, main="Empirical and estimated CDFs",
 ylab="CDF", xlab="x", bty ="n")
p = 0.14870 # parameter estimate of S-ML
curve((cos((pi/2)*(1+(exp(-p*x)*((x*p)/(1+p))))*exp(-p*x))),col="blue",
lwd=3, add=T)
p = 0.22660 # parameter estimate of S-Lindley
curve((cos((pi/2)*(1+((x*p)/(1+p)))*exp(-p*x))), col="green",lwd = 3,
add=T)
p = 0.010780 # parameter estimate of S-Expo
curve((cos((pi/2)*exp(-p*x))),col="orange",lwd = 3, add=T)
p = 4.9096 # parameter estimate of IL
curve(((1 + (p/((1+p)*x)))*exp(-p/x)),col="red",lwd = 3, add=T)
p = 0.18848 # parameter estimate of Expo
curve(pexp(x,p), col="yellow", lwd = 3, add = T)
legend("topleft",legend = c("S-ML","S-Lindley","S-Expo","IL","Expo"),
ncol = 1,
col= c("blue","green","orange","red","yellow"),lty =1,lwd=3,
text.width = 2.5 , inset= 0.00005, bty ="n")
#######

Appendix A.7. Graphics: Bar Plot and TTT Plot for First Data Set

###Bar plot
x = c(2.15, 2.20, 2.55, 2.56, 2.63, 2.74, 2.81, 2.90, 3.05, 3.41, 3.43,
3.43, 3.84, 4.16, 4.18, 4.36, 4.42, 4.51, 4.60, 4.61, 4.75, 5.03, 5.10,
5.44, 5.90, 5.96, 6.77, 7.82, 8.00, 8.16, 8.21, 8.72, 10.40, 13.20, 13.70)
boxplot(x,main = "Tumour size of lung cancer patients",
col = "orange",  border="brown",horizontal = TRUE,notch = TRUE)
###TTT plot
install.packages ("AdequacyModel")
library(AdequacyModel)
TTT(x, lwd = 2, lty 2, col = "red", grid=FALSE)
############################

References

  1. Maxwell, O.; Chukwu, A.U.; Oyamakin, O.S.; Khaleel, M.A. The Marshall–Olkin inverse Lomax distribution (MO-ILD) with application on cancer stem cell. J. Adv. Math. Comput. Sci. 2019, 33, 1–12. [Google Scholar] [CrossRef]
  2. Benchiha, S.; Al-Omari, A.I.; Alotaibi, N.; Shrahili, M. Weighted generalized quasi Lindley distribution: Different methods of estimation, applications for COVID-19 and engineering data. AIMS Math. 2021, 6, 11850–11878. [Google Scholar] [CrossRef]
  3. Shrahili, M.; Elbatal, I.; Elgarhy, M. Sine Half-Logistic Inverse Rayleigh Distribution: Properties, Estimation, and Applications in Biomedical Data. J. Math. 2021, 2021, 4220479. [Google Scholar] [CrossRef]
  4. Tomy, L.; G, V.; Chesneau, C. The sine modified Lindley distribution. Math. Comput. Appl. 2021, 26, 81. [Google Scholar] [CrossRef]
  5. Souza, L.; Junior, W.R.O.; de Brito, C.C.R.; Chesneau, C.; Ferreira, T.A.E.; Soares, L. On the Sin-G class of distributions: Theory, model and application. J. Math. Model. 2019, 7, 357–379. [Google Scholar]
  6. Kumar, D.; Singh, U.; Singh, S.K. A new distribution using sine function—Its application to bladder cancer patients data. J. Stat. Appl. Probab. 2015, 4, 417. [Google Scholar]
  7. Jamal, F.; Chesneau, C.; Bouali, D.L.; Ul Hassan, M. Beyond the Sin-G family: The transformed Sin-G family. PLoS ONE 2021, 16, e0250790. [Google Scholar] [CrossRef] [PubMed]
  8. Al-Babtain, A.A.; Elbatal, I.; Chesneau, C.; Elgarhy, M. Sine Topp-Leone-G family of distributions: Theory and applications. Open Phys. 2020, 18, 574–593. [Google Scholar] [CrossRef]
  9. Chesneau, C.; Jamal, F. The sine Kumaraswamy-G family of distributions. J. Math. Ext. 2020, 15, 1–33. [Google Scholar]
  10. Jamal, F.; Chesneau, C.; Aidi, K. The sine extended odd Fréchet-G family of distribution with applications to complete and censored data. Math. Slovaca 2021, 71, 961–982. [Google Scholar] [CrossRef]
  11. Nagarjuna, V.B.; Vardhan, R.V.; Chesneau, C. On the accuracy of the sine power Lomax model for data fitting. Modelling 2021, 2, 78–104. [Google Scholar] [CrossRef]
  12. Chesneau, C.; Tomy, L.; Gillariose, J. A new modified Lindley distribution with properties and applications. J. Stat. Manag. Syst. 2021, 24, 1383–1403. [Google Scholar] [CrossRef]
  13. Chesneau, C.; Tomy, L.; Jose, M. Wrapped modified Lindley distribution. J. Stat. Manag. Syst. 2021, 24, 1025–1040. [Google Scholar] [CrossRef]
  14. Chesneau, C.; Tomy, L.; Gillariose, J.; Jamal, F. The inverted modified Lindley distribution. J. Stat. Theory Pract. 2020, 14, 46. [Google Scholar] [CrossRef]
  15. Kalbfleisch, J.D.; Prentice, R.L. The Statistical Analysis of Failure Time Data; Wiley: New York, NY, USA, 1980. [Google Scholar]
  16. Lomax, K.S. Business Failures: Another Example of the Analysis of Failure Data. J. Am. Stat. Assoc. 1954, 49, 847–852. [Google Scholar] [CrossRef]
  17. Aitchison, J.; Brown, J.A.C. The Lognormal Distribution; Cambridge University Press: Cambridge, UK, 1957. [Google Scholar]
  18. Kumar, D.; Singh, U.; Singh, S.K.; Chaurasia, P.K. Statistical properties and application of a lifetime model using sine function. Int. J. Creat. Res. Thoughts (IJCRT) 2018, 6, 993–1002. [Google Scholar]
  19. Sharma, V.K.; Singh, S.K.; Singh, U.; Agiwal, V. The inverse Lindley distribution: A stress-strength reliability model with application to head and neck cancer data. J. Ind. Prod. Eng. 2015, 32, 162–173. [Google Scholar] [CrossRef]
  20. Johnson, N.L.; Kotz, S.; Balakrishnan, N. Continuous Univariate Distributions; John Wiley & Sons: Hoboken, NJ, USA, 1995; Volume 2. [Google Scholar]
  21. R Development Core Team. R: A Language and Environment for Statistical Computing; R Foundation for Statistical Computing: Vienna, Austria, 2005; ISBN 3-900051-07-0. [Google Scholar]
  22. Alizadeh, M.; Bagheri, S.; Bahrami, S.E.; Ghobadi, S.; Nadarajah, S. Exponentiated power Lindley power series class of distributions: Theory and applications. Commun. Stat. Simul. Comput. 2018, 47, 2499–2531. [Google Scholar] [CrossRef]
  23. Bjerkedal, T. Acquisition of resistance in guinea pigs infected with different doses of virulent tubercle bacilli. Am. J. Hyg. 1960, 72, 130–148. [Google Scholar] [PubMed]
  24. Gupta, R.C.; Kannan, N.; RayChoudhuri, A. Analysis of lognormal survival data. Math. Biosci. 1997, 139, 103–115. [Google Scholar] [CrossRef]
Figure 1. Illustration of f S - M L ( y ; β ) with selected values of β .
Figure 1. Illustration of f S - M L ( y ; β ) with selected values of β .
Mca 27 00043 g001
Figure 2. Box plot and TTT plot for the survival times of growth hormone medication.
Figure 2. Box plot and TTT plot for the survival times of growth hormone medication.
Mca 27 00043 g002
Figure 3. The EPDF and ECDF plot for the survival times of growth hormone medication.
Figure 3. The EPDF and ECDF plot for the survival times of growth hormone medication.
Mca 27 00043 g003
Figure 4. Box plot and TTT plot for the survival times of guinea pigs.
Figure 4. Box plot and TTT plot for the survival times of guinea pigs.
Mca 27 00043 g004
Figure 5. EPDF and ECDF plots for the survival times of Guinea pigs.
Figure 5. EPDF and ECDF plots for the survival times of Guinea pigs.
Mca 27 00043 g005
Figure 6. Box plot and TTT plot of the tumor size of the lung cancer patients.
Figure 6. Box plot and TTT plot of the tumor size of the lung cancer patients.
Mca 27 00043 g006
Figure 7. The EPDF and ECDF plot for the size of the tumor of the lung cancer patients.
Figure 7. The EPDF and ECDF plot for the size of the tumor of the lung cancer patients.
Mca 27 00043 g007
Table 1. DF and PDF of the competitive models used against the S-ML model.
Table 1. DF and PDF of the competitive models used against the S-ML model.
ModelDFPDF
S-Lindley cos π 2 1 + y β 1 + β e β y π 2 β 2 1 + β 1 + y e β y sin π 2 1 + β y 1 + β e β y
S-Expo cos π 2 e β y π 2 β sin π 2 e β y e β y
IL 1 + β y 1 + β e β / y β 2 1 + β 1 + y y 3 e β / y
Expo 1 e β y β e β y
Table 2. Descriptive statistics of survival times of growth hormone medication.
Table 2. Descriptive statistics of survival times of growth hormone medication.
μ M σ γ 1 γ 2
5.9795.2602.8100.8513.119
Table 3. β ^ , SE and GOF metrics of the survival times of growth hormone medication.
Table 3. β ^ , SE and GOF metrics of the survival times of growth hormone medication.
Distribution β ^ SEAICBIC A w D n p-Value
S-ML0.148700.01672170.8874172.44281.54240.231950.19780.1291
S-Lindley0.226600.02426173.38174.93531.8660.294740.220650.06620
S-Expo0.107800.01691185.8088187.3644.08240.771770.319260.00159
IL4.90960.7251186.918188.47334.62620.87020.29050.00542
Exp0.188480.03186188.8149190.37034.48910.858310.333170.00084
Table 4. Descriptive statistics of the survival times of guinea pigs.
Table 4. Descriptive statistics of the survival times of guinea pigs.
μ M σ γ 1 γ 2
99.8270.0081.111.7962455.614
Table 5. β ^ , SE and GOF metrics for the survival times of guinea pigs.
Table 5. β ^ , SE and GOF metrics for the survival times of guinea pigs.
Distribution β ^ SEAICBIC A w D n p-Value
S-ML0.00827800.0006544791.9648794.24152.0220.36380.143890.1014
S-Lindley0.0133290.001003795.0701797.34682.65940.50200.166290.03728
S-Expo0.005670.0006084805.7007807.97733.87410.682840.196290.0077
IL61.0667.084807.3371809.61374.5900.83160.18450.01479
Expo0.0100180.001169808.8843811.16094.4720.80590.21150.00317
Table 6. Descriptive statistics of the tumor size of the lung cancer patients.
Table 6. Descriptive statistics of the tumor size of the lung cancer patients.
μ M σ γ 1 γ 2
3.5312.7002.5701.4424.269
Table 7. β ^ , SE and GOF metrics of the tumor size of the lung cancer patients.
Table 7. β ^ , SE and GOF metrics of the tumor size of the lung cancer patients.
Distribution β ^ SEAICBIC A w D n p-Value
S-ML0.219160.02031324.8085327.13931.91640.27330.12390.1934
S-Lindley0.32010.02373329.8057332.13652.33030.33210.150540.06381
S-Expo0.160630.01724341.6504343.98124.53240.73840.23030.00063
IL2.96400.2832337.1246339.45545.38440.90860.18230.01278
Expo0.283130.03248345.8022348.1335.26710.88840.24610.0002
Publisher’s Note: MDPI stays neutral with regard to jurisdictional claims in published maps and institutional affiliations.

Share and Cite

MDPI and ACS Style

Tomy, L.; G, V.; Chesneau, C. Applications of the Sine Modified Lindley Distribution to Biomedical Data. Math. Comput. Appl. 2022, 27, 43. https://doi.org/10.3390/mca27030043

AMA Style

Tomy L, G V, Chesneau C. Applications of the Sine Modified Lindley Distribution to Biomedical Data. Mathematical and Computational Applications. 2022; 27(3):43. https://doi.org/10.3390/mca27030043

Chicago/Turabian Style

Tomy, Lishamol, Veena G, and Christophe Chesneau. 2022. "Applications of the Sine Modified Lindley Distribution to Biomedical Data" Mathematical and Computational Applications 27, no. 3: 43. https://doi.org/10.3390/mca27030043

Article Metrics

Back to TopTop