<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE article PUBLIC "-//NLM//DTD JATS (Z39.96) Journal Publishing DTD v1.0 20120330//EN" "JATS-journalpublishing1.dtd">
<article xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:xlink="http://www.w3.org/1999/xlink" article-type="research-article">
<front>
<journal-meta>
<journal-id journal-id-type="publisher-id">NEJSDS</journal-id>
<journal-title-group><journal-title>The New England Journal of Statistics in Data Science</journal-title></journal-title-group>
<issn pub-type="ppub">2693-7166</issn><issn-l>2693-7166</issn-l>
<publisher>
<publisher-name>New England Statistical Society</publisher-name>
</publisher>
</journal-meta>
<article-meta>
<article-id pub-id-type="publisher-id">NEJSDS49</article-id>
<article-id pub-id-type="doi">10.51387/23-NEJSDS49</article-id>
<article-categories>
<subj-group subj-group-type="heading"><subject>Software Tutorial and/or Review</subject></subj-group>
<subj-group subj-group-type="area"><subject>Software</subject></subj-group>
</article-categories>
<title-group>
<article-title>Sparse Estimation in Finite Mixture of Accelerated Failure Time and Mixture of Regression Models with R Package fmrs</article-title>
</title-group>
<contrib-group>
<contrib contrib-type="author">
<contrib-id contrib-id-type="orcid">https://orcid.org/0000-0002-6224-2609</contrib-id>
<name><surname>Shokoohi</surname><given-names>Farhad</given-names></name><email xlink:href="mailto:farhad.shokoohi@unlv.edu">farhad.shokoohi@unlv.edu</email><xref ref-type="aff" rid="j_nejsds49_aff_001"/>
</contrib>
<aff id="j_nejsds49_aff_001">Department of Mathematical Sciences, <institution>University of Nevada-Las Vegas</institution>, <country>Las Vegas, USA</country>. E-mail address: <email xlink:href="mailto:farhad.shokoohi@unlv.edu">farhad.shokoohi@unlv.edu</email></aff>
</contrib-group>
<pub-date pub-type="ppub"><year>2024</year></pub-date><pub-date pub-type="epub"><day>23</day><month>10</month><year>2023</year></pub-date><volume>2</volume><issue>3</issue><fpage>339</fpage><lpage>356</lpage><supplementary-material id="S1" content-type="archive" xlink:href="nejsds49_s001.zip" mimetype="application" mime-subtype="x-zip-compressed">
<caption>
<title>Supplementary Material</title>
<p>Supplementary materials are available online with this paper at the New England Journal of Statistics in Data Science website which includes version 2.0.1 of the <bold>fmrs</bold> package, the <sans-serif>R</sans-serif> and <sans-serif>Python</sans-serif> codes as well as simulated datasets (’<monospace>CodesAndData.zip</monospace>’ file) for reproducibility and simulation studies.</p>
</caption>
</supplementary-material><history><date date-type="accepted"><day>4</day><month>9</month><year>2023</year></date></history>
<permissions><copyright-statement>© 2024 New England Statistical Society</copyright-statement><copyright-year>2024</copyright-year>
<license license-type="open-access" xlink:href="http://creativecommons.org/licenses/by/4.0/">
<license-p>Open access article under the <ext-link ext-link-type="uri" xlink:href="http://creativecommons.org/licenses/by/4.0/">CC BY</ext-link> license.</license-p></license></permissions>
<abstract>
<p>Variable selection in large-dimensional data has been extensively studied in different settings over the past decades. In a recent article, Shokoohi et. al. [<xref ref-type="bibr" rid="j_nejsds49_ref_029">29</xref>, DOI:10.1214/18-AOAS1198] proposed a method for variable selection in finite mixture of accelerated failure time regression models for studies on time-to-event data to capture heterogeneity within the population and account for censoring. In this paper, we introduce the <bold>fmrs</bold> package, which implements the variable selection methodology for such models. Furthermore, as a byproduct, the <bold>fmrs</bold> package facilitates variable selection in finite mixture regression models. The package also incorporates a tuning parameter selection mechanism based on component-wise <sc>bic</sc>. Commonly used penalties, such as Least Absolute Shrinkage and Selection Operator, and Smoothly Clipped Absolute Deviation, are integrated into <bold>fmrs</bold>. Additionally, the package offers an option for non-mixture regression models. The <sans-serif>C</sans-serif> language is chosen to boost the optimization speed. We provide an overview of the <bold>fmrs</bold> principles and the strategies employed for optimization. Hands-on illustrations are presented to help users get acquainted with <bold>fmrs</bold>. Finally, we apply <bold>fmrs</bold> to a lung cancer dataset and observe that a two-component mixture model reveals a subgroup with a more aggressive form of the disease, displaying a lower survival time.</p>
</abstract>
<kwd-group>
<label>Keywords and phrases</label>
<kwd>Feature selection</kwd>
<kwd>Penalized likelihood</kwd>
<kwd>The EM algorithm</kwd>
<kwd>Survival model</kwd>
<kwd>Lung Cancer</kwd>
</kwd-group>
<funding-group><award-group><funding-source xlink:href="https://doi.org/10.13039/100007162">University of Nevada - Las Vegas</funding-source><award-id>PG18929</award-id></award-group><funding-statement>Farhad Shokoohi is supported by the University of Nevada - Las Vegas, through the Startup Grant PG18929.</funding-statement></funding-group>
</article-meta>
</front>
<body>
<sec id="j_nejsds49_s_001">
<label>1</label>
<title>Introduction</title>
<p>Over the last two decades, the variable selection problem has been the center of attention in many research areas due to the surge of high-dimensional data resulting from advances in modern technologies. A recent study in epigenetics by The Cancer Genome Atlas network on the relationship between the survival time of ovarian cancer patients and their <sc>dna</sc> methylation profile of genomic features, for instance, has a complex structure with 396 observations and at least 9,000 covariates. Approximately 28% of the data are right censored and there are some signs of heterogeneity. These data motivated the development of new methodologies for capturing possible heterogeneity while accounting for right censoring in the finite mixture of accelerated failure time regression (<sc>fmaftr</sc>) models [<xref ref-type="bibr" rid="j_nejsds49_ref_029">29</xref>]. Because of the novelty of this research, there was no software package to be used in such situations. Thus, the <bold>fmrs</bold> package aims to provide a tool for variable selection and estimation in <sc>fmaftr</sc>. As a byproduct, variable selection in the finite mixture of regression (<sc>fmr</sc>) models [<xref ref-type="bibr" rid="j_nejsds49_ref_024">24</xref>] can be carried out using this package. This is because the likelihood of <sc>fmr</sc> is proportional to that of <sc>fmaftr</sc> when all observations are actually failure times. For ease of reference, we use the term “<sc>fmr</sc>s” to refer to both <sc>fmaftr</sc> and <sc>fmr</sc> hereafter, hence the name of the <bold>fmrs</bold> package.</p>
<p>There are several packages that focus on estimation and inference in finite mixture models. The <bold>mixtools</bold> package [<xref ref-type="bibr" rid="j_nejsds49_ref_002">2</xref>] provides a collection of <sans-serif>R</sans-serif> functions for fitting univariate and multivariate finite mixture models, primarily focusing on two-component mixture models without covariates. It covers parametric, nonparametric, and Bayesian approaches in mixture models. The <bold>EMMIXuskew</bold> package [<xref ref-type="bibr" rid="j_nejsds49_ref_021">21</xref>] estimates the parameters of finite mixtures of unrestricted multivariate skew-<italic>t</italic> distributions. The <bold>mixsmsn</bold> package [<xref ref-type="bibr" rid="j_nejsds49_ref_026">26</xref>] estimates the parameters of finite mixture models with components belonging to the class of scale mixtures of the skew-Normal distribution. The <bold>FlexMix</bold> package [<xref ref-type="bibr" rid="j_nejsds49_ref_013">13</xref>] performs parametric inference in finite mixture models, including concomitant variable models and varying and constant parameters for the component-specific generalized linear regression models. The <bold>CAMAN</bold> package [<xref ref-type="bibr" rid="j_nejsds49_ref_028">28</xref>] focuses on the analysis of finite semiparametric mixtures. The <bold>CensMix</bold> package [<xref ref-type="bibr" rid="j_nejsds49_ref_027">27</xref>] employs parameter estimation in censored linear regression models, where random errors follow a finite mixture of Normal or Student-<italic>t</italic> distributions.</p>
<p>For Bayesian approaches to fitting mixture models, there are several packages available, such as <bold>BayesMixSurv</bold> [<xref ref-type="bibr" rid="j_nejsds49_ref_023">23</xref>], <bold>BayesH</bold> [<xref ref-type="bibr" rid="j_nejsds49_ref_030">30</xref>], <bold>BayesCR</bold> [<xref ref-type="bibr" rid="j_nejsds49_ref_011">11</xref>], <bold>Ultimixt</bold> [<xref ref-type="bibr" rid="j_nejsds49_ref_018">18</xref>], and <bold>CUB</bold> [<xref ref-type="bibr" rid="j_nejsds49_ref_015">15</xref>], among others.</p>
<p>Some packages focusing on model-based clustering, unsupervised, supervised, and semi-supervised classification include <bold>mclust</bold> [<xref ref-type="bibr" rid="j_nejsds49_ref_010">10</xref>], <bold>GMCM</bold> [<xref ref-type="bibr" rid="j_nejsds49_ref_005">5</xref>], and <bold>Rmixmod</bold> [<xref ref-type="bibr" rid="j_nejsds49_ref_020">20</xref>]. The <bold>GLDEX</bold> package [<xref ref-type="bibr" rid="j_nejsds49_ref_032">32</xref>] considers fitting the mixture of generalized Lambda distributions. The <bold>MitISEM</bold> package [<xref ref-type="bibr" rid="j_nejsds49_ref_001">1</xref>] analyzes data assuming a mixture of Student-<italic>t</italic> distributions using the Importance Sampling weighted expectation–maximization (EM) algorithm. The <bold>MixGHD</bold> [<xref ref-type="bibr" rid="j_nejsds49_ref_033">33</xref>] deals with the mixture of generalized Hyperbolic distributions, providing results for model-based clustering, classification, and discriminant analysis. When dealing with missing values, the <bold>MixAll</bold> package [<xref ref-type="bibr" rid="j_nejsds49_ref_016">16</xref>] offers algorithms and methods for fitting parametric mixture models to mixed data. The <bold>SMNCensReg</bold> package [<xref ref-type="bibr" rid="j_nejsds49_ref_012">12</xref>] implements right, left, or interval-censored regression models under the family of scale mixture of Normal distributions, including Normal, Student-<italic>t</italic>, Pearson VII, Slash, or Contaminated Normal.</p>
<p>In addition to mixture models, there are approaches focusing on <sc>aft</sc> regression and semi-parametric survival models. For example, authors in [<xref ref-type="bibr" rid="j_nejsds49_ref_017">17</xref>] reviewed a semi-parametric <sc>aft</sc> model for the analysis of right censored data, and the <bold>spsurv</bold> package [<xref ref-type="bibr" rid="j_nejsds49_ref_025">25</xref>] provides tools for semi-parametric survival analysis.</p>
<p>Lastly, for <sc>aft</sc> models with unspecified error distribution, the <bold>aftgee</bold> package [<xref ref-type="bibr" rid="j_nejsds49_ref_008">8</xref>] is available and can provide robust solutions when parameter interpretability is not the main concern.</p>
<p>For a comprehensive list of packages that focus on cluster analysis and finite mixture models, refer to <uri>https://CRAN.R-project.org/view=Cluster</uri>.</p>
<p>To the best of our knowledge, there is currently no package available for variable selection in finite mixture of accelerated failure time regression models. The only package that focuses on variable selection in <sc>fmr</sc> models, although without censoring, is <bold>fmrlasso</bold> by [<xref ref-type="bibr" rid="j_nejsds49_ref_031">31</xref>]. However, this package is limited to the Least Absolute Shrinkage and Selection Operator (<sc>lasso</sc>) penalty and common tuning parameter. The package is implemented using <sans-serif>R</sans-serif> as the base code and functions. It is worth noting that packages written in <sans-serif>R</sans-serif> are often, if not always, less computationally efficient compared to those written in <sans-serif>C</sans-serif> for the same purpose. This inefficiency becomes more pronounced when analyzing large datasets.</p>
<p>There are several reasons why we have chosen to develop another software package for mixture models. Firstly, most of the previously mentioned packages primarily focus on non-regression mixture models. Secondly, with the exception of <bold>fmrlasso</bold>, none of them provide variable selection capabilities specifically for <sc>fmr</sc>s. Thirdly, none of the existing implementations address the case when the data are censored. Apart from these reasons, many of the mentioned packages are developed for specific applications and lack the flexibility to choose different subsets of variables for different components of the mixture model. Our package has been designed to address this limitation, allowing the inclusion of pre-specified subsets of covariates in the model. Additionally, our package offers the option for non-mixture regression as well.</p>
<p>To ensure standardized objects, the <bold>fmrs</bold> package is designed using S4 classes and methods [<xref ref-type="bibr" rid="j_nejsds49_ref_006">6</xref>, <xref ref-type="bibr" rid="j_nejsds49_ref_007">7</xref>] and provides standard outputs. While S3 is simpler and easier to handle, S4 is a formal object-oriented system that allows for dispatching on multiple arguments and provides formal class definitions with helper functions for defining generics and methods. As all the base functions are implemented in <sans-serif>C</sans-serif>, the <bold>fmrs</bold> package offers reasonable speed. In this paper, all computations were performed using version 2.0.1 of the <bold>fmrs</bold> package and version 4.3.0 of <sans-serif>R</sans-serif>. Updates and future releases of the latest version of the <bold>fmrs</bold> package will be available on the <italic>Bioconductor - Open Source Software for Bioinformatics</italic>, at <uri>https://bioconductor.org/packages/fmrs/</uri>. An up-to-date version of this paper is also included as a vignette within the package.</p>
<p>The remainder of this paper is organized as follows. In the subsequent sections, we provide the theoretical background of <sc>fmr</sc>s, including estimation and variable selection methods. We catalog the functions, penalties, distributions, as well as a comprehensive list of arguments and controls implemented in the package. Furthermore, we offer illustrative guidelines on how to use the <bold>fmrs</bold> package by employing simulated datasets and comparing it with competing methods. We then present a real data analysis conducted on patients with lung cancer. Finally, we provide concluding remarks and outline the roadmap for future extensions of the <bold>fmrs</bold> package.</p>
</sec>
<sec id="j_nejsds49_s_002">
<label>2</label>
<title>Models and Methods</title>
<p>We consider sparse estimation, i.e., estimation and variable selection, in two families of mixture models: <sc>fmaftr</sc> and <sc>fmr</sc>. We briefly describe each of these models and then present maximum likelihood estimation (<sc>mle</sc>) and maximum penalized likelihood estimation (<sc>mple</sc>).</p>
<sec id="j_nejsds49_s_003">
<label>2.1</label>
<title>Finite Mixture of Accelerated Failure Time Regression Models</title>
<p>Let <italic>X</italic> be the survival time with support <inline-formula id="j_nejsds49_ineq_001"><alternatives><mml:math>
<mml:mi mathvariant="script">X</mml:mi>
<mml:mo stretchy="false">⊂</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="double-struck">R</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>+</mml:mo>
</mml:mrow>
</mml:msup></mml:math><tex-math><![CDATA[$\mathcal{X}\subset {\mathbb{R}^{+}}$]]></tex-math></alternatives></inline-formula> and let <inline-formula id="j_nejsds49_ineq_002"><alternatives><mml:math>
<mml:mi mathvariant="bold-italic">Z</mml:mi>
<mml:mo>=</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">Z</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>1</mml:mn>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mo>…</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">Z</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">d</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:mo>⊤</mml:mo>
</mml:mrow>
</mml:msup>
<mml:mo stretchy="false">∈</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="double-struck">R</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">d</mml:mi>
</mml:mrow>
</mml:msup></mml:math><tex-math><![CDATA[$\boldsymbol{Z}={({Z_{1}},\dots ,{Z_{d}})^{\top }}\in {\mathbb{R}^{d}}$]]></tex-math></alternatives></inline-formula> be a vector of covariates that may have an effect on <italic>X</italic>. Define <inline-formula id="j_nejsds49_ineq_003"><alternatives><mml:math>
<mml:mi mathvariant="italic">T</mml:mi>
<mml:mo>=</mml:mo>
<mml:mo movablelimits="false">min</mml:mo>
<mml:mo fence="true" stretchy="false">{</mml:mo>
<mml:mi mathvariant="italic">Y</mml:mi>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="italic">C</mml:mi>
<mml:mo fence="true" stretchy="false">}</mml:mo></mml:math><tex-math><![CDATA[$T=\min \{Y,C\}$]]></tex-math></alternatives></inline-formula>, where <inline-formula id="j_nejsds49_ineq_004"><alternatives><mml:math>
<mml:mi mathvariant="italic">Y</mml:mi>
<mml:mo>=</mml:mo>
<mml:mo movablelimits="false">log</mml:mo>
<mml:mi mathvariant="italic">X</mml:mi></mml:math><tex-math><![CDATA[$Y=\log X$]]></tex-math></alternatives></inline-formula> and <italic>C</italic> is the logarithm of the censoring time, which is assumed to be noninformative and independent of <italic>X</italic>. Additionally, we use <italic>δ</italic> to denote the censoring indicator, i.e., <inline-formula id="j_nejsds49_ineq_005"><alternatives><mml:math>
<mml:mi mathvariant="italic">δ</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>0</mml:mn></mml:math><tex-math><![CDATA[$\delta =0$]]></tex-math></alternatives></inline-formula> if the time is censored. It is important to note that we do not directly observe <italic>X</italic> (or equivalently <italic>Y</italic>); instead, the observed data are <inline-formula id="j_nejsds49_ineq_006"><alternatives><mml:math>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">T</mml:mi>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="italic">δ</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo></mml:math><tex-math><![CDATA[$(T,\delta )$]]></tex-math></alternatives></inline-formula>.</p>
<p>We say <inline-formula id="j_nejsds49_ineq_007"><alternatives><mml:math>
<mml:mi mathvariant="italic">V</mml:mi>
<mml:mo>=</mml:mo>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">T</mml:mi>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="italic">δ</mml:mi>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="bold-italic">Z</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo></mml:math><tex-math><![CDATA[$V=(T,\delta ,\boldsymbol{Z})$]]></tex-math></alternatives></inline-formula> follows a finite mixture of <sc>aft</sc> regression models of order <italic>K</italic> if the conditional density of <inline-formula id="j_nejsds49_ineq_008"><alternatives><mml:math>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">T</mml:mi>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="italic">δ</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo></mml:math><tex-math><![CDATA[$(T,\delta )$]]></tex-math></alternatives></inline-formula> given <inline-formula id="j_nejsds49_ineq_009"><alternatives><mml:math>
<mml:mi mathvariant="bold-italic">Z</mml:mi>
<mml:mo>=</mml:mo>
<mml:mi mathvariant="bold-italic">z</mml:mi></mml:math><tex-math><![CDATA[$\boldsymbol{Z}=\boldsymbol{z}$]]></tex-math></alternatives></inline-formula> has the form: 
<disp-formula id="j_nejsds49_eq_001">
<label>(2.1)</label><alternatives><mml:math display="block">
<mml:mtable displaystyle="true" columnalign="right left" columnspacing="0pt">
<mml:mtr>
<mml:mtd class="align-odd">
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="italic">f</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>∗</mml:mo>
</mml:mrow>
</mml:msup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">t</mml:mi>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="italic">δ</mml:mi>
<mml:mo>;</mml:mo>
<mml:mi mathvariant="bold-italic">z</mml:mi>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="bold">Ψ</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mtd>
<mml:mtd class="align-even">
<mml:mo>=</mml:mo>
<mml:munderover accentunder="false" accent="false">
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mo largeop="true" movablelimits="false">∑</mml:mo></mml:mstyle>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">K</mml:mi>
</mml:mrow>
</mml:munderover>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">π</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:msup>
<mml:mrow>
<mml:mo fence="true" stretchy="false">[</mml:mo>
<mml:mi mathvariant="italic">f</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">t</mml:mi>
<mml:mo>;</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">θ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="bold-italic">z</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo fence="true" stretchy="false">]</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">δ</mml:mi>
</mml:mrow>
</mml:msup>
<mml:msup>
<mml:mrow>
<mml:mo fence="true" stretchy="false">[</mml:mo>
<mml:mi mathvariant="italic">S</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">t</mml:mi>
<mml:mo>;</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">θ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="bold-italic">z</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo fence="true" stretchy="false">]</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:mn>1</mml:mn>
<mml:mo>−</mml:mo>
<mml:mi mathvariant="italic">δ</mml:mi>
</mml:mrow>
</mml:msup>
</mml:mtd>
</mml:mtr>
<mml:mtr>
<mml:mtd class="align-odd"/>
<mml:mtd class="align-even">
<mml:mspace width="2em"/>
<mml:mo>×</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mo fence="true" stretchy="false">[</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">f</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">C</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">t</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo fence="true" stretchy="false">]</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:mn>1</mml:mn>
<mml:mo>−</mml:mo>
<mml:mi mathvariant="italic">δ</mml:mi>
</mml:mrow>
</mml:msup>
<mml:msup>
<mml:mrow>
<mml:mo fence="true" stretchy="false">[</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">S</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">C</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">t</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo fence="true" stretchy="false">]</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">δ</mml:mi>
</mml:mrow>
</mml:msup>
<mml:mo>.</mml:mo>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[\begin{aligned}{}{f^{\ast }}(t,\delta ;\boldsymbol{z},\boldsymbol{\Psi })& ={\sum \limits_{k=1}^{K}}{\pi _{k}}{[f(t;{\theta _{k}}(\boldsymbol{z}),{\sigma _{k}})]^{\delta }}{[S(t;{\theta _{k}}(\boldsymbol{z}),{\sigma _{k}})]^{1-\delta }}\\ {} & \hspace{2em}\times {[{f_{C}}(t)]^{1-\delta }}{[{S_{C}}(t)]^{\delta }}.\end{aligned}\]]]></tex-math></alternatives>
</disp-formula> 
Here, the <inline-formula id="j_nejsds49_ineq_010"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">π</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub></mml:math><tex-math><![CDATA[${\pi _{k}}$]]></tex-math></alternatives></inline-formula>s (<inline-formula id="j_nejsds49_ineq_011"><alternatives><mml:math>
<mml:mn>0</mml:mn>
<mml:mo mathvariant="normal">&lt;</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">π</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal">&lt;</mml:mo>
<mml:mn>1</mml:mn></mml:math><tex-math><![CDATA[$0\lt {\pi _{k}}\lt 1$]]></tex-math></alternatives></inline-formula>, with <inline-formula id="j_nejsds49_ineq_012"><alternatives><mml:math>
<mml:msubsup>
<mml:mrow>
<mml:mo largeop="false" movablelimits="false">∑</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">K</mml:mi>
</mml:mrow>
</mml:msubsup>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">π</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn></mml:math><tex-math><![CDATA[${\textstyle\sum _{k=1}^{K}}{\pi _{k}}=1$]]></tex-math></alternatives></inline-formula>) are the mixing probabilities, and <inline-formula id="j_nejsds49_ineq_013"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">f</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">C</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mo>.</mml:mo>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo></mml:math><tex-math><![CDATA[${f_{C}}(.)$]]></tex-math></alternatives></inline-formula> and <inline-formula id="j_nejsds49_ineq_014"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">S</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">C</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mo>.</mml:mo>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo></mml:math><tex-math><![CDATA[${S_{C}}(.)$]]></tex-math></alternatives></inline-formula> are the density and survival functions of <italic>C</italic>, respectively. Note that <inline-formula id="j_nejsds49_ineq_015"><alternatives><mml:math>
<mml:mi mathvariant="italic">f</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mo>.</mml:mo>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo></mml:math><tex-math><![CDATA[$f(.)$]]></tex-math></alternatives></inline-formula> and <inline-formula id="j_nejsds49_ineq_016"><alternatives><mml:math>
<mml:mi mathvariant="italic">S</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mo>.</mml:mo>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo></mml:math><tex-math><![CDATA[$S(.)$]]></tex-math></alternatives></inline-formula> are the density and survival functions of <italic>Y</italic>, where <inline-formula id="j_nejsds49_ineq_017"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">θ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="bold-italic">z</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo>=</mml:mo>
<mml:mi mathvariant="italic">h</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>0</mml:mn>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>+</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">z</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>⊤</mml:mo>
</mml:mrow>
</mml:msup>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo></mml:math><tex-math><![CDATA[${\theta _{k}}(\boldsymbol{z})=h({\beta _{0k}}+{\boldsymbol{z}^{\top }}{\boldsymbol{\beta }_{k}})$]]></tex-math></alternatives></inline-formula>. In this equation, <inline-formula id="j_nejsds49_ineq_018"><alternatives><mml:math>
<mml:mi mathvariant="italic">h</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mo>.</mml:mo>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo></mml:math><tex-math><![CDATA[$h(.)$]]></tex-math></alternatives></inline-formula> is a known link function, <inline-formula id="j_nejsds49_ineq_019"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>0</mml:mn>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub></mml:math><tex-math><![CDATA[${\beta _{0k}}$]]></tex-math></alternatives></inline-formula> and <inline-formula id="j_nejsds49_ineq_020"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>=</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
<mml:mn>1</mml:mn>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
<mml:mn>2</mml:mn>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mo>…</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
<mml:mi mathvariant="italic">d</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:mo>⊤</mml:mo>
</mml:mrow>
</mml:msup></mml:math><tex-math><![CDATA[${\boldsymbol{\beta }_{k}}={({\beta _{k1}},{\beta _{k2}},\dots ,{\beta _{kd}})^{\top }}$]]></tex-math></alternatives></inline-formula> are the intercept and regression coefficients, respectively, and <inline-formula id="j_nejsds49_ineq_021"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub></mml:math><tex-math><![CDATA[${\sigma _{k}}$]]></tex-math></alternatives></inline-formula> is a dispersion parameter.</p>
<p>It is worth noting that for each component of the mixture specified in (<xref rid="j_nejsds49_eq_001">2.1</xref>), say the <italic>k</italic>th component, we have: 
<disp-formula id="j_nejsds49_eq_002">
<alternatives><mml:math display="block">
<mml:mtable displaystyle="true">
<mml:mtr>
<mml:mtd>
<mml:mi mathvariant="italic">Y</mml:mi>
<mml:mo>=</mml:mo>
<mml:mo movablelimits="false">log</mml:mo>
<mml:mi mathvariant="italic">X</mml:mi>
<mml:mo>=</mml:mo>
<mml:mi mathvariant="italic">h</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>0</mml:mn>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>+</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">z</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>⊤</mml:mo>
</mml:mrow>
</mml:msup>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo>=</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>0</mml:mn>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>+</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">z</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>⊤</mml:mo>
</mml:mrow>
</mml:msup>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>+</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mi mathvariant="italic">ϵ</mml:mi>
<mml:mo>.</mml:mo>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[ Y=\log X=h({\beta _{0k}}+{\boldsymbol{z}^{\top }}{\boldsymbol{\beta }_{k}})={\beta _{0k}}+{\boldsymbol{z}^{\top }}{\boldsymbol{\beta }_{k}}+{\sigma _{k}}\epsilon .\]]]></tex-math></alternatives>
</disp-formula> 
Here, <italic>ϵ</italic> has a suitable distribution such as standard normal, extreme value, generalized extreme value, or logistic. A common <sc>aft</sc> model in survival analysis is based on the Log-Normal distribution [<xref ref-type="bibr" rid="j_nejsds49_ref_019">19</xref>] in which <inline-formula id="j_nejsds49_ineq_022"><alternatives><mml:math>
<mml:mi mathvariant="italic">ϵ</mml:mi>
<mml:mo stretchy="false">∼</mml:mo>
<mml:mi mathvariant="italic">N</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mn>0</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo></mml:math><tex-math><![CDATA[$\epsilon \sim N(0,1)$]]></tex-math></alternatives></inline-formula>.</p>
<p>The vector of all parameters is: 
<disp-formula id="j_nejsds49_eq_003">
<alternatives><mml:math display="block">
<mml:mtable displaystyle="true">
<mml:mtr>
<mml:mtd>
<mml:mi mathvariant="bold">Ψ</mml:mi>
<mml:mo>=</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>01</mml:mn>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mo>…</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>0</mml:mn>
<mml:mi mathvariant="italic">K</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>1</mml:mn>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mo>…</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">K</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>1</mml:mn>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mo>…</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">K</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">π</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>1</mml:mn>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mo>…</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">π</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">K</mml:mi>
<mml:mo>−</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:mo>⊤</mml:mo>
</mml:mrow>
</mml:msup>
<mml:mo mathvariant="normal">,</mml:mo>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[ \boldsymbol{\Psi }={({\beta _{01}},\dots ,{\beta _{0K}},{\boldsymbol{\beta }_{1}},\dots ,{\boldsymbol{\beta }_{K}},{\sigma _{1}},\dots ,{\sigma _{K}},{\pi _{1}},\dots ,{\pi _{K-1}})^{\top }},\]]]></tex-math></alternatives>
</disp-formula> 
which has a length of <inline-formula id="j_nejsds49_ineq_023"><alternatives><mml:math>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="italic">d</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>∗</mml:mo>
</mml:mrow>
</mml:msup>
<mml:mo>=</mml:mo>
<mml:mi mathvariant="italic">K</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">d</mml:mi>
<mml:mo>+</mml:mo>
<mml:mn>3</mml:mn>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo>−</mml:mo>
<mml:mn>1</mml:mn></mml:math><tex-math><![CDATA[${d^{\ast }}=K(d+3)-1$]]></tex-math></alternatives></inline-formula>, increasing with the order of the mixture.</p>
<p>Under the assumption of noninformative censoring, 
<disp-formula id="j_nejsds49_eq_004">
<label>(2.2)</label><alternatives><mml:math display="block">
<mml:mtable displaystyle="true">
<mml:mtr>
<mml:mtd>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="italic">f</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>∗</mml:mo>
</mml:mrow>
</mml:msup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">t</mml:mi>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="italic">δ</mml:mi>
<mml:mo>;</mml:mo>
<mml:mi mathvariant="bold-italic">z</mml:mi>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="bold">Ψ</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mspace width="-0.1667em"/>
<mml:mo stretchy="false">∝</mml:mo>
<mml:mspace width="-0.1667em"/>
<mml:msubsup>
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mo largeop="true" movablelimits="false">∑</mml:mo></mml:mstyle>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">K</mml:mi>
</mml:mrow>
</mml:msubsup>
<mml:mspace width="-0.1667em"/>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">π</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:msup>
<mml:mrow>
<mml:mo fence="true" stretchy="false">[</mml:mo>
<mml:mi mathvariant="italic">f</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">t</mml:mi>
<mml:mo>;</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">θ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="bold-italic">z</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo fence="true" stretchy="false">]</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">δ</mml:mi>
</mml:mrow>
</mml:msup>
<mml:msup>
<mml:mrow>
<mml:mo fence="true" stretchy="false">[</mml:mo>
<mml:mi mathvariant="italic">S</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">t</mml:mi>
<mml:mo>;</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">θ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="bold-italic">z</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo fence="true" stretchy="false">]</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:mn>1</mml:mn>
<mml:mo>−</mml:mo>
<mml:mi mathvariant="italic">δ</mml:mi>
</mml:mrow>
</mml:msup>
<mml:mo>.</mml:mo>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[ {f^{\ast }}(t,\delta ;\boldsymbol{z},\boldsymbol{\Psi })\hspace{-0.1667em}\propto \hspace{-0.1667em}{\sum \nolimits_{k=1}^{K}}\hspace{-0.1667em}{\pi _{k}}{[f(t;{\theta _{k}}(\boldsymbol{z}),{\sigma _{k}})]^{\delta }}{[S(t;{\theta _{k}}(\boldsymbol{z}),{\sigma _{k}})]^{1-\delta }}.\]]]></tex-math></alternatives>
</disp-formula>
</p>
</sec>
<sec id="j_nejsds49_s_004">
<label>2.2</label>
<title>Finite Mixture of Regression Models</title>
<p>Let <italic>Y</italic> be the response variable, and let <inline-formula id="j_nejsds49_ineq_024"><alternatives><mml:math>
<mml:mi mathvariant="bold-italic">Z</mml:mi>
<mml:mo>=</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">Z</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>1</mml:mn>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mo>…</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">Z</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">d</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:mo>⊤</mml:mo>
</mml:mrow>
</mml:msup></mml:math><tex-math><![CDATA[$\boldsymbol{Z}={({Z_{1}},\dots ,{Z_{d}})^{\top }}$]]></tex-math></alternatives></inline-formula> be a vector of covariates that may have an effect on <italic>Y</italic>. We say that <inline-formula id="j_nejsds49_ineq_025"><alternatives><mml:math>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">Y</mml:mi>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="bold-italic">Z</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo></mml:math><tex-math><![CDATA[$(Y,\boldsymbol{Z})$]]></tex-math></alternatives></inline-formula> follows an <sc>fmr</sc> model of order <italic>K</italic> [<xref ref-type="bibr" rid="j_nejsds49_ref_024">24</xref>] if the conditional density of <italic>Y</italic> given <inline-formula id="j_nejsds49_ineq_026"><alternatives><mml:math>
<mml:mi mathvariant="bold-italic">z</mml:mi></mml:math><tex-math><![CDATA[$\boldsymbol{z}$]]></tex-math></alternatives></inline-formula> has the form: 
<disp-formula id="j_nejsds49_eq_005">
<label>(2.3)</label><alternatives><mml:math display="block">
<mml:mtable displaystyle="true">
<mml:mtr>
<mml:mtd>
<mml:mi mathvariant="italic">f</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">y</mml:mi>
<mml:mo>;</mml:mo>
<mml:mi mathvariant="bold-italic">z</mml:mi>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="bold">Ψ</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo>=</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mo largeop="true" movablelimits="false">∑</mml:mo></mml:mstyle>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">K</mml:mi>
</mml:mrow>
</mml:msubsup>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">π</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mi mathvariant="italic">f</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">y</mml:mi>
<mml:mo>;</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">θ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="bold-italic">z</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo>.</mml:mo>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[ f(y;\boldsymbol{z},\boldsymbol{\Psi })={\sum \nolimits_{k=1}^{K}}{\pi _{k}}f(y;{\theta _{k}}(\boldsymbol{z}),{\sigma _{k}}).\]]]></tex-math></alternatives>
</disp-formula> 
It should be noted that for a given sample when all the observations are failure times, i.e., there is no censoring (<inline-formula id="j_nejsds49_ineq_027"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">δ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn></mml:math><tex-math><![CDATA[${\delta _{i}}=1$]]></tex-math></alternatives></inline-formula>), the density <inline-formula id="j_nejsds49_ineq_028"><alternatives><mml:math>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="italic">f</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>∗</mml:mo>
</mml:mrow>
</mml:msup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">t</mml:mi>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="italic">δ</mml:mi>
<mml:mo>;</mml:mo>
<mml:mi mathvariant="bold-italic">z</mml:mi>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="bold">Ψ</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo></mml:math><tex-math><![CDATA[${f^{\ast }}(t,\delta ;\boldsymbol{z},\boldsymbol{\Psi })$]]></tex-math></alternatives></inline-formula> in (<xref rid="j_nejsds49_eq_004">2.2</xref>) is proportional to the density of a finite mixture of regression models. Therefore, 
<disp-formula id="j_nejsds49_eq_006">
<label>(2.4)</label><alternatives><mml:math display="block">
<mml:mtable displaystyle="true">
<mml:mtr>
<mml:mtd>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="italic">f</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>∗</mml:mo>
</mml:mrow>
</mml:msup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">y</mml:mi>
<mml:mo>;</mml:mo>
<mml:mi mathvariant="bold-italic">z</mml:mi>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="bold">Ψ</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo stretchy="false">∝</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="italic">f</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>∗</mml:mo>
</mml:mrow>
</mml:msup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">t</mml:mi>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="italic">δ</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo>;</mml:mo>
<mml:mi mathvariant="bold-italic">z</mml:mi>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="bold">Ψ</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo>.</mml:mo>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[ {f^{\ast }}(y;\boldsymbol{z},\boldsymbol{\Psi })\propto {f^{\ast }}(t,\delta =1;\boldsymbol{z},\boldsymbol{\Psi }).\]]]></tex-math></alternatives>
</disp-formula> 
As a result, the <sc>mle</sc> of parameters of the <sc>fmr</sc> model is the same if we use the finite mixture of <sc>aft</sc> regression model with no censoring. Therefore, the <bold>fmrs</bold> package can also be used to analyze data using the <sc>fmr</sc> model.</p>
</sec>
</sec>
<sec id="j_nejsds49_s_005">
<label>3</label>
<title>Maximum Likelihood Estimation in FMRs</title>
<p>The log-likelihood of <sc>FMR</sc>s is given as 
<disp-formula id="j_nejsds49_eq_007">
<label>(3.1)</label><alternatives><mml:math display="block">
<mml:mtable displaystyle="true" columnalign="right left" columnspacing="0pt">
<mml:mtr>
<mml:mtd class="align-odd">
<mml:msub>
<mml:mrow>
<mml:mi>ℓ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="bold">Ψ</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mtd>
<mml:mtd class="align-even">
<mml:mo>=</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mo largeop="true" movablelimits="false">∑</mml:mo></mml:mstyle>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:msubsup>
<mml:mo movablelimits="false">log</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mo largeop="true" movablelimits="false">∑</mml:mo></mml:mstyle>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">K</mml:mi>
</mml:mrow>
</mml:msubsup>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">π</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:msup>
<mml:mrow>
<mml:mfenced separators="" open="[" close="]">
<mml:mrow>
<mml:mi mathvariant="italic">f</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">t</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>;</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">θ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold-italic">z</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:mfenced>
</mml:mrow>
<mml:mrow>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">δ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
</mml:mrow>
</mml:msup>
</mml:mtd>
</mml:mtr>
<mml:mtr>
<mml:mtd class="align-odd"/>
<mml:mtd class="align-even">
<mml:mspace width="2em"/>
<mml:msup>
<mml:mrow>
<mml:mfenced separators="" open="[" close="]">
<mml:mrow>
<mml:mi mathvariant="italic">S</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">t</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>;</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">θ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold-italic">z</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:mfenced>
</mml:mrow>
<mml:mrow>
<mml:mn>1</mml:mn>
<mml:mo>−</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">δ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
</mml:mrow>
</mml:msup>
<mml:mo>.</mml:mo>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[\begin{aligned}{}{\ell _{n}}(\boldsymbol{\Psi })& ={\sum \nolimits_{i=1}^{n}}\log {\sum \nolimits_{k=1}^{K}}{\pi _{k}}{\left[f({t_{i}};{\theta _{k}}({\boldsymbol{z}_{i}}),{\sigma _{k}})\right]^{{\delta _{i}}}}\\ {} & \hspace{2em}{\left[S({t_{i}};{\theta _{k}}({\boldsymbol{z}_{i}}),{\sigma _{k}})\right]^{1-{\delta _{i}}}}.\end{aligned}\]]]></tex-math></alternatives>
</disp-formula> 
The expectation–maximization (EM) algorithm is often used in the mixture of distributions to estimate model parameters. The complete log-likelihood function is then given as 
<disp-formula id="j_nejsds49_eq_008">
<alternatives><mml:math display="block">
<mml:mtable displaystyle="true" columnalign="right left" columnspacing="0pt">
<mml:mtr>
<mml:mtd class="align-odd">
<mml:msubsup>
<mml:mrow>
<mml:mi>ℓ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">c</mml:mi>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="bold">Ψ</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mtd>
<mml:mtd class="align-even">
<mml:mo>=</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mo largeop="true" movablelimits="false">∑</mml:mo></mml:mstyle>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:msubsup>
<mml:msubsup>
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mo largeop="true" movablelimits="false">∑</mml:mo></mml:mstyle>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">K</mml:mi>
</mml:mrow>
</mml:msubsup>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">u</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mfenced separators="" open="[" close="">
<mml:mrow>
<mml:mo movablelimits="false">log</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">π</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>+</mml:mo>
<mml:mo movablelimits="false">log</mml:mo>
<mml:mfenced separators="" open="{" close="">
<mml:mrow>
<mml:msup>
<mml:mrow>
<mml:mfenced separators="" open="[" close="]">
<mml:mrow>
<mml:mi mathvariant="italic">f</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">t</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>;</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">θ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold-italic">z</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:mfenced>
</mml:mrow>
<mml:mrow>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">δ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
</mml:mrow>
</mml:msup>
</mml:mrow>
</mml:mfenced>
</mml:mrow>
</mml:mfenced>
</mml:mtd>
</mml:mtr>
<mml:mtr>
<mml:mtd class="align-odd"/>
<mml:mtd class="align-even">
<mml:mspace width="2em"/>
<mml:mfenced separators="" open="" close="]">
<mml:mrow>
<mml:mfenced separators="" open="" close="}">
<mml:mrow>
<mml:msup>
<mml:mrow>
<mml:mfenced separators="" open="[" close="]">
<mml:mrow>
<mml:mi mathvariant="italic">S</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">t</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>;</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">θ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold-italic">z</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:mfenced>
</mml:mrow>
<mml:mrow>
<mml:mn>1</mml:mn>
<mml:mo>−</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">δ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
</mml:mrow>
</mml:msup>
</mml:mrow>
</mml:mfenced>
</mml:mrow>
</mml:mfenced>
<mml:mo mathvariant="normal">,</mml:mo>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[\begin{aligned}{}{\ell _{n}^{c}}(\boldsymbol{\Psi })& ={\sum \nolimits_{i=1}^{n}}{\sum \nolimits_{k=1}^{K}}{u_{ik}}\left[\log {\pi _{k}}+\log \left\{{\left[f({t_{i}};{\theta _{k}}({\boldsymbol{z}_{i}}),{\sigma _{k}})\right]^{{\delta _{i}}}}\right.\right.\\ {} & \hspace{2em}\left.\left.{\left[S({t_{i}};{\theta _{k}}({\boldsymbol{z}_{i}}),{\sigma _{k}})\right]^{1-{\delta _{i}}}}\right\}\right],\end{aligned}\]]]></tex-math></alternatives>
</disp-formula> 
where <inline-formula id="j_nejsds49_ineq_029"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">u</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub></mml:math><tex-math><![CDATA[${u_{ik}}$]]></tex-math></alternatives></inline-formula> is the latent variable indicating the membership of the <italic>i</italic>th individual to <italic>k</italic>th component of <sc>fmr</sc>s [<xref ref-type="bibr" rid="j_nejsds49_ref_029">29</xref>]. Having established the complete log-likelihood function, we follow E- and M-step.</p>
<p>In the E-step, <inline-formula id="j_nejsds49_ineq_030"><alternatives><mml:math>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">τ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo>=</mml:mo>
<mml:mi mathvariant="italic">E</mml:mi>
<mml:mfenced separators="" open="[" close="]">
<mml:mrow>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">u</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo stretchy="false">|</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="bold">Ψ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msup>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">V</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>1</mml:mn>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mo>…</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">V</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:msub>
</mml:mrow>
</mml:mfenced>
</mml:math><tex-math><![CDATA[${\tau _{ik}^{(m)}}=E\left[{u_{ik}}|{\boldsymbol{\Psi }^{(m)}},{V_{1}},\dots ,{V_{n}}\right]$]]></tex-math></alternatives></inline-formula> is the conditional expectation of the unobserved variable <inline-formula id="j_nejsds49_ineq_031"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">u</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub></mml:math><tex-math><![CDATA[${u_{ik}}$]]></tex-math></alternatives></inline-formula>, where <inline-formula id="j_nejsds49_ineq_032"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">V</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>=</mml:mo>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">T</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">δ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold-italic">Z</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo></mml:math><tex-math><![CDATA[${V_{i}}=({T_{i}},{\delta _{i}},{\boldsymbol{Z}_{i}})$]]></tex-math></alternatives></inline-formula>, and is computed as 
<disp-formula id="j_nejsds49_eq_009">
<label>(3.2)</label><alternatives><mml:math display="block">
<mml:mtable displaystyle="true">
<mml:mtr>
<mml:mtd>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">τ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo>=</mml:mo><mml:mstyle displaystyle="true">
<mml:mfrac>
<mml:mrow>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">π</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:msup>
<mml:mrow>
<mml:mfenced separators="" open="[" close="]">
<mml:mrow>
<mml:mi mathvariant="italic">f</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">t</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>;</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">θ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold-italic">z</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:mfenced>
</mml:mrow>
<mml:mrow>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">δ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
</mml:mrow>
</mml:msup>
<mml:msup>
<mml:mrow>
<mml:mfenced separators="" open="[" close="]">
<mml:mrow>
<mml:mi mathvariant="italic">S</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">t</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>;</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">θ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold-italic">z</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:mfenced>
</mml:mrow>
<mml:mrow>
<mml:mn>1</mml:mn>
<mml:mo>−</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">δ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
</mml:mrow>
</mml:msup>
</mml:mrow>
<mml:mrow>
<mml:msubsup>
<mml:mrow>
<mml:mo largeop="false" movablelimits="false">∑</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">j</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">K</mml:mi>
</mml:mrow>
</mml:msubsup>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">π</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">j</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:msup>
<mml:mrow>
<mml:mfenced separators="" open="[" close="]">
<mml:mrow>
<mml:mi mathvariant="italic">f</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">t</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>;</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">θ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">j</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold-italic">z</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">j</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:mfenced>
</mml:mrow>
<mml:mrow>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">δ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
</mml:mrow>
</mml:msup>
<mml:msup>
<mml:mrow>
<mml:mfenced separators="" open="[" close="]">
<mml:mrow>
<mml:mi mathvariant="italic">S</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">t</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>;</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">θ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">j</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold-italic">z</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">j</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:mfenced>
</mml:mrow>
<mml:mrow>
<mml:mn>1</mml:mn>
<mml:mo>−</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">δ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
</mml:mrow>
</mml:msup>
</mml:mrow>
</mml:mfrac>
</mml:mstyle>
<mml:mo>.</mml:mo>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[ {\tau _{ik}^{(m)}}=\frac{{\pi _{k}^{(m)}}{\left[f({t_{i}};{\theta _{k}^{(m)}}({\boldsymbol{z}_{i}}),{\sigma _{k}^{(m)}})\right]^{{\delta _{i}}}}{\left[S({t_{i}};{\theta _{k}^{(m)}}({\boldsymbol{z}_{i}}),{\sigma _{k}^{(m)}})\right]^{1-{\delta _{i}}}}}{{\textstyle\textstyle\sum _{j=1}^{K}}{\pi _{j}^{(m)}}{\left[f({t_{i}};{\theta _{j}^{(m)}}({\boldsymbol{z}_{i}}),{\sigma _{j}^{(m)}})\right]^{{\delta _{i}}}}{\left[S({t_{i}};{\theta _{j}^{(m)}}({\boldsymbol{z}_{i}}),{\sigma _{j}^{(m)}})\right]^{1-{\delta _{i}}}}}.\]]]></tex-math></alternatives>
</disp-formula> 
The M-step follows by maximizing <inline-formula id="j_nejsds49_ineq_033"><alternatives><mml:math>
<mml:mi mathvariant="italic">Q</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="bold">Ψ</mml:mi>
<mml:mo>;</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="bold">Ψ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo></mml:math><tex-math><![CDATA[$Q(\boldsymbol{\Psi };{\boldsymbol{\Psi }^{(m)}})$]]></tex-math></alternatives></inline-formula> using the updated <inline-formula id="j_nejsds49_ineq_034"><alternatives><mml:math>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">π</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo>=</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mo largeop="false" movablelimits="false">∑</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:msubsup>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">τ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal" stretchy="false">/</mml:mo>
<mml:mi mathvariant="italic">n</mml:mi></mml:math><tex-math><![CDATA[${\pi _{k}^{(m)}}={\textstyle\sum _{i=1}^{n}}{\tau _{ik}^{(m)}}/n$]]></tex-math></alternatives></inline-formula>, where 
<disp-formula id="j_nejsds49_eq_010">
<label>(3.3)</label><alternatives><mml:math display="block">
<mml:mtable displaystyle="true" columnalign="right left" columnspacing="0pt">
<mml:mtr>
<mml:mtd class="align-odd">
<mml:mi mathvariant="italic">Q</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="bold">Ψ</mml:mi>
<mml:mo>;</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="bold">Ψ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mtd>
<mml:mtd class="align-even">
<mml:mo>=</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mo largeop="true" movablelimits="false">∑</mml:mo></mml:mstyle>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:msubsup>
<mml:msubsup>
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mo largeop="true" movablelimits="false">∑</mml:mo></mml:mstyle>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">K</mml:mi>
</mml:mrow>
</mml:msubsup>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">τ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo movablelimits="false">log</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">π</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
</mml:mtd>
</mml:mtr>
<mml:mtr>
<mml:mtd class="align-odd"/>
<mml:mtd class="align-even">
<mml:mspace width="1em"/>
<mml:mo>+</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mo largeop="true" movablelimits="false">∑</mml:mo></mml:mstyle>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:msubsup>
<mml:msubsup>
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mo largeop="true" movablelimits="false">∑</mml:mo></mml:mstyle>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">K</mml:mi>
</mml:mrow>
</mml:msubsup>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">τ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo maxsize="1.61em" minsize="1.61em" fence="true">[</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">δ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo movablelimits="false">log</mml:mo>
<mml:mi mathvariant="italic">f</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">t</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>;</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">θ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="bold-italic">z</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mtd>
</mml:mtr>
<mml:mtr>
<mml:mtd class="align-odd"/>
<mml:mtd class="align-even">
<mml:mspace width="1em"/>
<mml:mo>+</mml:mo>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo>−</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">δ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo movablelimits="false">log</mml:mo>
<mml:mi mathvariant="italic">S</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">t</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>;</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">θ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="bold-italic">z</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo maxsize="1.61em" minsize="1.61em" fence="true">]</mml:mo>
<mml:mo>.</mml:mo>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[\begin{aligned}{}Q(\boldsymbol{\Psi };{\boldsymbol{\Psi }^{(m)}})& ={\sum \nolimits_{i=1}^{n}}{\sum \nolimits_{k=1}^{K}}{\tau _{ik}^{(m)}}\log {\pi _{k}^{(m)}}\\ {} & \hspace{1em}+{\sum \nolimits_{i=1}^{n}}{\sum \nolimits_{k=1}^{K}}{\tau _{ik}^{(m)}}\Big[{\delta _{i}}\log f({t_{i}};{\theta _{k}}(\boldsymbol{z}),{\sigma _{k}})\\ {} & \hspace{1em}+(1-{\delta _{i}})\log S({t_{i}};{\theta _{k}}(\boldsymbol{z}),{\sigma _{k}})\Big].\end{aligned}\]]]></tex-math></alternatives>
</disp-formula> 
Depending on the form of the sub-distribution, a numerical method may be required to obtain the updated estimates of <bold>Ψ</bold>. For the mixture of Log-Normal <sc>aft</sc> and the mixture of Normal models, the M-step of the algorithm has a closed-form solution, as developed below.</p>
<sec id="j_nejsds49_s_006">
<label>3.1</label>
<title>M-Step for Maximizing <inline-formula id="j_nejsds49_ineq_035"><alternatives><mml:math>
<mml:mi mathvariant="italic">Q</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mo>.</mml:mo>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo></mml:math><tex-math><![CDATA[$Q(.)$]]></tex-math></alternatives></inline-formula> Function in the Mixture of Normal and Mixture of AFT Log-Normal Distributions</title>
<p>Let <inline-formula id="j_nejsds49_ineq_036"><alternatives><mml:math>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">τ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo>=</mml:mo>
<mml:mtext>diag</mml:mtext>
<mml:mfenced separators="" open="{" close="}">
<mml:mrow>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">τ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo>:</mml:mo>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mo>…</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:mfenced>
</mml:math><tex-math><![CDATA[${\boldsymbol{\tau }_{k}^{(m)}}=\text{diag}\left\{{\tau _{ik}^{(m)}}:i=1,\dots ,n\right\}$]]></tex-math></alternatives></inline-formula>, <inline-formula id="j_nejsds49_ineq_037"><alternatives><mml:math>
<mml:mi mathvariant="italic">k</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mo>…</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="italic">K</mml:mi></mml:math><tex-math><![CDATA[$k=1,\dots ,K$]]></tex-math></alternatives></inline-formula>. Denote the pseudo-survival times as: 
<disp-formula id="j_nejsds49_eq_011">
<label>(3.4)</label><alternatives><mml:math display="block">
<mml:mtable displaystyle="true">
<mml:mtr>
<mml:mtd>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">t</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo>=</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">δ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">t</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>+</mml:mo>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo>−</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">δ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mfenced separators="" open="{" close="}">
<mml:mrow>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">z</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>⊤</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo>+</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mi mathvariant="italic">A</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">ω</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:mfenced>
<mml:mo mathvariant="normal">,</mml:mo>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[ {t_{ik}^{(m)}}={\delta _{i}}{t_{i}}+(1-{\delta _{i}})\left\{{\boldsymbol{z}_{i}^{\top }}{\boldsymbol{\beta }_{k}^{(m)}}+{\sigma _{k}^{(m)}}A({\omega _{ik}^{(m)}})\right\},\]]]></tex-math></alternatives>
</disp-formula> 
where <inline-formula id="j_nejsds49_ineq_038"><alternatives><mml:math>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">ω</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo>=</mml:mo>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">t</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>−</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">z</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>⊤</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo mathvariant="normal" stretchy="false">/</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup></mml:math><tex-math><![CDATA[${\omega _{ik}^{(m)}}=({t_{i}}-{\boldsymbol{z}_{i}^{\top }}{\boldsymbol{\beta }_{k}^{(m)}})/{\sigma _{k}^{(m)}}$]]></tex-math></alternatives></inline-formula>, <inline-formula id="j_nejsds49_ineq_039"><alternatives><mml:math>
<mml:mi mathvariant="italic">A</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">ω</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo>=</mml:mo>
<mml:mi mathvariant="italic">ϕ</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">ω</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo mathvariant="normal" stretchy="false">/</mml:mo>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo>−</mml:mo>
<mml:mi mathvariant="normal">Φ</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">ω</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo></mml:math><tex-math><![CDATA[$A(\omega )=\phi (\omega )/(1-\Phi (\omega ))$]]></tex-math></alternatives></inline-formula>, and <inline-formula id="j_nejsds49_ineq_040"><alternatives><mml:math>
<mml:mi mathvariant="italic">ϕ</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mo>.</mml:mo>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo></mml:math><tex-math><![CDATA[$\phi (.)$]]></tex-math></alternatives></inline-formula> and <inline-formula id="j_nejsds49_ineq_041"><alternatives><mml:math>
<mml:mi mathvariant="normal">Φ</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mo>.</mml:mo>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo></mml:math><tex-math><![CDATA[$\Phi (.)$]]></tex-math></alternatives></inline-formula> are the density and cumulative distribution functions of <inline-formula id="j_nejsds49_ineq_042"><alternatives><mml:math>
<mml:mi mathvariant="italic">N</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mn>0</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo></mml:math><tex-math><![CDATA[$N(0,1)$]]></tex-math></alternatives></inline-formula>, respectively. For each <inline-formula id="j_nejsds49_ineq_043"><alternatives><mml:math>
<mml:mi mathvariant="italic">k</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mn>2</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mo>…</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="italic">K</mml:mi></mml:math><tex-math><![CDATA[$k=1,2,\dots ,K$]]></tex-math></alternatives></inline-formula>, let <inline-formula id="j_nejsds49_ineq_044"><alternatives><mml:math>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">T</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo>=</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">t</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>1</mml:mn>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">t</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>2</mml:mn>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mo>…</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">t</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:mo>⊤</mml:mo>
</mml:mrow>
</mml:msup></mml:math><tex-math><![CDATA[${\boldsymbol{T}_{k}^{(m)}}={({t_{1k}^{(m)}},{t_{2k}^{(m)}},\dots ,{t_{nk}^{(m)}})^{\top }}$]]></tex-math></alternatives></inline-formula>, and let <inline-formula id="j_nejsds49_ineq_045"><alternatives><mml:math>
<mml:mi mathvariant="script">Z</mml:mi>
<mml:mo>=</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold-italic">z</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>1</mml:mn>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold-italic">z</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>2</mml:mn>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mo>…</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold-italic">z</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:mo>⊤</mml:mo>
</mml:mrow>
</mml:msup></mml:math><tex-math><![CDATA[$\mathcal{Z}={({\boldsymbol{z}_{1}},{\boldsymbol{z}_{2}},\dots ,{\boldsymbol{z}_{n}})^{\top }}$]]></tex-math></alternatives></inline-formula> be the <inline-formula id="j_nejsds49_ineq_046"><alternatives><mml:math>
<mml:mi mathvariant="italic">n</mml:mi>
<mml:mo>×</mml:mo>
<mml:mi mathvariant="italic">d</mml:mi></mml:math><tex-math><![CDATA[$n\times d$]]></tex-math></alternatives></inline-formula> dimensional design matrix. The updated estimates of the parameters for the mixture of Log-Normal <sc>aft</sc> models (when <italic>t</italic> is actually the logarithm of <italic>t</italic>) and the mixture of Normal models for <inline-formula id="j_nejsds49_ineq_047"><alternatives><mml:math>
<mml:mi mathvariant="italic">k</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mn>2</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mo>…</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="italic">K</mml:mi></mml:math><tex-math><![CDATA[$k=1,2,\dots ,K$]]></tex-math></alternatives></inline-formula> are given by 
<disp-formula id="j_nejsds49_eq_012">
<label>(3.5)</label><alternatives><mml:math display="block">
<mml:mtable displaystyle="true">
<mml:mtr>
<mml:mtd>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo>+</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo>=</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mfenced separators="" open="(" close=")">
<mml:mrow>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="script">Z</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>⊤</mml:mo>
</mml:mrow>
</mml:msup>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">τ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mi mathvariant="script">Z</mml:mi>
</mml:mrow>
</mml:mfenced>
</mml:mrow>
<mml:mrow>
<mml:mo>−</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
</mml:msup>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="script">Z</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>⊤</mml:mo>
</mml:mrow>
</mml:msup>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">τ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">T</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal">,</mml:mo>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[ {\boldsymbol{\beta }_{k}^{(m+1)}}={\left({\mathcal{Z}^{\top }}{\boldsymbol{\tau }_{k}^{(m)}}\mathcal{Z}\right)^{-1}}{\mathcal{Z}^{\top }}{\boldsymbol{\tau }_{k}^{(m)}}{\boldsymbol{T}_{k}^{(m)}},\]]]></tex-math></alternatives>
</disp-formula> 
and 
<disp-formula id="j_nejsds49_eq_013">
<label>(3.6)</label><alternatives><mml:math display="block">
<mml:mtable displaystyle="true">
<mml:mtr>
<mml:mtd>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo>+</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo>=</mml:mo>
<mml:msqrt>
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mfrac>
<mml:mrow>
<mml:msubsup>
<mml:mrow>
<mml:mo largeop="false" movablelimits="false">∑</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:msubsup>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">τ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:msup>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">t</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo>−</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">z</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>⊤</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:mn>2</mml:mn>
</mml:mrow>
</mml:msup>
</mml:mrow>
<mml:mrow>
<mml:munderover accentunder="false" accent="false">
<mml:mrow>
<mml:mo largeop="false" movablelimits="false">∑</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:munderover>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">τ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mfenced separators="" open="[" close="]">
<mml:mrow>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">δ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>+</mml:mo>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo>−</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">δ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo fence="true" stretchy="false">{</mml:mo>
<mml:mi mathvariant="italic">A</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">ω</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo fence="true" stretchy="false">[</mml:mo>
<mml:mi mathvariant="italic">A</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">ω</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo>−</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">ω</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo fence="true" stretchy="false">]</mml:mo>
<mml:mo fence="true" stretchy="false">}</mml:mo>
</mml:mrow>
</mml:mfenced>
</mml:mrow>
</mml:mfrac>
</mml:mstyle>
</mml:mrow>
</mml:msqrt>
<mml:mo>.</mml:mo>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[ {\sigma _{k}^{(m+1)}}=\sqrt{\frac{{\textstyle\textstyle\sum _{i=1}^{n}}{\tau _{ik}^{(m)}}{({t_{ik}^{(m)}}-{\boldsymbol{z}_{i}^{\top }}{\boldsymbol{\beta }_{k}^{(m)}})^{2}}}{{\textstyle\sum \limits_{i=1}^{n}}{\tau _{ik}^{(m)}}\left[{\delta _{i}}+(1-{\delta _{i}})\{A({\omega _{ik}^{(m)}})[A({\omega _{ik}^{(m)}})-{\omega _{ik}^{(m)}}]\}\right]}}.\]]]></tex-math></alternatives>
</disp-formula>
</p>
</sec>
<sec id="j_nejsds49_s_007">
<label>3.2</label>
<title>M-Step for Maximizing <inline-formula id="j_nejsds49_ineq_048"><alternatives><mml:math>
<mml:mi mathvariant="italic">Q</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mo>.</mml:mo>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo></mml:math><tex-math><![CDATA[$Q(.)$]]></tex-math></alternatives></inline-formula> Function in Mixture of AFT Weibull Distributions</title>
<p>There is no closed-form solution for parameter estimation in the Weibull distribution. Hence, we use a numerical method such as the Newton-Raphson algorithm [<xref ref-type="bibr" rid="j_nejsds49_ref_029">29</xref>]. The iterative algorithm is basically given as 
<disp-formula id="j_nejsds49_eq_014">
<alternatives><mml:math display="block">
<mml:mtable displaystyle="true">
<mml:mtr>
<mml:mtd>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>new</mml:mtext>
</mml:mrow>
</mml:msup>
<mml:mo>=</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msup>
<mml:mo>−</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="italic">I</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>−</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
</mml:msup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mspace width="2.5pt"/>
<mml:mi mathvariant="italic">U</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[ {\boldsymbol{\beta }^{\text{new}}}={\boldsymbol{\beta }^{\text{old}}}-{I^{-1}}({\boldsymbol{\beta }^{\text{old}}})\hspace{2.5pt}U({\boldsymbol{\beta }^{\text{old}}}),\]]]></tex-math></alternatives>
</disp-formula> 
where <italic>U</italic> and <italic>I</italic> are the first and second derivative functions of the log-likelihood, respectively, evaluated at <inline-formula id="j_nejsds49_ineq_049"><alternatives><mml:math>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msup></mml:math><tex-math><![CDATA[${\boldsymbol{\beta }^{\text{old}}}$]]></tex-math></alternatives></inline-formula>.</p>
<p>Let <inline-formula id="j_nejsds49_ineq_050"><alternatives><mml:math>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="italic">Y</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>∗</mml:mo>
</mml:mrow>
</mml:msup></mml:math><tex-math><![CDATA[${Y^{\ast }}$]]></tex-math></alternatives></inline-formula> follow a Weibull distribution. Then <inline-formula id="j_nejsds49_ineq_051"><alternatives><mml:math>
<mml:mi mathvariant="italic">y</mml:mi>
<mml:mo>=</mml:mo>
<mml:mo movablelimits="false">log</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="italic">y</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>∗</mml:mo>
</mml:mrow>
</mml:msup></mml:math><tex-math><![CDATA[$y=\log {y^{\ast }}$]]></tex-math></alternatives></inline-formula> follows the extreme value distribution with the probability density function (pdf) and cumulative distribution function (cdf) given by 
<disp-formula id="j_nejsds49_eq_015">
<alternatives><mml:math display="block">
<mml:mtable displaystyle="true">
<mml:mtr>
<mml:mtd>
<mml:mi mathvariant="italic">f</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">y</mml:mi>
<mml:mo>;</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">x</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>⊤</mml:mo>
</mml:mrow>
</mml:msup>
<mml:mi mathvariant="bold-italic">β</mml:mi>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="italic">σ</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mspace width="-0.1667em"/>
<mml:mo>=</mml:mo>
<mml:mspace width="-0.1667em"/><mml:mstyle displaystyle="true">
<mml:mfrac>
<mml:mrow>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
</mml:mfrac>
</mml:mstyle>
<mml:mo movablelimits="false">exp</mml:mo>
<mml:mspace width="-0.1667em"/>
<mml:mfenced separators="" open="(" close=")">
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mfrac>
<mml:mrow>
<mml:mi mathvariant="italic">y</mml:mi>
<mml:mo>−</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">x</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>⊤</mml:mo>
</mml:mrow>
</mml:msup>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
</mml:mfrac>
</mml:mstyle>
</mml:mrow>
</mml:mfenced>
<mml:mo movablelimits="false">exp</mml:mo>
<mml:mspace width="-0.1667em"/>
<mml:mfenced separators="" open="(" close=")">
<mml:mrow>
<mml:mo>−</mml:mo>
<mml:mo movablelimits="false">exp</mml:mo>
<mml:mspace width="-0.1667em"/>
<mml:mfenced separators="" open="(" close=")">
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mfrac>
<mml:mrow>
<mml:mi mathvariant="italic">y</mml:mi>
<mml:mo>−</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">x</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>⊤</mml:mo>
</mml:mrow>
</mml:msup>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
</mml:mfrac>
</mml:mstyle>
</mml:mrow>
</mml:mfenced>
</mml:mrow>
</mml:mfenced>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[ f(y;{\boldsymbol{x}^{\top }}\boldsymbol{\beta },\sigma )\hspace{-0.1667em}=\hspace{-0.1667em}\frac{1}{\sigma }\exp \hspace{-0.1667em}\left(\frac{y-{\boldsymbol{x}^{\top }}\boldsymbol{\beta }}{\sigma }\right)\exp \hspace{-0.1667em}\left(-\exp \hspace{-0.1667em}\left(\frac{y-{\boldsymbol{x}^{\top }}\boldsymbol{\beta }}{\sigma }\right)\right)\]]]></tex-math></alternatives>
</disp-formula> 
and 
<disp-formula id="j_nejsds49_eq_016">
<alternatives><mml:math display="block">
<mml:mtable displaystyle="true">
<mml:mtr>
<mml:mtd>
<mml:mi mathvariant="italic">F</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">y</mml:mi>
<mml:mo>;</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">x</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>⊤</mml:mo>
</mml:mrow>
</mml:msup>
<mml:mi mathvariant="bold-italic">β</mml:mi>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="italic">σ</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo>−</mml:mo>
<mml:mo movablelimits="false">exp</mml:mo>
<mml:mfenced separators="" open="(" close=")">
<mml:mrow>
<mml:mo>−</mml:mo>
<mml:mo movablelimits="false">exp</mml:mo>
<mml:mfenced separators="" open="(" close=")">
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mfrac>
<mml:mrow>
<mml:mi mathvariant="italic">y</mml:mi>
<mml:mo>−</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">x</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>⊤</mml:mo>
</mml:mrow>
</mml:msup>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
</mml:mfrac>
</mml:mstyle>
</mml:mrow>
</mml:mfenced>
</mml:mrow>
</mml:mfenced>
<mml:mo mathvariant="normal">,</mml:mo>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[ F(y;{\boldsymbol{x}^{\top }}\boldsymbol{\beta },\sigma )=1-\exp \left(-\exp \left(\frac{y-{\boldsymbol{x}^{\top }}\boldsymbol{\beta }}{\sigma }\right)\right),\]]]></tex-math></alternatives>
</disp-formula> 
respectively. For the <italic>k</italic>th component, we have 
<disp-formula id="j_nejsds49_eq_017">
<alternatives><mml:math display="block">
<mml:mtable displaystyle="true">
<mml:mtr>
<mml:mtd>
<mml:mi mathvariant="italic">U</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>0</mml:mn>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>;</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="bold-italic">y</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo>=</mml:mo>
<mml:mo>−</mml:mo>
<mml:munderover accentunder="false" accent="false">
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mo largeop="true" movablelimits="false">∑</mml:mo></mml:mstyle>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:munderover><mml:mstyle displaystyle="true">
<mml:mfrac>
<mml:mrow>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">t</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msubsup>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">δ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
</mml:mrow>
<mml:mrow>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msubsup>
</mml:mrow>
</mml:mfrac>
</mml:mstyle>
<mml:mo>+</mml:mo>
<mml:munderover accentunder="false" accent="false">
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mo largeop="true" movablelimits="false">∑</mml:mo></mml:mstyle>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:munderover><mml:mstyle displaystyle="true">
<mml:mfrac>
<mml:mrow>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">t</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msubsup>
</mml:mrow>
<mml:mrow>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msubsup>
</mml:mrow>
</mml:mfrac>
</mml:mstyle>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="italic">e</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mfenced separators="" open="(" close=")">
<mml:mrow>
<mml:mstyle displaystyle="false">
<mml:mfrac>
<mml:mrow>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">y</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>−</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">x</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>⊤</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msubsup>
</mml:mrow>
<mml:mrow>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msubsup>
</mml:mrow>
</mml:mfrac>
</mml:mstyle>
</mml:mrow>
</mml:mfenced>
</mml:mrow>
</mml:msup>
<mml:mo mathvariant="normal">,</mml:mo>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[ U({\beta _{0k}};{\boldsymbol{\beta }_{k}^{\text{old}}},\boldsymbol{y})=-{\sum \limits_{i=1}^{n}}\frac{{t_{ik}^{\text{old}}}{\delta _{i}}}{{\sigma _{k}^{\text{old}}}}+{\sum \limits_{i=1}^{n}}\frac{{t_{ik}^{\text{old}}}}{{\sigma _{k}^{\text{old}}}}{e^{\left(\frac{{y_{i}}-{\boldsymbol{x}_{i}^{\top }}{\boldsymbol{\beta }_{k}^{\text{old}}}}{{\sigma _{k}^{\text{old}}}}\right)}},\]]]></tex-math></alternatives>
</disp-formula> 
and 
<disp-formula id="j_nejsds49_eq_018">
<alternatives><mml:math display="block">
<mml:mtable displaystyle="true">
<mml:mtr>
<mml:mtd>
<mml:mi mathvariant="italic">U</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">j</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>;</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="bold-italic">y</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo>=</mml:mo>
<mml:mo>−</mml:mo>
<mml:munderover accentunder="false" accent="false">
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mo largeop="true" movablelimits="false">∑</mml:mo></mml:mstyle>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:munderover><mml:mstyle displaystyle="true">
<mml:mfrac>
<mml:mrow>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">t</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msubsup>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">δ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
</mml:mrow>
<mml:mrow>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msubsup>
</mml:mrow>
</mml:mfrac>
</mml:mstyle>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">x</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">j</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>+</mml:mo>
<mml:munderover accentunder="false" accent="false">
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mo largeop="true" movablelimits="false">∑</mml:mo></mml:mstyle>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:munderover><mml:mstyle displaystyle="true">
<mml:mfrac>
<mml:mrow>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">t</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msubsup>
</mml:mrow>
<mml:mrow>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msubsup>
</mml:mrow>
</mml:mfrac>
</mml:mstyle>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">x</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">j</mml:mi>
</mml:mrow>
</mml:msub>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="italic">e</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mfenced separators="" open="(" close=")">
<mml:mrow>
<mml:mstyle displaystyle="false">
<mml:mfrac>
<mml:mrow>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">y</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>−</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">x</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>⊤</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msubsup>
</mml:mrow>
<mml:mrow>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msubsup>
</mml:mrow>
</mml:mfrac>
</mml:mstyle>
</mml:mrow>
</mml:mfenced>
</mml:mrow>
</mml:msup>
<mml:mo mathvariant="normal">,</mml:mo>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[ U({\beta _{jk}};{\boldsymbol{\beta }_{k}^{\text{old}}},\boldsymbol{y})=-{\sum \limits_{i=1}^{n}}\frac{{t_{ik}^{\text{old}}}{\delta _{i}}}{{\sigma _{k}^{\text{old}}}}{x_{ij}}+{\sum \limits_{i=1}^{n}}\frac{{t_{ik}^{\text{old}}}}{{\sigma _{k}^{\text{old}}}}{x_{ij}}{e^{\left(\frac{{y_{i}}-{\boldsymbol{x}_{i}^{\top }}{\boldsymbol{\beta }_{k}^{\text{old}}}}{{\sigma _{k}^{\text{old}}}}\right)}},\]]]></tex-math></alternatives>
</disp-formula> 
for <inline-formula id="j_nejsds49_ineq_052"><alternatives><mml:math>
<mml:mi mathvariant="italic">j</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mo>…</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="italic">d</mml:mi></mml:math><tex-math><![CDATA[$j=1,\dots ,d$]]></tex-math></alternatives></inline-formula>. For the second derivatives, we have 
<disp-formula id="j_nejsds49_eq_019">
<alternatives><mml:math display="block">
<mml:mtable displaystyle="true">
<mml:mtr>
<mml:mtd>
<mml:mi mathvariant="italic">I</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">j</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">r</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>;</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="bold-italic">y</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo>=</mml:mo>
<mml:mo>−</mml:mo>
<mml:munderover accentunder="false" accent="false">
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mo largeop="true" movablelimits="false">∑</mml:mo></mml:mstyle>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:munderover><mml:mstyle displaystyle="true">
<mml:mfrac>
<mml:mrow>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">t</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msubsup>
</mml:mrow>
<mml:mrow>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msubsup>
</mml:mrow>
</mml:mfrac>
</mml:mstyle>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">x</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">j</mml:mi>
</mml:mrow>
</mml:msub>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">x</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">r</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo movablelimits="false">exp</mml:mo>
<mml:mfenced separators="" open="(" close=")">
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mfrac>
<mml:mrow>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">y</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>−</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">x</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>⊤</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msubsup>
</mml:mrow>
<mml:mrow>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msubsup>
</mml:mrow>
</mml:mfrac>
</mml:mstyle>
</mml:mrow>
</mml:mfenced>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[ I({\beta _{jk}},{\beta _{rk}};{\boldsymbol{\beta }_{k}^{\text{old}}},\boldsymbol{y})=-{\sum \limits_{i=1}^{n}}\frac{{t_{ik}^{\text{old}}}}{{\sigma _{k}^{\text{old}}}}{x_{ij}}{x_{ir}}\exp \left(\frac{{y_{i}}-{\boldsymbol{x}_{i}^{\top }}{\boldsymbol{\beta }_{k}^{\text{old}}}}{{\sigma _{k}^{\text{old}}}}\right)\]]]></tex-math></alternatives>
</disp-formula> 
and 
<disp-formula id="j_nejsds49_eq_020">
<alternatives><mml:math display="block">
<mml:mtable displaystyle="true">
<mml:mtr>
<mml:mtd>
<mml:mi mathvariant="italic">I</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">j</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>0</mml:mn>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>;</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="bold-italic">y</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo>=</mml:mo>
<mml:mo>−</mml:mo>
<mml:munderover accentunder="false" accent="false">
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mo largeop="true" movablelimits="false">∑</mml:mo></mml:mstyle>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:munderover><mml:mstyle displaystyle="true">
<mml:mfrac>
<mml:mrow>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">t</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msubsup>
</mml:mrow>
<mml:mrow>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msubsup>
</mml:mrow>
</mml:mfrac>
</mml:mstyle>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">x</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">j</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo movablelimits="false">exp</mml:mo>
<mml:mfenced separators="" open="(" close=")">
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mfrac>
<mml:mrow>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">y</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>−</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">x</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>⊤</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msubsup>
</mml:mrow>
<mml:mrow>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msubsup>
</mml:mrow>
</mml:mfrac>
</mml:mstyle>
</mml:mrow>
</mml:mfenced>
<mml:mo mathvariant="normal">,</mml:mo>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[ I({\beta _{jk}},{\beta _{0k}};{\boldsymbol{\beta }_{k}^{\text{old}}},\boldsymbol{y})=-{\sum \limits_{i=1}^{n}}\frac{{t_{ik}^{\text{old}}}}{{\sigma _{k}^{\text{old}}}}{x_{ij}}\exp \left(\frac{{y_{i}}-{\boldsymbol{x}_{i}^{\top }}{\boldsymbol{\beta }_{k}^{\text{old}}}}{{\sigma _{k}^{\text{old}}}}\right),\]]]></tex-math></alternatives>
</disp-formula> 
for <inline-formula id="j_nejsds49_ineq_053"><alternatives><mml:math>
<mml:mi mathvariant="italic">j</mml:mi>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="italic">r</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mo>…</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="italic">d</mml:mi></mml:math><tex-math><![CDATA[$j,r=1,\dots ,d$]]></tex-math></alternatives></inline-formula>, and 
<disp-formula id="j_nejsds49_eq_021">
<alternatives><mml:math display="block">
<mml:mtable displaystyle="true">
<mml:mtr>
<mml:mtd>
<mml:mi mathvariant="italic">I</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>0</mml:mn>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>0</mml:mn>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>;</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="bold-italic">y</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo>=</mml:mo>
<mml:mo>−</mml:mo>
<mml:munderover accentunder="false" accent="false">
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mo largeop="true" movablelimits="false">∑</mml:mo></mml:mstyle>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:munderover><mml:mstyle displaystyle="true">
<mml:mfrac>
<mml:mrow>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">t</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msubsup>
</mml:mrow>
<mml:mrow>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msubsup>
</mml:mrow>
</mml:mfrac>
</mml:mstyle>
<mml:mo movablelimits="false">exp</mml:mo>
<mml:mfenced separators="" open="(" close=")">
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mfrac>
<mml:mrow>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">y</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>−</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">x</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>⊤</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msubsup>
</mml:mrow>
<mml:mrow>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>old</mml:mtext>
</mml:mrow>
</mml:msubsup>
</mml:mrow>
</mml:mfrac>
</mml:mstyle>
</mml:mrow>
</mml:mfenced>
<mml:mo>.</mml:mo>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[ I({\beta _{0k}},{\beta _{0k}};{\boldsymbol{\beta }_{k}^{\text{old}}},\boldsymbol{y})=-{\sum \limits_{i=1}^{n}}\frac{{t_{ik}^{\text{old}}}}{{\sigma _{k}^{\text{old}}}}\exp \left(\frac{{y_{i}}-{\boldsymbol{x}_{i}^{\top }}{\boldsymbol{\beta }_{k}^{\text{old}}}}{{\sigma _{k}^{\text{old}}}}\right).\]]]></tex-math></alternatives>
</disp-formula>
</p>
<p>Algorithm <xref rid="j_nejsds49_fig_002">1</xref> in Appendix <xref rid="j_nejsds49_app_001">A</xref> provides instructions for obtaining <sc>mle</sc>s and Ridge estimators.</p>
<p>It is widely acknowledged that finite mixture models, specifically finite mixtures of regression models, are identifiable up to a permutation [<xref ref-type="bibr" rid="j_nejsds49_ref_014">14</xref>, <xref ref-type="bibr" rid="j_nejsds49_ref_009">9</xref>]. As a consequence, in practical applications, it is common for the estimated components to deviate from the order of the simulation setup or the true order in the population (which remains unknown). To establish the correct order, it becomes necessary to possess some knowledge about the regression coefficients’ locations and select initial values accordingly. When analyzing real data, one possible approach to rearranging the components is to consider the order of their grand means.</p>
</sec>
</sec>
<sec id="j_nejsds49_s_008">
<label>4</label>
<title>Variable Selection in FMRs</title>
<p>Having the current estimates <inline-formula id="j_nejsds49_ineq_054"><alternatives><mml:math>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="bold">Ψ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msup></mml:math><tex-math><![CDATA[${\boldsymbol{\Psi }^{(m)}}$]]></tex-math></alternatives></inline-formula>, the penalized <inline-formula id="j_nejsds49_ineq_055"><alternatives><mml:math>
<mml:mi mathvariant="italic">Q</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mo>.</mml:mo>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo></mml:math><tex-math><![CDATA[$Q(.)$]]></tex-math></alternatives></inline-formula> function is given as 
<disp-formula id="j_nejsds49_eq_022">
<label>(4.1)</label><alternatives><mml:math display="block">
<mml:mtable displaystyle="true" columnalign="right left" columnspacing="0pt">
<mml:mtr>
<mml:mtd class="align-odd">
<mml:mi mathvariant="italic">Q</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="bold">Ψ</mml:mi>
<mml:mo>;</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="bold">Ψ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mtd>
<mml:mtd class="align-even">
<mml:mo>=</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mo largeop="true" movablelimits="false">∑</mml:mo></mml:mstyle>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:msubsup>
<mml:msubsup>
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mo largeop="true" movablelimits="false">∑</mml:mo></mml:mstyle>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">K</mml:mi>
</mml:mrow>
</mml:msubsup>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">τ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo movablelimits="false">log</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">π</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
</mml:mtd>
</mml:mtr>
<mml:mtr>
<mml:mtd class="align-odd"/>
<mml:mtd class="align-even">
<mml:mspace width="1em"/>
<mml:mo>+</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mo largeop="true" movablelimits="false">∑</mml:mo></mml:mstyle>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:msubsup>
<mml:msubsup>
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mo largeop="true" movablelimits="false">∑</mml:mo></mml:mstyle>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">K</mml:mi>
</mml:mrow>
</mml:msubsup>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">τ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo maxsize="1.61em" minsize="1.61em" fence="true">[</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">δ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo movablelimits="false">log</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">f</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">Y</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">t</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>;</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">θ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="bold-italic">z</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mtd>
</mml:mtr>
<mml:mtr>
<mml:mtd class="align-odd"/>
<mml:mtd class="align-even">
<mml:mspace width="1em"/>
<mml:mo>+</mml:mo>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo>−</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">δ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo movablelimits="false">log</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">S</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">Y</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">t</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>;</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">θ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="bold-italic">z</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo maxsize="1.61em" minsize="1.61em" fence="true">]</mml:mo>
<mml:mo>−</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold">p</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold-italic">λ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:msub>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="bold">Ψ</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[\begin{aligned}{}Q(\boldsymbol{\Psi };{\boldsymbol{\Psi }^{(m)}})& ={\sum \nolimits_{i=1}^{n}}{\sum \nolimits_{k=1}^{K}}{\tau _{ik}^{(m)}}\log {\pi _{k}^{(m)}}\\ {} & \hspace{1em}+{\sum \nolimits_{i=1}^{n}}{\sum \nolimits_{k=1}^{K}}{\tau _{ik}^{(m)}}\Big[{\delta _{i}}\log {f_{Y}}({t_{i}};{\theta _{k}}(\boldsymbol{z}),{\sigma _{k}})\\ {} & \hspace{1em}+(1-{\delta _{i}})\log {S_{Y}}({t_{i}};{\theta _{k}}(\boldsymbol{z}),{\sigma _{k}})\Big]-{\mathbf{p}_{{\boldsymbol{\lambda }_{n}}}}(\boldsymbol{\Psi }),\end{aligned}\]]]></tex-math></alternatives>
</disp-formula> 
where the penalty is replaced by the local quadratic approximation 
<disp-formula id="j_nejsds49_eq_023">
<alternatives><mml:math display="block">
<mml:mtable displaystyle="true" columnalign="right left" columnspacing="0pt">
<mml:mtr>
<mml:mtd class="align-odd">
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold">p</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold-italic">λ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:msub>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="bold">Ψ</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mtd>
<mml:mtd class="align-even">
<mml:mo stretchy="false">≈</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold">p</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold-italic">λ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:msub>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="bold">Ψ</mml:mi>
<mml:mo>;</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="bold">Ψ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo>=</mml:mo>
<mml:mi mathvariant="italic">n</mml:mi>
<mml:munderover accentunder="false" accent="false">
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mo largeop="true" movablelimits="false">∑</mml:mo></mml:mstyle>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">K</mml:mi>
</mml:mrow>
</mml:munderover>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">π</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:munderover accentunder="false" accent="false">
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mo largeop="true" movablelimits="false">∑</mml:mo></mml:mstyle>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">j</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">d</mml:mi>
</mml:mrow>
</mml:munderover>
<mml:mo maxsize="1.61em" minsize="1.61em" fence="true">{</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">p</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">λ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
<mml:mi mathvariant="italic">j</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mtd>
</mml:mtr>
<mml:mtr>
<mml:mtd class="align-odd"/>
<mml:mtd class="align-even">
<mml:mspace width="1em"/>
<mml:mo>+</mml:mo><mml:mstyle displaystyle="true">
<mml:mfrac>
<mml:mrow>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">p</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">λ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
</mml:mrow>
<mml:mrow>
<mml:mo>′</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
<mml:mi mathvariant="italic">j</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:mn>2</mml:mn>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
<mml:mi mathvariant="italic">j</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
</mml:mrow>
</mml:mfrac>
</mml:mstyle>
<mml:mfenced separators="" open="(" close=")">
<mml:mrow>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
<mml:mi mathvariant="italic">j</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>2</mml:mn>
</mml:mrow>
</mml:msubsup>
<mml:mo>−</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
<mml:mi mathvariant="italic">j</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:mn>2</mml:mn>
</mml:mrow>
</mml:msup>
</mml:mrow>
</mml:mfenced>
<mml:mo maxsize="1.61em" minsize="1.61em" fence="true">}</mml:mo>
<mml:mo>.</mml:mo>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[\begin{aligned}{}{\mathbf{p}_{{\boldsymbol{\lambda }_{n}}}}(\boldsymbol{\Psi })& \approx {\mathbf{p}_{{\boldsymbol{\lambda }_{n}}}}(\boldsymbol{\Psi };{\boldsymbol{\Psi }^{(m)}})=n{\sum \limits_{k=1}^{K}}{\pi _{k}^{(m)}}{\sum \limits_{j=1}^{d}}\Big\{{p_{{\lambda _{n,k}}}}({\beta _{kj}^{(m)}})\\ {} & \hspace{1em}+\frac{{p^{\prime }_{{\lambda _{n,k}}}}({\beta _{kj}^{(m)}})}{2{\beta _{kj}^{(m)}}}\left({\beta _{kj}^{2}}-{({\beta _{kj}^{(m)}})^{2}}\right)\Big\}.\end{aligned}\]]]></tex-math></alternatives>
</disp-formula> 
The maximum penalized likelihood estimator (<sc>mple</sc>), when the sub-distributions are log-normal, is then given as 
<disp-formula id="j_nejsds49_eq_024">
<label>(4.2)</label><alternatives><mml:math display="block">
<mml:mtable displaystyle="true">
<mml:mtr>
<mml:mtd>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo>+</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo>=</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mfenced separators="" open="(" close=")">
<mml:mrow>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="script">Z</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>⊤</mml:mo>
</mml:mrow>
</mml:msup>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">τ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mi mathvariant="script">Z</mml:mi>
<mml:mo>+</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold">Σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:mfenced>
</mml:mrow>
<mml:mrow>
<mml:mo>−</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
</mml:msup>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="script">Z</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>⊤</mml:mo>
</mml:mrow>
</mml:msup>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">τ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">T</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal">,</mml:mo>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[ {\boldsymbol{\beta }_{k}^{(m+1)}}={\left({\mathcal{Z}^{\top }}{\boldsymbol{\tau }_{k}^{(m)}}\mathcal{Z}+{\boldsymbol{\Sigma }_{k}}({\boldsymbol{\beta }_{k}^{(m)}})\right)^{-1}}{\mathcal{Z}^{\top }}{\boldsymbol{\tau }_{k}^{(m)}}{\boldsymbol{T}_{k}^{(m)}},\]]]></tex-math></alternatives>
</disp-formula> 
where 
<disp-formula id="j_nejsds49_eq_025">
<alternatives><mml:math display="block">
<mml:mtable displaystyle="true">
<mml:mtr>
<mml:mtd>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold">Σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mspace width="-0.1667em"/>
<mml:mo>=</mml:mo>
<mml:mspace width="-0.1667em"/>
<mml:mtext>diag</mml:mtext>
<mml:mspace width="-0.1667em"/>
<mml:mfenced separators="" open="{" close="}">
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">π</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo>+</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">p</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">λ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>′</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
<mml:mi mathvariant="italic">j</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo mathvariant="normal" stretchy="false">/</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
<mml:mi mathvariant="italic">j</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mspace width="-0.1667em"/>
<mml:mo>:</mml:mo>
<mml:mi mathvariant="italic">j</mml:mi>
<mml:mspace width="-0.1667em"/>
<mml:mo>=</mml:mo>
<mml:mspace width="-0.1667em"/>
<mml:mn>1</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mn>2</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mo>…</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="italic">d</mml:mi>
</mml:mrow>
</mml:mfenced>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[ {\boldsymbol{\Sigma }_{k}}({\boldsymbol{\beta }_{k}^{(m)}})\hspace{-0.1667em}=\hspace{-0.1667em}\text{diag}\hspace{-0.1667em}\left\{n{\pi _{k}^{(m+1)}}{p^{\prime }_{{\lambda _{n}},k}}({\beta _{kj}^{(m)}})/{\beta _{kj}^{(m)}}\hspace{-0.1667em}:j\hspace{-0.1667em}=\hspace{-0.1667em}1,2,\dots ,d\right\}\]]]></tex-math></alternatives>
</disp-formula> 
and <inline-formula id="j_nejsds49_ineq_056"><alternatives><mml:math>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo>+</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup></mml:math><tex-math><![CDATA[${\sigma _{k}^{(m+1)}}$]]></tex-math></alternatives></inline-formula> is equal to (<xref rid="j_nejsds49_eq_013">3.6</xref>) when replacing (<xref rid="j_nejsds49_eq_024">4.2</xref>) in (<xref rid="j_nejsds49_eq_013">3.6</xref>). Having specified a threshold, the elements of <inline-formula id="j_nejsds49_ineq_057"><alternatives><mml:math>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo>+</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:msubsup></mml:math><tex-math><![CDATA[${\boldsymbol{\beta }_{k}^{(m+1)}}$]]></tex-math></alternatives></inline-formula> that fall below the threshold will be set to zero, which leads to variable selection [<xref ref-type="bibr" rid="j_nejsds49_ref_029">29</xref>]. Note that for Weibull, the NR algorithm must be carried out in the M-step of the EM algorithm. Algorithm <xref rid="j_nejsds49_fig_004">3</xref> in Appendix <xref rid="j_nejsds49_app_001">A</xref> provides instructions to obtain <sc>mple</sc>s.</p>
<p>It is known that the fitted model of <sc>fmr</sc>s depends on the choice of initial values. Furthermore, it is argued that the <sc>mle</sc> could be a set of good initial values to obtain <sc>mple</sc>s. The following penalty functions are implemented in the <bold>fmrs</bold> package: 
<list>
<list-item id="j_nejsds49_li_001">
<label>•</label>
<p><sc>lasso</sc>: <inline-formula id="j_nejsds49_ineq_058"><alternatives><mml:math><mml:mstyle displaystyle="false">
<mml:mfrac>
<mml:mrow>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">p</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">θ</mml:mi>
<mml:mo>;</mml:mo>
<mml:mi mathvariant="italic">λ</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>2</mml:mn>
</mml:mrow>
</mml:msup>
</mml:mrow>
</mml:mfrac>
</mml:mstyle>
<mml:mo>=</mml:mo>
<mml:mi mathvariant="italic">λ</mml:mi>
<mml:mo stretchy="false">|</mml:mo>
<mml:mi mathvariant="italic">θ</mml:mi>
<mml:mo stretchy="false">|</mml:mo></mml:math><tex-math><![CDATA[$\frac{{p_{n}}(\theta ;\lambda )}{{n^{2}}}=\lambda |\theta |$]]></tex-math></alternatives></inline-formula>;</p>
</list-item>
<list-item id="j_nejsds49_li_002">
<label>•</label>
<p>adaptive <sc>lasso</sc>: <inline-formula id="j_nejsds49_ineq_059"><alternatives><mml:math><mml:mstyle displaystyle="false">
<mml:mfrac>
<mml:mrow>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">p</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">θ</mml:mi>
<mml:mo>;</mml:mo>
<mml:mi mathvariant="italic">λ</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>2</mml:mn>
</mml:mrow>
</mml:msup>
</mml:mrow>
</mml:mfrac>
</mml:mstyle>
<mml:mo>=</mml:mo>
<mml:mi mathvariant="italic">λ</mml:mi>
<mml:mi mathvariant="italic">w</mml:mi>
<mml:mo stretchy="false">|</mml:mo>
<mml:mi mathvariant="italic">θ</mml:mi>
<mml:mo stretchy="false">|</mml:mo></mml:math><tex-math><![CDATA[$\frac{{p_{n}}(\theta ;\lambda )}{{n^{2}}}=\lambda w|\theta |$]]></tex-math></alternatives></inline-formula>, for some (possibly random) known weights <italic>w</italic>;</p>
</list-item>
<list-item id="j_nejsds49_li_003">
<label>•</label>
<p>The Minimax Concave Penalty (<sc>mcp</sc>):</p>
<p><inline-formula id="j_nejsds49_ineq_060"><alternatives><mml:math><mml:mstyle displaystyle="false">
<mml:mfrac>
<mml:mrow>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">p</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>′</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">θ</mml:mi>
<mml:mo>;</mml:mo>
<mml:mi mathvariant="italic">λ</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>2</mml:mn>
</mml:mrow>
</mml:msup>
</mml:mrow>
</mml:mfrac>
</mml:mstyle>
<mml:mo>=</mml:mo>
<mml:mo movablelimits="false">sgn</mml:mo>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">θ</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mspace width="2.5pt"/><mml:mstyle displaystyle="false">
<mml:mfrac>
<mml:mrow>
<mml:msub>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">a</mml:mi>
<mml:mi mathvariant="italic">λ</mml:mi>
<mml:mo>−</mml:mo>
<mml:mo stretchy="false">|</mml:mo>
<mml:mi mathvariant="italic">θ</mml:mi>
<mml:mo stretchy="false">|</mml:mo>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:mo>+</mml:mo>
</mml:mrow>
</mml:msub>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">a</mml:mi>
</mml:mrow>
</mml:mfrac>
</mml:mstyle></mml:math><tex-math><![CDATA[$\frac{{p^{\prime }_{n}}(\theta ;\lambda )}{{n^{2}}}=\operatorname{sgn}(\theta )\hspace{2.5pt}\frac{{(a\lambda -|\theta |)_{+}}}{a}$]]></tex-math></alternatives></inline-formula>;</p>
</list-item>
<list-item id="j_nejsds49_li_004">
<label>•</label>
<p>Smoothly Clipped Absolute Deviation (<sc>scad</sc>):</p>
<p><inline-formula id="j_nejsds49_ineq_061"><alternatives><mml:math><mml:mstyle displaystyle="false">
<mml:mfrac>
<mml:mrow>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">p</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>′</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">θ</mml:mi>
<mml:mo>;</mml:mo>
<mml:mi mathvariant="italic">λ</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>2</mml:mn>
</mml:mrow>
</mml:msup>
</mml:mrow>
</mml:mfrac>
</mml:mstyle>
<mml:mo>=</mml:mo>
<mml:mo movablelimits="false">sgn</mml:mo>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">θ</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mfenced separators="" open="{" close="}">
<mml:mrow>
<mml:mi mathvariant="italic">λ</mml:mi>
<mml:mi mathvariant="italic">I</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mo stretchy="false">|</mml:mo>
<mml:mi mathvariant="italic">θ</mml:mi>
<mml:mo stretchy="false">|</mml:mo>
<mml:mo stretchy="false">≤</mml:mo>
<mml:mi mathvariant="italic">λ</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo>+</mml:mo><mml:mstyle displaystyle="false">
<mml:mfrac>
<mml:mrow>
<mml:msub>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">a</mml:mi>
<mml:mi mathvariant="italic">λ</mml:mi>
<mml:mo>−</mml:mo>
<mml:mo stretchy="false">|</mml:mo>
<mml:mi mathvariant="italic">θ</mml:mi>
<mml:mo stretchy="false">|</mml:mo>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:mo>+</mml:mo>
</mml:mrow>
</mml:msub>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">a</mml:mi>
<mml:mo>−</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
</mml:mfrac>
</mml:mstyle>
<mml:mi mathvariant="italic">I</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mo stretchy="false">|</mml:mo>
<mml:mi mathvariant="italic">θ</mml:mi>
<mml:mo stretchy="false">|</mml:mo>
<mml:mo mathvariant="normal">&gt;</mml:mo>
<mml:mi mathvariant="italic">λ</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:mfenced>
</mml:math><tex-math><![CDATA[$\frac{{p^{\prime }_{n}}(\theta ;\lambda )}{{n^{2}}}=\operatorname{sgn}(\theta )\left\{\lambda I(|\theta |\le \lambda )+\frac{{(a\lambda -|\theta |)_{+}}}{a-1}I(|\theta |\gt \lambda )\right\}$]]></tex-math></alternatives></inline-formula>,</p>
</list-item>
</list> 
where <inline-formula id="j_nejsds49_ineq_062"><alternatives><mml:math>
<mml:msubsup>
<mml:mrow>
<mml:mi mathvariant="italic">p</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>′</mml:mo>
</mml:mrow>
</mml:msubsup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mo>·</mml:mo>
<mml:mo>;</mml:mo>
<mml:mi mathvariant="italic">λ</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo></mml:math><tex-math><![CDATA[${p^{\prime }_{n}}(\cdot ;\lambda )$]]></tex-math></alternatives></inline-formula> is the first derivative of penalty with respect to <italic>θ</italic> and <inline-formula id="j_nejsds49_ineq_063"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">x</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:mo>+</mml:mo>
</mml:mrow>
</mml:msub>
<mml:mo>=</mml:mo>
<mml:mo movablelimits="false">max</mml:mo>
<mml:mo fence="true" stretchy="false">{</mml:mo>
<mml:mn>0</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="italic">x</mml:mi>
<mml:mo fence="true" stretchy="false">}</mml:mo></mml:math><tex-math><![CDATA[${(x)_{+}}=\max \{0,x\}$]]></tex-math></alternatives></inline-formula>.</p>
<sec id="j_nejsds49_s_009">
<label>4.1</label>
<title>Choice of Tuning Parameters</title>
<p>Two approaches are available for choosing tuning parameters: the common approach and the component-wise approach. If the common tuning parameter approach is adopted, one can choose the value that minimizes the <sc>bic</sc> from a set of candidates within the interval <inline-formula id="j_nejsds49_ineq_064"><alternatives><mml:math>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mn>0</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">λ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>max</mml:mtext>
</mml:mrow>
</mml:msub>
<mml:mo fence="true" stretchy="false">]</mml:mo></mml:math><tex-math><![CDATA[$(0,{\lambda _{\text{max}}}]$]]></tex-math></alternatives></inline-formula>, where <inline-formula id="j_nejsds49_ineq_065"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">λ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>max</mml:mtext>
</mml:mrow>
</mml:msub></mml:math><tex-math><![CDATA[${\lambda _{\text{max}}}$]]></tex-math></alternatives></inline-formula> is a pre-specified value. This approach is suitable for datasets with sufficiently large sample sizes, and it reduces the computational burden when a common tuning parameter is used.</p>
<p>On the other hand, if we adopt the component-wise approach, we will search for the optimal values <inline-formula id="j_nejsds49_ineq_066"><alternatives><mml:math>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">λ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>1</mml:mn>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mo>…</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">λ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">K</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo></mml:math><tex-math><![CDATA[$({\lambda _{1}},\dots ,{\lambda _{K}})$]]></tex-math></alternatives></inline-formula> from a set of candidate values derived from the interval <inline-formula id="j_nejsds49_ineq_067"><alternatives><mml:math>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mn>0</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">λ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>max</mml:mtext>
</mml:mrow>
</mml:msub>
<mml:mo fence="true" stretchy="false">]</mml:mo></mml:math><tex-math><![CDATA[$(0,{\lambda _{\text{max}}}]$]]></tex-math></alternatives></inline-formula>. We choose the combination that minimizes the component-wise <sc>bic</sc>, which is defined below.</p>
<p>Let <inline-formula id="j_nejsds49_ineq_068"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mover accent="true">
<mml:mrow>
<mml:mi mathvariant="italic">τ</mml:mi>
</mml:mrow>
<mml:mo stretchy="false">˜</mml:mo></mml:mover>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub></mml:math><tex-math><![CDATA[${\tilde{\tau }_{ik}}$]]></tex-math></alternatives></inline-formula> be the <sc>mle</sc> in (<xref rid="j_nejsds49_eq_009">3.2</xref>). For a given <italic>k</italic>, the component-wise log-likelihood is defined as 
<disp-formula id="j_nejsds49_eq_026">
<label>(4.3)</label><alternatives><mml:math display="block">
<mml:mtable displaystyle="true" columnalign="right left" columnspacing="0pt">
<mml:mtr>
<mml:mtd class="align-odd">
<mml:msub>
<mml:mrow>
<mml:mover accent="true">
<mml:mrow>
<mml:mi>ℓ</mml:mi>
</mml:mrow>
<mml:mo stretchy="false">˜</mml:mo></mml:mover>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold">Ψ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mtd>
<mml:mtd class="align-even">
<mml:mo>=</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mo largeop="true" movablelimits="false">∑</mml:mo></mml:mstyle>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:msubsup>
<mml:msub>
<mml:mrow>
<mml:mover accent="true">
<mml:mrow>
<mml:mi mathvariant="italic">τ</mml:mi>
</mml:mrow>
<mml:mo stretchy="false">˜</mml:mo></mml:mover>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo movablelimits="false">log</mml:mo>
<mml:mfenced separators="" open="{" close="">
<mml:mrow>
<mml:msup>
<mml:mrow>
<mml:mfenced separators="" open="[" close="]">
<mml:mrow>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">f</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">Y</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">t</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">θ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold-italic">z</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:mfenced>
</mml:mrow>
<mml:mrow>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">δ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
</mml:mrow>
</mml:msup>
</mml:mrow>
</mml:mfenced>
</mml:mtd>
</mml:mtr>
<mml:mtr>
<mml:mtd class="align-odd"/>
<mml:mtd class="align-even">
<mml:mspace width="2em"/>
<mml:mfenced separators="" open="" close="}">
<mml:mrow>
<mml:msup>
<mml:mrow>
<mml:mfenced separators="" open="[" close="]">
<mml:mrow>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">S</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">Y</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">t</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">θ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold-italic">z</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:mfenced>
</mml:mrow>
<mml:mrow>
<mml:mn>1</mml:mn>
<mml:mo>−</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">δ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
</mml:mrow>
</mml:msup>
</mml:mrow>
</mml:mfenced>
<mml:mo>.</mml:mo>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[\begin{aligned}{}{\tilde{\ell }_{nk}}({\boldsymbol{\Psi }_{k}})& ={\sum \nolimits_{i=1}^{n}}{\tilde{\tau }_{ik}}\log \left\{{\left[{f_{Y}}({t_{i}},{\theta _{k}}({\boldsymbol{z}_{i}}),{\sigma _{k}})\right]^{{\delta _{i}}}}\right.\\ {} & \hspace{2em}\left.{\left[{S_{Y}}({t_{i}},{\theta _{k}}({\boldsymbol{z}_{i}}),{\sigma _{k}})\right]^{1-{\delta _{i}}}}\right\}.\end{aligned}\]]]></tex-math></alternatives>
</disp-formula>
</p>
<p>Let <inline-formula id="j_nejsds49_ineq_069"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mover accent="false">
<mml:mrow>
<mml:mi mathvariant="bold">Ψ</mml:mi>
</mml:mrow>
<mml:mo stretchy="true">ˆ</mml:mo></mml:mover>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">λ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo></mml:math><tex-math><![CDATA[${\widehat{\boldsymbol{\Psi }}_{k}}({\lambda _{k}})$]]></tex-math></alternatives></inline-formula> be the <sc>mple</sc> under (<xref rid="j_nejsds49_eq_026">4.3</xref>) for a given <inline-formula id="j_nejsds49_ineq_070"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">λ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub></mml:math><tex-math><![CDATA[${\lambda _{k}}$]]></tex-math></alternatives></inline-formula>; i.e., 
<disp-formula id="j_nejsds49_eq_027">
<alternatives><mml:math display="block">
<mml:mtable displaystyle="true">
<mml:mtr>
<mml:mtd>
<mml:msub>
<mml:mrow>
<mml:mover accent="false">
<mml:mrow>
<mml:mi mathvariant="bold">Ψ</mml:mi>
</mml:mrow>
<mml:mo stretchy="true">ˆ</mml:mo></mml:mover>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">λ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo>=</mml:mo>
<mml:mo movablelimits="false">arg</mml:mo>
<mml:munder>
<mml:mrow>
<mml:mo movablelimits="false">max</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold">Ψ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
</mml:mrow>
</mml:munder>
<mml:mfenced separators="" open="[" close="]">
<mml:mrow>
<mml:msub>
<mml:mrow>
<mml:mover accent="true">
<mml:mrow>
<mml:mi>ℓ</mml:mi>
</mml:mrow>
<mml:mo stretchy="false">˜</mml:mo></mml:mover>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold">Ψ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo>−</mml:mo>
<mml:mi mathvariant="italic">n</mml:mi>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">π</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:msubsup>
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mo largeop="true" movablelimits="false">∑</mml:mo></mml:mstyle>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">j</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">d</mml:mi>
</mml:mrow>
</mml:msubsup>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">p</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">λ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mo stretchy="false">|</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">j</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo stretchy="false">|</mml:mo>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:mfenced>
<mml:mo>.</mml:mo>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[ {\widehat{\boldsymbol{\Psi }}_{k}}({\lambda _{k}})=\arg \underset{{\boldsymbol{\Psi }_{k}}}{\max }\left[{\tilde{\ell }_{nk}}({\boldsymbol{\Psi }_{k}})-n{\pi _{k}}{\sum \nolimits_{j=1}^{d}}{p_{{\lambda _{k}}}}(|{\beta _{jk}}|)\right].\]]]></tex-math></alternatives>
</disp-formula> 
We define the component-wise <sc>bic</sc> as 
<disp-formula id="j_nejsds49_eq_028">
<label>(4.4)</label><alternatives><mml:math display="block">
<mml:mtable displaystyle="true">
<mml:mtr>
<mml:mtd>
<mml:msub>
<mml:mrow>
<mml:mtext mathvariant="normal" mathsize="small">BIC</mml:mtext>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">λ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo>=</mml:mo>
<mml:mo>−</mml:mo>
<mml:mn>2</mml:mn>
<mml:msub>
<mml:mrow>
<mml:mover accent="true">
<mml:mrow>
<mml:mi>ℓ</mml:mi>
</mml:mrow>
<mml:mo stretchy="false">˜</mml:mo></mml:mover>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mover accent="false">
<mml:mrow>
<mml:mi mathvariant="bold">Ψ</mml:mi>
</mml:mrow>
<mml:mo stretchy="true">ˆ</mml:mo></mml:mover>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">λ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo>+</mml:mo>
<mml:mtext>DF</mml:mtext>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">λ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo>×</mml:mo>
<mml:mo movablelimits="false">log</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal">,</mml:mo>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[ {\text{BIC}_{k}}({\lambda _{k}})=-2{\tilde{\ell }_{nk}}({\widehat{\boldsymbol{\Psi }}_{k}}({\lambda _{k}}))+\text{DF}({\lambda _{k}})\times \log {n_{k}},\]]]></tex-math></alternatives>
</disp-formula> 
where <inline-formula id="j_nejsds49_ineq_071"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>=</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mo largeop="false" movablelimits="false">∑</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:msubsup>
<mml:msub>
<mml:mrow>
<mml:mover accent="true">
<mml:mrow>
<mml:mi mathvariant="italic">τ</mml:mi>
</mml:mrow>
<mml:mo stretchy="false">˜</mml:mo></mml:mover>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub></mml:math><tex-math><![CDATA[${n_{k}}={\textstyle\sum _{i=1}^{n}}{\tilde{\tau }_{ik}}$]]></tex-math></alternatives></inline-formula>, <inline-formula id="j_nejsds49_ineq_072"><alternatives><mml:math>
<mml:mtext>DF</mml:mtext>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">λ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo>=</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mo largeop="false" movablelimits="false">∑</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">j</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">d</mml:mi>
</mml:mrow>
</mml:msubsup>
<mml:mi mathvariant="italic">I</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mover accent="true">
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mo stretchy="false">ˆ</mml:mo></mml:mover>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
<mml:mi mathvariant="italic">j</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo stretchy="false">≠</mml:mo>
<mml:mn>0</mml:mn>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo></mml:math><tex-math><![CDATA[$\text{DF}({\lambda _{k}})={\textstyle\sum _{j=1}^{d}}I({\hat{\beta }_{kj}}\ne 0)$]]></tex-math></alternatives></inline-formula> is the number of estimated non-zero coefficients, and <inline-formula id="j_nejsds49_ineq_073"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mover accent="true">
<mml:mrow>
<mml:mi>ℓ</mml:mi>
</mml:mrow>
<mml:mo stretchy="false">˜</mml:mo></mml:mover>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub></mml:math><tex-math><![CDATA[${\tilde{\ell }_{nk}}$]]></tex-math></alternatives></inline-formula> is evaluated at <inline-formula id="j_nejsds49_ineq_074"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mover accent="false">
<mml:mrow>
<mml:mi mathvariant="bold">Ψ</mml:mi>
</mml:mrow>
<mml:mo stretchy="true">ˆ</mml:mo></mml:mover>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">λ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo></mml:math><tex-math><![CDATA[${\widehat{\boldsymbol{\Psi }}_{k}}({\lambda _{k}})$]]></tex-math></alternatives></inline-formula>. The component-wise tuning parameter is then chosen as 
<disp-formula id="j_nejsds49_eq_029">
<alternatives><mml:math display="block">
<mml:mtable displaystyle="true">
<mml:mtr>
<mml:mtd>
<mml:msub>
<mml:mrow>
<mml:mover accent="true">
<mml:mrow>
<mml:mi mathvariant="italic">λ</mml:mi>
</mml:mrow>
<mml:mo stretchy="false">ˆ</mml:mo></mml:mover>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>=</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mo movablelimits="false">arg</mml:mo>
<mml:mo movablelimits="false">min</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">λ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo stretchy="false">∈</mml:mo>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mn>0</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">λ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo movablelimits="false">max</mml:mo>
</mml:mrow>
</mml:msub>
<mml:mo fence="true" stretchy="false">]</mml:mo>
</mml:mrow>
</mml:msub>
<mml:msub>
<mml:mrow>
<mml:mtext mathvariant="normal" mathsize="small">BIC</mml:mtext>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">λ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mspace width="2.5pt"/>
<mml:mtext>for</mml:mtext>
<mml:mspace width="2.5pt"/>
<mml:mi mathvariant="italic">k</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mo>…</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="italic">K</mml:mi>
<mml:mo>.</mml:mo>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[ {\hat{\lambda }_{k}}={\arg \min _{{\lambda _{k}}\in (0,{\lambda _{\max }}]}}{\text{BIC}_{k}}({\lambda _{k}}),\hspace{2.5pt}\text{for}\hspace{2.5pt}k=1,\dots ,K.\]]]></tex-math></alternatives>
</disp-formula> 
By choosing a grid of values in the interval <inline-formula id="j_nejsds49_ineq_075"><alternatives><mml:math>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mn>0</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">λ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mtext>max</mml:mtext>
</mml:mrow>
</mml:msub>
<mml:mo fence="true" stretchy="false">]</mml:mo></mml:math><tex-math><![CDATA[$(0,{\lambda _{\text{max}}}]$]]></tex-math></alternatives></inline-formula> with a length of <italic>L</italic>, the total number of searches required to find <italic>K</italic> tuning parameters is reduced to <inline-formula id="j_nejsds49_ineq_076"><alternatives><mml:math>
<mml:mi mathvariant="italic">K</mml:mi>
<mml:mo>×</mml:mo>
<mml:mi mathvariant="italic">L</mml:mi></mml:math><tex-math><![CDATA[$K\times L$]]></tex-math></alternatives></inline-formula>. In contrast, using the non-component-wise approach would require <inline-formula id="j_nejsds49_ineq_077"><alternatives><mml:math>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="italic">L</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">K</mml:mi>
</mml:mrow>
</mml:msup></mml:math><tex-math><![CDATA[${L^{K}}$]]></tex-math></alternatives></inline-formula> searches to find <italic>K</italic> tuning parameters. By adopting the component-wise approach, we significantly reduce the number of searches. It is important to note that although this approach has not been theoretically studied, our simulations have shown promising results. Algorithm <xref rid="j_nejsds49_fig_003">2</xref> in Appendix <xref rid="j_nejsds49_app_001">A</xref> provides instructions for obtaining the tuning parameters.</p>
</sec>
<sec id="j_nejsds49_s_010">
<label>4.2</label>
<title>Choice of Mixture Order</title>
<p>So far, we assumed that the order of <sc>fmr</sc>s is known a priori. However, in many real applications, such information is not available. For order selection in mixture model setups, information criteria such as <sc>bic</sc> have been extensively studied [<xref ref-type="bibr" rid="j_nejsds49_ref_024">24</xref>, <xref ref-type="bibr" rid="j_nejsds49_ref_014">14</xref>]. In <bold>fmrs</bold>, we suggest using <sc>bic</sc> for order selection. Consider the possible values <inline-formula id="j_nejsds49_ineq_078"><alternatives><mml:math>
<mml:mi mathvariant="italic">K</mml:mi>
<mml:mo stretchy="false">∈</mml:mo>
<mml:mo fence="true" stretchy="false">{</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mo>…</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">K</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo movablelimits="false">max</mml:mo>
</mml:mrow>
</mml:msub>
<mml:mo fence="true" stretchy="false">}</mml:mo></mml:math><tex-math><![CDATA[$K\in \{1,\dots ,{K_{\max }}\}$]]></tex-math></alternatives></inline-formula> for the order of mixture, where <inline-formula id="j_nejsds49_ineq_079"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">K</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo movablelimits="false">max</mml:mo>
</mml:mrow>
</mml:msub></mml:math><tex-math><![CDATA[${K_{\max }}$]]></tex-math></alternatives></inline-formula> is a pre-specified upper bound. The optimal order, denoted as <inline-formula id="j_nejsds49_ineq_080"><alternatives><mml:math><mml:mover accent="true">
<mml:mrow>
<mml:mi mathvariant="italic">K</mml:mi>
</mml:mrow>
<mml:mo stretchy="false">ˆ</mml:mo></mml:mover></mml:math><tex-math><![CDATA[$\hat{K}$]]></tex-math></alternatives></inline-formula>, is chosen as the one that minimizes the quantity 
<disp-formula id="j_nejsds49_eq_030">
<alternatives><mml:math display="block">
<mml:mtable displaystyle="true" columnalign="right left" columnspacing="0pt">
<mml:mtr>
<mml:mtd class="align-odd">
<mml:msup>
<mml:mrow>
<mml:mtext mathvariant="normal" mathsize="small">BIC</mml:mtext>
</mml:mrow>
<mml:mrow>
<mml:mo>∗</mml:mo>
</mml:mrow>
</mml:msup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">K</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mtd>
<mml:mtd class="align-even">
<mml:mo>=</mml:mo>
<mml:mo>−</mml:mo>
<mml:mn>2</mml:mn>
<mml:msub>
<mml:mrow>
<mml:mi>ℓ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mover accent="false">
<mml:mrow>
<mml:mi mathvariant="bold">Ψ</mml:mi>
</mml:mrow>
<mml:mo stretchy="true">ˆ</mml:mo></mml:mover>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="italic">K</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mtd>
</mml:mtr>
<mml:mtr>
<mml:mtd class="align-odd"/>
<mml:mtd class="align-even">
<mml:mspace width="1em"/>
<mml:mo>+</mml:mo>
<mml:mfenced separators="" open="[" close="]">
<mml:mrow>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mn>3</mml:mn>
<mml:mi mathvariant="italic">K</mml:mi>
<mml:mo>−</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo>+</mml:mo>
<mml:msubsup>
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mo largeop="true" movablelimits="false">∑</mml:mo></mml:mstyle>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">k</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">K</mml:mi>
</mml:mrow>
</mml:msubsup>
<mml:msubsup>
<mml:mrow>
<mml:mstyle displaystyle="true">
<mml:mo largeop="true" movablelimits="false">∑</mml:mo></mml:mstyle>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">j</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">d</mml:mi>
</mml:mrow>
</mml:msubsup>
<mml:mtext>I</mml:mtext>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mover accent="true">
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mo stretchy="false">ˆ</mml:mo></mml:mover>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">j</mml:mi>
<mml:mi mathvariant="italic">k</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo stretchy="false">≠</mml:mo>
<mml:mn>0</mml:mn>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
</mml:mrow>
</mml:mfenced>
<mml:mo movablelimits="false">log</mml:mo>
<mml:mi mathvariant="italic">n</mml:mi>
<mml:mo mathvariant="normal">,</mml:mo>
</mml:mtd>
</mml:mtr>
</mml:mtable></mml:math><tex-math><![CDATA[\[\begin{aligned}{}{\text{BIC}^{\ast }}(K)& =-2{\ell _{n}}({\widehat{\boldsymbol{\Psi }}_{n,K}})\\ {} & \hspace{1em}+\left[(3K-1)+{\sum \nolimits_{k=1}^{K}}{\sum \nolimits_{j=1}^{d}}\text{I}({\hat{\beta }_{jk}}\ne 0)\right]\log n,\end{aligned}\]]]></tex-math></alternatives>
</disp-formula> 
where <inline-formula id="j_nejsds49_ineq_081"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi>ℓ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
</mml:mrow>
</mml:msub></mml:math><tex-math><![CDATA[${\ell _{n}}$]]></tex-math></alternatives></inline-formula> in (<xref rid="j_nejsds49_eq_007">3.1</xref>) is evaluated at <inline-formula id="j_nejsds49_ineq_082"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mover accent="false">
<mml:mrow>
<mml:mi mathvariant="bold">Ψ</mml:mi>
</mml:mrow>
<mml:mo stretchy="true">ˆ</mml:mo></mml:mover>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">n</mml:mi>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="italic">K</mml:mi>
</mml:mrow>
</mml:msub></mml:math><tex-math><![CDATA[${\widehat{\boldsymbol{\Psi }}_{n,K}}$]]></tex-math></alternatives></inline-formula>, the vector of estimated parameters with order <italic>K</italic>. Note that this approach has yet to be theoretically studied. In simulation studies, however, promising results are observed.</p>
</sec>
</sec>
<sec id="j_nejsds49_s_011">
<label>5</label>
<title>Preliminaries and Main Functions</title>
<p>In the following subsections, we present comprehensive lists of all available arguments and provide detailed descriptions of the main functions in the <bold>fmrs</bold> package.</p>
<sec id="j_nejsds49_s_012">
<label>5.1</label>
<title>Preliminaries</title>
<p>The command ‘help(package = “fmrs”)’ returns a list of all available arguments in <bold>fmrs</bold>. The basic functions are implemented in the <sans-serif>C</sans-serif> programming language, which greatly improves memory management and package speed. The package utilizes S4 objects and methods. Table <xref rid="j_nejsds49_tab_001">1</xref> presents a list of all S4 classes along with their descriptions. Table <xref rid="j_nejsds49_tab_002">2</xref> provides a comprehensive list of S4 methods and functions, including their arguments and associated default values. Table <xref rid="j_nejsds49_tab_003">3</xref> displays a list of arguments, controls, and notations, along with their default values and descriptions. Currently, the <sc>fmaftr</sc> supports Log-Normal and Weibull distributions, while the <sc>fmr</sc> includes the Normal distribution in the package.</p>
<table-wrap id="j_nejsds49_tab_001">
<label>Table 1</label>
<caption>
<p>List of S4 classes in the <bold>fmrs</bold> package.</p>
</caption>
<table>
<thead>
<tr>
<td style="vertical-align: top; text-align: left; border-top: double; border-bottom: solid thin">class</td>
<td style="vertical-align: top; text-align: left; border-top: double; border-bottom: solid thin">Slot</td>
<td style="vertical-align: top; text-align: left; border-top: double; border-bottom: solid thin">Value</td>
<td style="vertical-align: top; text-align: left; border-top: double; border-bottom: solid thin">Description</td>
</tr>
</thead>
<tbody>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>fmrsfit</monospace></td>
<td style="vertical-align: top; text-align: left"><monospace>y</monospace></td>
<td style="vertical-align: top; text-align: left">A length-<monospace>nobs</monospace> numeric vector</td>
<td style="vertical-align: top; text-align: left">Response vector</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>delta</monospace></td>
<td style="vertical-align: top; text-align: left">A length-<monospace>nobs</monospace> numeric vector</td>
<td style="vertical-align: top; text-align: left">Censoring vector</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>x</monospace></td>
<td style="vertical-align: top; text-align: left">A dimension-<monospace>nobs</monospace>-<monospace>ncov</monospace> numeric matrix</td>
<td style="vertical-align: top; text-align: left">Covariates</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>nobs</monospace></td>
<td style="vertical-align: top; text-align: left">A length-one numeric vector</td>
<td style="vertical-align: top; text-align: left">Number of observations</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>ncov</monospace></td>
<td style="vertical-align: top; text-align: left">A length-one numeric vector</td>
<td style="vertical-align: top; text-align: left">Number of covariates</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>ncomp</monospace></td>
<td style="vertical-align: top; text-align: left">A length-one numeric vector</td>
<td style="vertical-align: top; text-align: left">Order of the mixture</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>coefficients</monospace></td>
<td style="vertical-align: top; text-align: left">A length-(<monospace>ncov</monospace>+1)-<monospace>ncomp</monospace> numeric matrix</td>
<td style="vertical-align: top; text-align: left">Fitted regression coefficients</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>dispersion</monospace></td>
<td style="vertical-align: top; text-align: left">A length-<monospace>ncomp</monospace> numeric vector</td>
<td style="vertical-align: top; text-align: left">Fitted dispersions</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>mixProp</monospace></td>
<td style="vertical-align: top; text-align: left">A length-<monospace>ncomp</monospace> numeric vector</td>
<td style="vertical-align: top; text-align: left">Fitted mixing proportions</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>logLik</monospace></td>
<td style="vertical-align: top; text-align: left">A length-one numeric vector</td>
<td style="vertical-align: top; text-align: left">Log-likelihood</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>BIC</monospace></td>
<td style="vertical-align: top; text-align: left">A length-one numeric vector</td>
<td style="vertical-align: top; text-align: left">Bayesian information criteria</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>nIterEMconv</monospace></td>
<td style="vertical-align: top; text-align: left">A length-one numeric vector</td>
<td style="vertical-align: top; text-align: left">Number of the EM algorithm iterations</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>disFamily</monospace></td>
<td style="vertical-align: top; text-align: left">A length-one character vector</td>
<td style="vertical-align: top; text-align: left">Name of sub-distributions</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>penFamily</monospace></td>
<td style="vertical-align: top; text-align: left">A length-one character vector</td>
<td style="vertical-align: top; text-align: left">Penalty function</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>lambPen</monospace></td>
<td style="vertical-align: top; text-align: left">A length-<monospace>ncomp</monospace> numeric vector</td>
<td style="vertical-align: top; text-align: left">Tuning parameters</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>lamRidge</monospace></td>
<td style="vertical-align: top; text-align: left">A length-one numeric vector</td>
<td style="vertical-align: top; text-align: left">Ridge tuning parameter</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>MCPGam</monospace></td>
<td style="vertical-align: top; text-align: left">A length-one numeric vector</td>
<td style="vertical-align: top; text-align: left"><sc>mcp</sc>’s extra tuning parameter</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>SICAGam</monospace></td>
<td style="vertical-align: top; text-align: left">A length-one numeric vector</td>
<td style="vertical-align: top; text-align: left"><sc>sica</sc>’s extra tuning parameter</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>model</monospace></td>
<td style="vertical-align: top; text-align: left">A length-one character vector</td>
<td style="vertical-align: top; text-align: left">Fitted model</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>fitted</monospace></td>
<td style="vertical-align: top; text-align: left">A dimension-<monospace>nobs</monospace>-<monospace>ncomp</monospace> numeric matrix</td>
<td style="vertical-align: top; text-align: left">Predicted values</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>residuals</monospace></td>
<td style="vertical-align: top; text-align: left">A dimension-<monospace>nobs</monospace>-<monospace>ncomp</monospace> numeric matrix</td>
<td style="vertical-align: top; text-align: left">Predicted residuals</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>weights</monospace></td>
<td style="vertical-align: top; text-align: left">A dimension-<monospace>nobs</monospace>-<monospace>ncomp</monospace> numeric matrix</td>
<td style="vertical-align: top; text-align: left">Predicted weights</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>activeset</monospace></td>
<td style="vertical-align: top; text-align: left">A dimension-(<monospace>ncov+1</monospace>)-<monospace>ncomp</monospace> matrix</td>
<td style="vertical-align: top; text-align: left">Parameters that must be active in model</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin"/>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin"><monospace>selectedset</monospace></td>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin">A dimension-(<monospace>ncov</monospace>)-<monospace>ncomp</monospace> matrix</td>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin">Parameters selected via variable selection</td>
</tr>
</tbody><tbody>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>fmrstunpar</monospace></td>
<td style="vertical-align: top; text-align: left"><monospace>ncomp</monospace></td>
<td style="vertical-align: top; text-align: left">A length-one numeric vector</td>
<td style="vertical-align: top; text-align: left">Order of mixture</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>ncov</monospace></td>
<td style="vertical-align: top; text-align: left">A length-one numeric vector</td>
<td style="vertical-align: top; text-align: left">Number of covariates</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>lambPen</monospace></td>
<td style="vertical-align: top; text-align: left">A length-<monospace>ncomp</monospace> numeric vector</td>
<td style="vertical-align: top; text-align: left">Tuning parameters</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>MCPGam</monospace></td>
<td style="vertical-align: top; text-align: left">A length-<monospace>ncomp</monospace> numeric vector</td>
<td style="vertical-align: top; text-align: left"><sc>mcp</sc>’s extra tuning parameters</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>SICAGam</monospace></td>
<td style="vertical-align: top; text-align: left">A length-<monospace>ncomp</monospace> numeric vector</td>
<td style="vertical-align: top; text-align: left"><sc>sica</sc>’s extra tuning parameters</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>disFamily</monospace></td>
<td style="vertical-align: top; text-align: left">A length-one character vector</td>
<td style="vertical-align: top; text-align: left">Name of sub-distributions</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>penFamily</monospace></td>
<td style="vertical-align: top; text-align: left">A length-one character vector</td>
<td style="vertical-align: top; text-align: left">Penalty function</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>lamRidge</monospace></td>
<td style="vertical-align: top; text-align: left">A length-one numeric vector</td>
<td style="vertical-align: top; text-align: left">Ridge tuning parameter</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>model</monospace></td>
<td style="vertical-align: top; text-align: left">A length-one character vector</td>
<td style="vertical-align: top; text-align: left">Fitted model</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin"/>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin"><monospace>activeset</monospace></td>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin">A dimension-(<monospace>ncov+1</monospace>)-<monospace>ncomp</monospace> matrix</td>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin">Parameters that must be active in model</td>
</tr>
</tbody>
</table>
</table-wrap>
<table-wrap id="j_nejsds49_tab_002">
<label>Table 2</label>
<caption>
<p>List of S4 methods and functions in the <bold>fmrs</bold> package.</p>
</caption>
<table>
<thead>
<tr>
<td style="vertical-align: top; text-align: left; border-top: double; border-bottom: solid thin">Generic Name</td>
<td style="vertical-align: top; text-align: left; border-top: double; border-bottom: solid thin">Description</td>
</tr>
</thead>
<tbody>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>fmrs.gendata</monospace></td>
<td style="vertical-align: top; text-align: left">Generates a dataset from <monospace>FMRs</monospace> under the specified setting.</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>fmrs.mle</monospace></td>
<td style="vertical-align: top; text-align: left">Performs <sc>mle</sc> and ridge regression for <monospace>FMRs</monospace>.</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>fmrs.tunsel</monospace></td>
<td style="vertical-align: top; text-align: left">Computes component-wise tuning parameters based on a <sc>bic</sc> for <monospace>FMRs</monospace>.</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>fmrs.varsel</monospace></td>
<td style="vertical-align: top; text-align: left">Performs variable selection and computes penalized <sc>mle</sc> for <monospace>FMRs</monospace>.</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>BIC</monospace></td>
<td style="vertical-align: top; text-align: left">Provides the estimated <sc>bic</sc> of an <monospace>FMRs</monospace> from an <monospace>fmrsfit-class</monospace></td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>coefficients</monospace></td>
<td style="vertical-align: top; text-align: left">Provides the estimated regression coefficients from the <monospace>FMRs</monospace> from an <monospace>fmrsfit-class</monospace></td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>dispersion</monospace></td>
<td style="vertical-align: top; text-align: left">Provides the estimated dispersions of the fitted <monospace>FMRs</monospace> from an <monospace>fmrsfit-class</monospace></td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>fitted</monospace></td>
<td style="vertical-align: top; text-align: left">Provides the fitted response of the fitted <monospace>FMRs</monospace> from an <monospace>fmrsfit-class</monospace></td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>logLik</monospace></td>
<td style="vertical-align: top; text-align: left">Provides the estimated logLikelihood of an <monospace>FMRs</monospace> from an <monospace>fmrsfit-class</monospace></td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>mixProp</monospace></td>
<td style="vertical-align: top; text-align: left">Provides the estimated mixing proportions of an <monospace>FMRs</monospace> from an <monospace>fmrsfit-class</monospace></td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>ncomp</monospace></td>
<td style="vertical-align: top; text-align: left">Provides the order of an <monospace>FMRs</monospace> from an <monospace>fmrsfit-class</monospace></td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>ncov</monospace></td>
<td style="vertical-align: top; text-align: left">Provides the number of covariates of an <monospace>FMRs</monospace> from an <monospace>fmrsfit-class</monospace></td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>nobs</monospace></td>
<td style="vertical-align: top; text-align: left">Provides the number of observations in an <monospace>FMRs</monospace> from an <monospace>fmrsfit-class</monospace></td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>residuals</monospace></td>
<td style="vertical-align: top; text-align: left">Provides the residuals of the fitted <monospace>FMRs</monospace> from an <monospace>fmrsfit-class</monospace></td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>summary</monospace></td>
<td style="vertical-align: top; text-align: left">Displays estimated coefficients, dispersions, and mixing proportions or selected tuning parameters</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin"><monospace>weights</monospace></td>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin">Provides the weights of fitted observations for each observation under all components of an <monospace>FMRs</monospace> model</td>
</tr>
</tbody>
</table>
</table-wrap>
<table-wrap id="j_nejsds49_tab_003">
<label>Table 3</label>
<caption>
<p>List of arguments, controls and notations in the <bold>fmrs</bold> package.</p>
</caption>
<table>
<thead>
<tr>
<td style="vertical-align: top; text-align: left; border-top: double; border-bottom: solid thin">Name</td>
<td style="vertical-align: top; text-align: left; border-top: double; border-bottom: solid thin">Default</td>
<td style="vertical-align: top; text-align: left; border-top: double; border-bottom: solid thin">Description</td>
</tr>
</thead>
<tbody>
<tr>
<td style="vertical-align: top; text-align: left"><italic>Arguments</italic></td>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"/>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>y</monospace></td>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left">Response vector</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>delta</monospace></td>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left">Censoring indicator vector</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>x</monospace></td>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left">Design matrix (covariates)</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>nObs</monospace></td>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left">A numeric value represents the number of observations (sample size)</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>nComp</monospace></td>
<td style="vertical-align: top; text-align: left">2</td>
<td style="vertical-align: top; text-align: left">A numeric value represents the order of mixture in <monospace>FMRs</monospace></td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>nCov</monospace></td>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left">A numeric value represents the number of covariates in design matrix</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>mixProp</monospace></td>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left">A vector of mixing proportions which their sum must be one</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>rho</monospace></td>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left">A numeric value in [-1, 1] which represents the correlation between covariates of design matrix</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>dispersion</monospace></td>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left">A vector of positive values for dispersion parameters of sub-distributions in <monospace>FMRs</monospace></td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>coeff</monospace></td>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left">A vector of length <monospace>nComp</monospace>*(<monospace>nCov+1</monospace>) of all regression coefficients including intercepts.</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>umax</monospace></td>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left">A numeric value that represents the upper bound in Uniform distribution for censoring</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>disFamily</monospace></td>
<td style="vertical-align: top; text-align: left"><monospace>"lnorm"</monospace></td>
<td style="vertical-align: top; text-align: left">A sub-distribution family. The choices are <monospace>"norm"</monospace> for <sc>fmr</sc>, <monospace>"lnorm"</monospace> for <sc>fmaftr</sc> with Log-Normal</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin"/>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin"/>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin">sub-distribution,<monospace>"weibull"</monospace> for <sc>fmaftr</sc> with Weibull sub-distribution.</td>
</tr>
</tbody><tbody>
<tr>
<td style="vertical-align: top; text-align: left"><italic>Controls</italic></td>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"/>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>conveps</monospace></td>
<td style="vertical-align: top; text-align: left"><monospace>1e-08</monospace></td>
<td style="vertical-align: top; text-align: left">A positive number for avoiding <monospace>NaN</monospace> in computing divisions</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>convepsEM</monospace></td>
<td style="vertical-align: top; text-align: left"><monospace>1e-08</monospace></td>
<td style="vertical-align: top; text-align: left">A positive value for threshold of convergence in the EM algorithm</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>convepsNR</monospace></td>
<td style="vertical-align: top; text-align: left"><monospace>1e-08</monospace></td>
<td style="vertical-align: top; text-align: left">A positive value for threshold of convergence in the Newton-Raphson algorithm</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>gamMixPor</monospace></td>
<td style="vertical-align: top; text-align: left"><monospace>1</monospace></td>
<td style="vertical-align: top; text-align: left">Proportion of mixing parameters in the penalty function. The value must belong to the interval <inline-formula id="j_nejsds49_ineq_083"><alternatives><mml:math>
<mml:mo fence="true" stretchy="false">[</mml:mo>
<mml:mn>0</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo fence="true" stretchy="false">]</mml:mo></mml:math><tex-math><![CDATA[$[0,1]$]]></tex-math></alternatives></inline-formula>.</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left">If <monospace>gamMixPor = 0</monospace>, the penalty structure is no longer a mixture.</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>initCoeff</monospace></td>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left">A vector of initial values for coefficients including intercepts</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>initmixProp</monospace></td>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left">A vector of initial values for the proportion of components</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>initDispersion</monospace></td>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left">A vector of initial values for standard deviations</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>lambPen</monospace></td>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left">A vector of lambda for penalty</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>lambRidge</monospace></td>
<td style="vertical-align: top; text-align: left"><monospace>0</monospace></td>
<td style="vertical-align: top; text-align: left">Lambda for the ridge penalty or Elastic Net</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>lambMCP</monospace></td>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left">Extra tuning parameter for the <sc>mcp</sc> penalty</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>lambSICA</monospace></td>
<td style="vertical-align: top; text-align: left"><monospace>5</monospace></td>
<td style="vertical-align: top; text-align: left">Extra tuning parameter for the <sc>sica</sc> penalty</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>LambMin</monospace></td>
<td style="vertical-align: top; text-align: left"><monospace>0.01</monospace></td>
<td style="vertical-align: top; text-align: left">A positive value for the minimum value of tuning parameters</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>LambMax</monospace></td>
<td style="vertical-align: top; text-align: left"><monospace>1.0</monospace></td>
<td style="vertical-align: top; text-align: left">A positive value for the maximum value of tuning parameters</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>nLamb</monospace></td>
<td style="vertical-align: top; text-align: left"><monospace>100</monospace></td>
<td style="vertical-align: top; text-align: left">An integer for the number of tuning parameters between <monospace>LambMin</monospace> and <monospace>LambMax</monospace></td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>nIterEM</monospace></td>
<td style="vertical-align: top; text-align: left"><monospace>400</monospace></td>
<td style="vertical-align: top; text-align: left">Maximum number of iterations for the EM algorithm</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>nIterNR</monospace></td>
<td style="vertical-align: top; text-align: left"><monospace>2</monospace></td>
<td style="vertical-align: top; text-align: left">Maximum number of iterations for the Newton-Raphson algorithm</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>penFamily</monospace></td>
<td style="vertical-align: top; text-align: left"><monospace>"lasso"</monospace></td>
<td style="vertical-align: top; text-align: left">The penalty used in variable selection method. The available options are <monospace>"lasso"</monospace>, <monospace>"adplasso"</monospace>, <monospace>"mcp"</monospace>,</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"><monospace>"scad"</monospace>, <monospace>"sica"</monospace> and <monospace>"hard"</monospace>.</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>NRpor</monospace></td>
<td style="vertical-align: top; text-align: left"><monospace>2</monospace></td>
<td style="vertical-align: top; text-align: left">A positive integer for the maximum number of searches in the Newton-Raphson algorithm</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>activeset</monospace></td>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left">A 0-1 matrix that shows which coefficients must be active in the model. This could be an <monospace>oracleset</monospace></td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left">as well.</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin"><monospace>cutpoint</monospace></td>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin"><monospace>0.05</monospace></td>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin">A positive integer for setting the estimates to zero if they are too small.</td>
</tr>
</tbody><tbody>
<tr>
<td style="vertical-align: top; text-align: left"><italic>Notations</italic></td>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left"/>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>FMRs</monospace></td>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left">Finite Mixture of Regression Models including <monospace>fmaftr</monospace> and <monospace>FMR</monospace></td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left"><monospace>fmaftr</monospace></td>
<td style="vertical-align: top; text-align: left"/>
<td style="vertical-align: top; text-align: left">Finite Mixture of Accelerated Failure Time Regression</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin"><monospace>FMR</monospace></td>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin"/>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin">Finite Mixture of Regression</td>
</tr>
</tbody>
</table>
</table-wrap>
</sec>
<sec id="j_nejsds49_s_013">
<label>5.2</label>
<title>Description of the Main Functions</title>
<p>The <bold>fmrs</bold> package has two main classes and four main functions. The classes are as follows: 
<list>
<list-item id="j_nejsds49_li_005">
<label>•</label>
<p>The <monospace>fmrsfit</monospace> class</p>
</list-item>
</list> 
The class <monospace>fmrsfit</monospace> is designed to store fitted models obtained through <sc>mle</sc> and <sc>mple</sc> using the functions <monospace>fmrs.mle</monospace> and <monospace>fmrs.varsel</monospace>. It stores various information such as the response variable, design matrix, censoring information, parameter estimates, fitted values, posterior probabilities, and evaluation criteria like log-likelihood and <sc>bic</sc>. The <sans-serif>R</sans-serif> function <monospace>summary</monospace> provides a standard output of this information. 
<list>
<list-item id="j_nejsds49_li_006">
<label>•</label>
<p>The <monospace>fmrstunpar</monospace> class</p>
</list-item>
</list> 
The class <monospace>fmrstunpar</monospace> is introduced to store tuning parameters obtained using the component-wise <sc>bic</sc> approach in (<xref rid="j_nejsds49_eq_028">4.4</xref>), which can be utilized in the <monospace>fmrs.varsel</monospace> function.</p>
<p>The package introduces 17 functions, with four of them being the main functions. The arguments for these functions are described in Tables <xref rid="j_nejsds49_tab_001">1</xref>-<xref rid="j_nejsds49_tab_003">3</xref>. Below, we provide a brief introduction to these functions. 
<list>
<list-item id="j_nejsds49_li_007">
<label>•</label>
<p>The <monospace>fmrs.gendata</monospace> function</p>
</list-item>
</list> 
The <sans-serif>R</sans-serif> function <monospace>fmrs.gendata</monospace> is used to simulate a dataset from <sc>fmr</sc>s. It has the following form:</p>
<p><monospace>fmrs.gendata(nObs, nComp, nCov, coeff,</monospace></p>
<p><monospace>dispersion, mixProp, rho, umax, disFamily, ...)</monospace>,</p>
<p>where <monospace>nObs</monospace>, <monospace>nComp</monospace>, <monospace>nCov</monospace>, <monospace>coeff</monospace>, <monospace>dispersion</monospace>, <monospace>mixProp</monospace> and <monospace>disFamily</monospace> represent the sample size, the order of <sc>fmr</sc>s, the number of regression covariates, the regression coefficients, the dispersions of errors, the mixing proportions, and the distribution of components of <sc>fmr</sc>s, respectively.</p>
<p>It is important to note that <monospace>rho</monospace> (i.e., <italic>ρ</italic>) is used in the variance-covariance matrix to simulate the design matrix <bold>X</bold> from a multivariate Gaussian distribution with mean <inline-formula id="j_nejsds49_ineq_084"><alternatives><mml:math>
<mml:mn mathvariant="bold">0</mml:mn></mml:math><tex-math><![CDATA[$\mathbf{0}$]]></tex-math></alternatives></inline-formula> and variance-covariance matrix <inline-formula id="j_nejsds49_ineq_085"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="normal">Σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">X</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>=</mml:mo>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="italic">ρ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo stretchy="false">|</mml:mo>
<mml:mi mathvariant="italic">l</mml:mi>
<mml:mo>−</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo stretchy="false">|</mml:mo>
</mml:mrow>
</mml:msup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo></mml:math><tex-math><![CDATA[${\Sigma _{X}}=({\rho ^{|l-m|}})$]]></tex-math></alternatives></inline-formula>. The right censoring times are generated using a Uniform distribution with lower and upper bounds of 0 and <monospace>umax</monospace>, respectively. Depending on the choice of <monospace>disFamily</monospace>, the function <monospace>fmrs.gendata</monospace> generates a dataset from <sc>fmaftr</sc> or <sc>fmr</sc>. The default value is <monospace>disFamily = "lnorm"</monospace>. If <monospace>disFamily = "norm"</monospace>, the function ignores the censoring parameter <monospace>umax</monospace> and generates a dataset from <sc>fmr</sc> with Normal sub-distributions. On the other hand, if <monospace>disFamily = "lnorm"</monospace> or <monospace>disFamily = "weibull"</monospace>, the function produces a dataset from <sc>fmaftr</sc> with Log-Normal or Weibull sub-distribution. Consequently, <monospace>fmrs.gendata</monospace> returns a list containing a vector of responses <monospace>y</monospace>, a matrix of covariates <monospace>x</monospace>, a vector of censoring indicators <monospace>delta</monospace>, and the name of the sub-distributions of the mixture model. 
<list>
<list-item id="j_nejsds49_li_008">
<label>•</label>
<p>The <monospace>fmrs.mle</monospace> function</p>
</list-item>
</list> 
The <sans-serif>C</sans-serif> function <monospace>fmrs.mle</monospace> returns the <sc>mle</sc> for the parameters of <sc>fmr</sc>s. It has the following form:</p>
<p><monospace>fmrs.mle(y, delta, x, nComp, disFamily,</monospace></p>
<p><monospace>initCoeff, initDispersion, initmixProp,</monospace></p>
<p><monospace>oracleset, ... )</monospace>.</p>
<p>Here, <monospace>delta</monospace>, <monospace>initCoeff</monospace>, <monospace>initDispersion</monospace>, <monospace>initmixProp</monospace>, and <monospace>oracleset</monospace> represent the censoring indicators, the initial values for regression coefficients, the dispersions, and the mixing proportions, and the set of oracle covariates that should be included in each component of the mixture model, respectively. The remaining arguments in <monospace>fmrs.mle</monospace> are controlling parameters.</p>
<p>This function returns a fitted <sc>fmr</sc>s model that includes the <sc>mle</sc> of regression parameters, standard deviations, and mixing proportions based on the EM algorithm. The output also includes the log-likelihood and <sc>bic</sc> for the fitted model, the maximum number of iterations used in the EM algorithm, and the type of the fitted <sc>fmr</sc>s (i.e., <monospace>FMAFTR</monospace> or <monospace>FMR</monospace>). To perform Ridge regression, a positive value must be chosen for <monospace>lambRidge</monospace>, which is the tuning parameter of the Ridge penalty.</p>
<p>The default values for the arguments are as follows: <monospace>nComp = 2</monospace>, <monospace>disFamily = "lnorm"</monospace>, <monospace>lambRidge = 0</monospace>, <monospace>nIterEM = 400</monospace>, <monospace>nIterNR = 2</monospace>, <monospace>conveps = 1e-08</monospace>, <monospace>convepsEM = 1e-08</monospace>, <monospace>convepsNR = 1e-08</monospace>, and <monospace>NRpor = 2</monospace>. 
<list>
<list-item id="j_nejsds49_li_009">
<label>•</label>
<p>The <monospace>fmrs.tunsel</monospace> function</p>
</list-item>
</list> 
The <sans-serif>C</sans-serif> function <monospace>fmrs.tunsel</monospace> is used to search for a data-driven tuning parameter from a selected set of values. It has the following form:</p>
<p><monospace>fmrs.tunsel(y, delta, x, nComp, disFamily,</monospace></p>
<p><monospace>initCoeff, initDispersion, initmixProp,</monospace></p>
<p><monospace>penFamily, lambRidge, oracleset, lambMCP,</monospace></p>
<p><monospace>lambSICA, LambMin, LambMax, nLamb, ...)</monospace>.</p>
<p>Here, <monospace>penFamily</monospace>, <monospace>lambMCP</monospace>, and <monospace>lambSICA</monospace> represent the penalty function, the hyper-parameter for <sc>mcp</sc>, and the hyper-parameter for <sc>sica</sc> penalty. Additionally, <monospace>LambMin</monospace>, <monospace>LambMax</monospace>, and <monospace>nLamb</monospace> specify the minimum, maximum, and the number of tuning parameters used to obtain the optimal tuning parameter based on the component-wise tuning parameter selection approach. The function returns an <monospace>fmrstunpar</monospace> class.</p>
<p>The default values for the arguments are as follows: <monospace>disFamily = "lnorm"</monospace>, <monospace>penFamily = "lasso"</monospace>, <monospace>lambRidge = 0</monospace>, <monospace>nIterEM = 400</monospace>, <monospace>nIterNR = 2</monospace>, <monospace>conveps = 1e-08</monospace>, <monospace>convepsEM = 1e-08</monospace>, <monospace>convepsNR = 1e-08</monospace>, <monospace>NRpor = 2</monospace>, <monospace>gamMixPor = 1</monospace>, <monospace>cutpoint = 0.05</monospace>, <monospace>LambMin = 0.01</monospace>, <monospace>LambMax = 1</monospace>, and <monospace>nLamb = 100</monospace>. 
<list>
<list-item id="j_nejsds49_li_010">
<label>•</label>
<p>The <monospace>fmrs.varsel</monospace> function</p>
</list-item>
</list> 
The <sans-serif>C</sans-serif> function <monospace>fmrs.varsel</monospace> is used to perform variable selection (<sc>mple</sc>) for the parameters of <sc>fmr</sc>s. It has the following form:</p>
<p><monospace>fmrs.varsel(y, delta, x, nComp, disFamily,</monospace></p>
<p><monospace>initCoeff, initDispersion, initmixProp,</monospace></p>
<p><monospace>penFamily, lambPen, lambRidge, oracleset,</monospace></p>
<p><monospace>lambMCP, lambSICA, ... )</monospace>.</p>
<p>Here, <monospace>lambPen</monospace> represents the set of tuning parameters for the penalty function. The function returns an <monospace>fmrstfit</monospace> class that stores the values of <sc>mple</sc> for the regression parameters.</p>
<p>The default values for the arguments are as follows: <monospace>disFamily = "lnorm"</monospace>, <monospace>penFamily = "lasso"</monospace>, <monospace>lambRidge = 0</monospace>, <monospace>nIterEM = 2000</monospace>, <monospace>nIterNR = 2</monospace>, <monospace>conveps = 1e-08</monospace>, <monospace>convepsEM = 1e-08</monospace>, <monospace>convepsNR = 1e-08</monospace>, <monospace>NRpor = 2</monospace>, <monospace>gamMixPor = 1</monospace>, and <monospace>cutpoint = 0.05</monospace>. 
<list>
<list-item id="j_nejsds49_li_011">
<label>•</label>
<p>Additional functions</p>
</list-item>
</list> 
In addition to the main functions, we have introduced several auxiliary functions to extract and report the results obtained from the main functions. These functions are listed in Table <xref rid="j_nejsds49_tab_002">2</xref>. One such example is the <monospace>summary</monospace> function, which summarizes the results of all functions in a standard manner.</p>
</sec>
</sec>
<sec id="j_nejsds49_s_014">
<label>6</label>
<title>The fmrs Package in Action</title>
<sec id="j_nejsds49_s_015">
<label>6.1</label>
<title>Example 1: FMAFTR Model with Log-Normal Sub-Distributions</title>
<p>In order to illustrate the application of <bold>fmrs</bold>, we begin by generating a dataset from an <sc>fmaft</sc> model. It is worth noting that for a comprehensive simulation study, users can refer to [<xref ref-type="bibr" rid="j_nejsds49_ref_029">29</xref>].</p>
<p>We generate the covariates from a multivariate normal distribution with a dimension of 10 and a sample size of 500. The mean vector is set to <inline-formula id="j_nejsds49_ineq_086"><alternatives><mml:math>
<mml:mn mathvariant="bold">0</mml:mn></mml:math><tex-math><![CDATA[$\mathbf{0}$]]></tex-math></alternatives></inline-formula>, and the variance-covariance matrix is <inline-formula id="j_nejsds49_ineq_087"><alternatives><mml:math>
<mml:mi mathvariant="normal">Σ</mml:mi>
<mml:mo>=</mml:mo>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mn>0.25</mml:mn>
</mml:mrow>
<mml:mrow>
<mml:mo stretchy="false">|</mml:mo>
<mml:mi mathvariant="italic">l</mml:mi>
<mml:mo>−</mml:mo>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mo stretchy="false">|</mml:mo>
</mml:mrow>
</mml:msup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo></mml:math><tex-math><![CDATA[$\Sigma =({0.25^{|l-m|}})$]]></tex-math></alternatives></inline-formula>. Subsequently, we simulate time-to-event data from a finite mixture of two components using <sc>aft</sc> regression models with Log-Normal sub-distributions. We load the necessary libraries and assign the parameters of the model. The parameter values chosen for this simulation are provided in the following code:</p>
<p><graphic xlink:href="nejsds49_g001.jpg"/></p>
<p>One can use <monospace>fmrs.gendata</monospace> to generate data from an <sc>fmaftr</sc> model as follows:</p>
<p><graphic xlink:href="nejsds49_g002.jpg"/> Regrettably, the use of R for random generation produces distinct datasets across various machines and operating systems. Therefore, we have included alternative Python code to ensure reproducibility.</p>
<p>With the simulated dataset in hand, we proceed to estimate the <sc>mle</sc>s of the model parameters using the <monospace>fmrs.mle</monospace> function. It is worth noting that the initial values for the regression parameters are generated from a standard normal distribution.</p>
<p><graphic xlink:href="nejsds49_g003.jpg"/></p>
<p>It is evident that the <sc>mle</sc>s of the regression coefficients are not equal to zero. As a result, the <sc>mle</sc> approach alone cannot provide a sparse solution. To achieve sparsity, we utilize the variable selection method developed by [<xref ref-type="bibr" rid="j_nejsds49_ref_029">29</xref>]. Once we obtain the <sc>mle</sc>s, the next step is to determine a set of suitable tuning parameters. This can be accomplished by employing the component-wise approach implemented in the <monospace>fmrs.tunsel</monospace> function. However, in certain scenarios, it is worthwhile to explore whether the common tuning parameter approach yields superior results. This can be investigated through data-driven simulation studies, for example.</p>
<p><graphic xlink:href="nejsds49_g004.jpg"/></p>
<p>We have utilized the <sc>mle</sc> estimates as initial values to obtain the tuning parameters. In this phase, the same set of values is employed to conduct variable selection with an adaptive <sc>lasso</sc> penalty.</p>
<p><graphic xlink:href="nejsds49_g005.jpg"/></p>
<sec id="j_nejsds49_s_016">
<label>6.1.1</label>
<title>Common Tuning Parameters</title>
<p>If we desire to select a common tuning parameter, there is no need to execute any additional functions after <monospace>fmrs.mle(.)</monospace>. Instead, we can employ a for-loop command to search for the optimal fit and the common tuning parameter using <monospace>fmrs.varsel(.)</monospace>. The following code demonstrates an example of this process.</p>
<p><graphic xlink:href="nejsds49_g006.jpg"/></p>
</sec>
</sec>
<sec id="j_nejsds49_s_017">
<label>6.2</label>
<title>Example 2: FMR Model with Normal Sub-Distributions</title>
<p>As mentioned in Section <xref rid="j_nejsds49_s_002">2</xref>, the <sc>mle</sc> and <sc>mple</sc> of an <sc>fmr</sc> model can be obtained by disregarding the censoring in the <sc>fmaftr</sc> setting. We select the following parameters to generate the data from an <sc>fmr</sc> model.</p>
<p>By specifying <monospace>"norm"</monospace> for <monospace>disFamily</monospace> in <monospace>fmrs.gendata</monospace>, we generate a dataset from an <sc>fmr</sc> model using the following code:</p>
<p><graphic xlink:href="nejsds49_g007.jpg"/></p>
<p>Similar to the above, we use Python to generate the data. <graphic xlink:href="nejsds49_g008.jpg"/></p>
<p>The <sc>mle</sc> of the <sc>fmr</sc> model parameters are obtained as follows:</p>
<p><graphic xlink:href="nejsds49_g009.jpg"/></p>
<p>The following code is used in selecting the component-wise tuning parameters:</p>
<p><graphic xlink:href="nejsds49_g010.jpg"/></p>
<p>Having selected the tuning parameters, we perform variable selection in <sc>fmr</sc> as follows:</p>
<p><graphic xlink:href="nejsds49_g011.jpg"/></p>
</sec>
<sec id="j_nejsds49_s_018">
<label>6.3</label>
<title>Example 3: Comparison with the Existing Methods</title>
<p>We conducted a simulation study to compare the performance of <bold>fmrs</bold> with existing methods. Currently, <bold>fmrlasso</bold> is the only method available that offers a variable selection in <sc>fmr</sc>, and there is no package providing variable selection in <sc>fmaftr</sc>.</p>
<p>In our simulation study, we consider the model <inline-formula id="j_nejsds49_ineq_088"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">y</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mo>=</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold">x</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub>
<mml:mi mathvariant="bold-italic">β</mml:mi>
<mml:mo>+</mml:mo>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">e</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub></mml:math><tex-math><![CDATA[${y_{i}}={\mathbf{x}_{i}}\boldsymbol{\beta }+{e_{i}}$]]></tex-math></alternatives></inline-formula>, <inline-formula id="j_nejsds49_ineq_089"><alternatives><mml:math>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mo>…</mml:mo>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mi mathvariant="italic">n</mml:mi></mml:math><tex-math><![CDATA[$i=1,\dots ,n$]]></tex-math></alternatives></inline-formula>, where <inline-formula id="j_nejsds49_ineq_090"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">e</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
</mml:mrow>
</mml:msub><mml:mover>
<mml:mrow>
<mml:mo stretchy="false">∼</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:mrow>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">i</mml:mi>
<mml:mi mathvariant="italic">d</mml:mi>
</mml:mrow>
</mml:mrow>
</mml:mover>
<mml:mi mathvariant="italic">N</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mn>0</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="italic">σ</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>2</mml:mn>
</mml:mrow>
</mml:msup>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo></mml:math><tex-math><![CDATA[${e_{i}}\stackrel{iid}{\sim }N(0,{\sigma ^{2}})$]]></tex-math></alternatives></inline-formula>. For the <sc>fmr</sc> model, we set <inline-formula id="j_nejsds49_ineq_091"><alternatives><mml:math>
<mml:mi mathvariant="italic">K</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>2</mml:mn></mml:math><tex-math><![CDATA[$K=2$]]></tex-math></alternatives></inline-formula>, <inline-formula id="j_nejsds49_ineq_092"><alternatives><mml:math>
<mml:mi mathvariant="italic">n</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>500</mml:mn></mml:math><tex-math><![CDATA[$n=500$]]></tex-math></alternatives></inline-formula>, <inline-formula id="j_nejsds49_ineq_093"><alternatives><mml:math>
<mml:mi mathvariant="italic">d</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>5</mml:mn></mml:math><tex-math><![CDATA[$d=5$]]></tex-math></alternatives></inline-formula>, <inline-formula id="j_nejsds49_ineq_094"><alternatives><mml:math>
<mml:mi mathvariant="italic">π</mml:mi>
<mml:mo>=</mml:mo>
<mml:mo fence="true" stretchy="false">[</mml:mo>
<mml:mn>0.4</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mn>0.6</mml:mn>
<mml:mo fence="true" stretchy="false">]</mml:mo></mml:math><tex-math><![CDATA[$\pi =[0.4,0.6]$]]></tex-math></alternatives></inline-formula>, <inline-formula id="j_nejsds49_ineq_095"><alternatives><mml:math>
<mml:mi mathvariant="italic">ρ</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>0.25</mml:mn></mml:math><tex-math><![CDATA[$\rho =0.25$]]></tex-math></alternatives></inline-formula>, <inline-formula id="j_nejsds49_ineq_096"><alternatives><mml:math>
<mml:mi mathvariant="italic">σ</mml:mi>
<mml:mo>=</mml:mo>
<mml:mo fence="true" stretchy="false">[</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo fence="true" stretchy="false">]</mml:mo></mml:math><tex-math><![CDATA[$\sigma =[1,1]$]]></tex-math></alternatives></inline-formula>, <inline-formula id="j_nejsds49_ineq_097"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>1</mml:mn>
</mml:mrow>
</mml:msub>
<mml:mo>=</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mo fence="true" stretchy="false">[</mml:mo>
<mml:mo>−</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mn>2</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mn>0</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mn>0</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mo>−</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mn>2</mml:mn>
<mml:mo fence="true" stretchy="false">]</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:mo>⊤</mml:mo>
</mml:mrow>
</mml:msup></mml:math><tex-math><![CDATA[${\boldsymbol{\beta }_{1}}={[-1,2,0,0,-1,2]^{\top }}$]]></tex-math></alternatives></inline-formula>, <inline-formula id="j_nejsds49_ineq_098"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="bold-italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>2</mml:mn>
</mml:mrow>
</mml:msub>
<mml:mo>=</mml:mo>
<mml:msup>
<mml:mrow>
<mml:mo fence="true" stretchy="false">[</mml:mo>
<mml:mn>2</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mn>1</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mn>0</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mn>0</mml:mn>
<mml:mo mathvariant="normal">,</mml:mo>
<mml:mn>0</mml:mn>
<mml:mo fence="true" stretchy="false">]</mml:mo>
</mml:mrow>
<mml:mrow>
<mml:mo>⊤</mml:mo>
</mml:mrow>
</mml:msup></mml:math><tex-math><![CDATA[${\boldsymbol{\beta }_{2}}={[2,1,1,0,0,0]^{\top }}$]]></tex-math></alternatives></inline-formula>.</p>
<p>We generated <inline-formula id="j_nejsds49_ineq_099"><alternatives><mml:math>
<mml:mi mathvariant="italic">r</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>100</mml:mn></mml:math><tex-math><![CDATA[$r=100$]]></tex-math></alternatives></inline-formula> datasets and evaluated the performance. The simulation results are presented in Table <xref rid="j_nejsds49_tab_004">4</xref>. The results demonstrate that <bold>fmrs</bold> outperforms <bold>fmrlasso</bold> in terms of correctly identifying zero or non-zero coefficients. The codes are given in the supplementary materials.</p>
<table-wrap id="j_nejsds49_tab_004">
<label>Table 4</label>
<caption>
<p>Percentage of correctly identified regression coefficients as zero or non-zero.</p>
</caption>
<table>
<thead>
<tr>
<td style="vertical-align: top; text-align: left; border-top: double; border-bottom: solid thin">Package</td>
<td style="vertical-align: top; text-align: left; border-top: double; border-bottom: solid thin"><inline-formula id="j_nejsds49_ineq_100"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>11</mml:mn>
</mml:mrow>
</mml:msub></mml:math><tex-math><![CDATA[${\beta _{11}}$]]></tex-math></alternatives></inline-formula></td>
<td style="vertical-align: top; text-align: left; border-top: double; border-bottom: solid thin"><inline-formula id="j_nejsds49_ineq_101"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>21</mml:mn>
</mml:mrow>
</mml:msub></mml:math><tex-math><![CDATA[${\beta _{21}}$]]></tex-math></alternatives></inline-formula></td>
<td style="vertical-align: top; text-align: left; border-top: double; border-bottom: solid thin"><inline-formula id="j_nejsds49_ineq_102"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>31</mml:mn>
</mml:mrow>
</mml:msub></mml:math><tex-math><![CDATA[${\beta _{31}}$]]></tex-math></alternatives></inline-formula></td>
<td style="vertical-align: top; text-align: left; border-top: double; border-bottom: solid thin"><inline-formula id="j_nejsds49_ineq_103"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>41</mml:mn>
</mml:mrow>
</mml:msub></mml:math><tex-math><![CDATA[${\beta _{41}}$]]></tex-math></alternatives></inline-formula></td>
<td style="vertical-align: top; text-align: left; border-top: double; border-bottom: solid thin"><inline-formula id="j_nejsds49_ineq_104"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>51</mml:mn>
</mml:mrow>
</mml:msub></mml:math><tex-math><![CDATA[${\beta _{51}}$]]></tex-math></alternatives></inline-formula></td>
<td style="vertical-align: top; text-align: left; border-top: double; border-bottom: solid thin"><inline-formula id="j_nejsds49_ineq_105"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>12</mml:mn>
</mml:mrow>
</mml:msub></mml:math><tex-math><![CDATA[${\beta _{12}}$]]></tex-math></alternatives></inline-formula></td>
<td style="vertical-align: top; text-align: left; border-top: double; border-bottom: solid thin"><inline-formula id="j_nejsds49_ineq_106"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>22</mml:mn>
</mml:mrow>
</mml:msub></mml:math><tex-math><![CDATA[${\beta _{22}}$]]></tex-math></alternatives></inline-formula></td>
<td style="vertical-align: top; text-align: left; border-top: double; border-bottom: solid thin"><inline-formula id="j_nejsds49_ineq_107"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>32</mml:mn>
</mml:mrow>
</mml:msub></mml:math><tex-math><![CDATA[${\beta _{32}}$]]></tex-math></alternatives></inline-formula></td>
<td style="vertical-align: top; text-align: left; border-top: double; border-bottom: solid thin"><inline-formula id="j_nejsds49_ineq_108"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>42</mml:mn>
</mml:mrow>
</mml:msub></mml:math><tex-math><![CDATA[${\beta _{42}}$]]></tex-math></alternatives></inline-formula></td>
<td style="vertical-align: top; text-align: left; border-top: double; border-bottom: solid thin"><inline-formula id="j_nejsds49_ineq_109"><alternatives><mml:math>
<mml:msub>
<mml:mrow>
<mml:mi mathvariant="italic">β</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mn>52</mml:mn>
</mml:mrow>
</mml:msub></mml:math><tex-math><![CDATA[${\beta _{52}}$]]></tex-math></alternatives></inline-formula></td>
</tr>
</thead>
<tbody>
<tr>
<td style="vertical-align: top; text-align: left"><bold>fmr</bold></td>
<td style="vertical-align: top; text-align: left">100</td>
<td style="vertical-align: top; text-align: left">100</td>
<td style="vertical-align: top; text-align: left">88</td>
<td style="vertical-align: top; text-align: left">89</td>
<td style="vertical-align: top; text-align: left">89</td>
<td style="vertical-align: top; text-align: left">100</td>
<td style="vertical-align: top; text-align: left">66</td>
<td style="vertical-align: top; text-align: left">77</td>
<td style="vertical-align: top; text-align: left">100</td>
<td style="vertical-align: top; text-align: left">100</td>
</tr>
<tr>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin"><bold>fmrlasso</bold></td>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin">100</td>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin">100</td>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin">63</td>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin">55</td>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin">54</td>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin">100</td>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin">47</td>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin">61</td>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin">100</td>
<td style="vertical-align: top; text-align: left; border-bottom: solid thin">100</td>
</tr>
</tbody>
</table>
</table-wrap>
<p>It is worth noting that <bold>fmrs</bold> significantly outperforms <bold>fmrlasso</bold> in terms of computational speed. In the aforementioned simulation study, where <sc>bic</sc> was used, <bold>fmrs</bold> was found to be over 20 times faster than <bold>fmrlasso</bold>. Moreover, unlike <bold>fmrlasso</bold>, <bold>fmrs</bold> provides variable selection capabilities for various penalties such as <sc>mcp</sc>, <sc>scad</sc>, and others. Additionally, <bold>fmrs</bold> can handle variable selection in the presence of censored observations, which is a limitation of <bold>fmrlasso</bold>.</p>
</sec>
<sec id="j_nejsds49_s_019">
<label>6.4</label>
<title>Example 4: Non-Mixture Models</title>
<p>As stated by the reviewers, the non-mixture versions of the models implemented in <monospace>fmrs</monospace> are highly beneficial for researchers. Therefore, we have added these models to the package. The users need to specify <inline-formula id="j_nejsds49_ineq_110"><alternatives><mml:math>
<mml:mi mathvariant="italic">n</mml:mi>
<mml:mi mathvariant="italic">C</mml:mi>
<mml:mi mathvariant="italic">o</mml:mi>
<mml:mi mathvariant="italic">m</mml:mi>
<mml:mi mathvariant="italic">p</mml:mi>
<mml:mo>=</mml:mo>
<mml:mn>1</mml:mn></mml:math><tex-math><![CDATA[$nComp=1$]]></tex-math></alternatives></inline-formula> to fit such models. A sample code for the accelerated failure time regression model is given as follows:</p>
<p><graphic xlink:href="nejsds49_g012.jpg"/></p>
</sec>
</sec>
<sec id="j_nejsds49_s_020">
<label>7</label>
<title>Analyzing Lung Cancer Data</title>
<p>In this section, we analyze lung cancer data obtained from the <bold>survival</bold> package [<xref ref-type="bibr" rid="j_nejsds49_ref_022">22</xref>]. The dataset consists of information from 228 subjects with 7 covariates. The data includes the survival time of patients with lung cancer along with their censoring status. The following information is available for each subject:</p>
<list>
<list-item id="j_nejsds49_li_012">
<label>•</label>
<p><monospace>time</monospace>: Survival time in days;</p>
</list-item>
<list-item id="j_nejsds49_li_013">
<label>•</label>
<p><monospace>status</monospace>: censoring status 1=censored, 2=dead;</p>
</list-item>
<list-item id="j_nejsds49_li_014">
<label>•</label>
<p><monospace>age</monospace>: Age in years;</p>
</list-item>
<list-item id="j_nejsds49_li_015">
<label>•</label>
<p><monospace>sex</monospace>: Male=1 Female=2;</p>
</list-item>
<list-item id="j_nejsds49_li_016">
<label>•</label>
<p><monospace>ph.ecog</monospace>: Eastern Cooperative Oncology Group (ECOG) performance status (0=good 5=dead);</p>
</list-item>
<list-item id="j_nejsds49_li_017">
<label>•</label>
<p><monospace>ph.karno</monospace>: Karnofsky performance score (bad=0-good=100) rated by physician;</p>
</list-item>
<list-item id="j_nejsds49_li_018">
<label>•</label>
<p><monospace>pat.karno</monospace>: Karnofsky performance score as rated by the patient;</p>
</list-item>
<list-item id="j_nejsds49_li_019">
<label>•</label>
<p><monospace>meal.cal</monospace>: Calories consumed at meals;</p>
</list-item>
<list-item id="j_nejsds49_li_020">
<label>•</label>
<p><monospace>wt.loss</monospace>: Weight loss in the last six months.</p>
</list-item>
</list>
<p>In our analysis, we first remove the variable <monospace>meal.cal</monospace> due to a large number of missing values. Next, we exclude subjects with missing information, resulting in a reduced number of subjects (patients) to 210. The analysis includes the remaining 6 covariates.</p>
<p>We perform variable selection using <bold>fmrs</bold>. We fit <sc>fmaftr</sc> models of order <italic>K</italic> ranging from 2 to 5 using the order selection technique described in Section <xref rid="j_nejsds49_s_010">4.2</xref> and the component-wise technique described in Section <xref rid="j_nejsds49_s_009">4.1</xref>. We use the following parameter values: <monospace>cutpoint = 0.001</monospace>, <monospace>LambMin = 0.001</monospace>, <monospace>LambMax = 1</monospace>, and <monospace>nLamb = 1000</monospace>. The code is given as follows:</p>
<p><graphic xlink:href="nejsds49_g013.jpg"/></p>
<p>The results show that a mixture of two components is selected, with approximately 69% of the patients classified in Component 1. In Component 1, the variables <monospace>sex</monospace>, <monospace>ph.karno</monospace>, and <monospace>pat.karno</monospace> are selected with positive effects. On the other hand, in Component 2, the variables <monospace>age</monospace>, <monospace>ph.ecog</monospace>, and <monospace>ph.karno</monospace> are selected with negative effects. Component 1 represents a more aggressive form of the disease, characterized by a lower survival time (see Figure <xref rid="j_nejsds49_fig_001">1</xref>).</p>
<fig id="j_nejsds49_fig_001">
<label>Figure 1</label>
<caption>
<p>Density of fitted values for the lung cancer data.</p>
</caption>
<graphic xlink:href="nejsds49_g014.jpg"/>
</fig>
</sec>
<sec id="j_nejsds49_s_021">
<label>8</label>
<title>Concluding Remarks</title>
<p>We have developed the <sans-serif>R</sans-serif> package <bold>fmrs</bold> to perform sparse estimation in finite mixture models, including the finite mixture of accelerated failure time and the finite mixture of regression models. The main functions in the package are implemented in <sans-serif>C</sans-serif> language to enhance computational efficiency. The <sans-serif>R</sans-serif> functions are written using S4-methods. The package also includes ridge regression, and it implements various penalty functions. Our tests show that the <bold>fmrs</bold> package outperforms <bold>fmrlasso</bold> in terms of computational time.</p>
<p>Censoring is a crucial aspect of time-to-event data, and ignoring it can significantly deteriorate the performance of variable selection methods. Additionally, heterogeneity of effects is common in many time-to-event datasets, and ignoring it can lead to misleading analyses [<xref ref-type="bibr" rid="j_nejsds49_ref_029">29</xref>].</p>
<p>The classical statistical theory assumes the validity of statistical inference (tests and confidence intervals) when model selection and model fitting are performed separately [<xref ref-type="bibr" rid="j_nejsds49_ref_003">3</xref>]. If the focus of data analysis is solely on <sc>mle</sc> and statistical inference such as goodness-of-fit tests, one can obtain the variance-covariance matrix from the Hessian matrix and perform inference accordingly. However, variable selection methods produce stochastic models, which invalidate classical inferences. Therefore, post-selection methods must be developed to address this issue, which is beyond the scope of this paper.</p>
<p>We recommend users repeat the EM algorithm with different initialization. The best initialization is the one that yields the highest likelihood value. It is worth noting that several initialization strategies have been proposed in the literature [<xref ref-type="bibr" rid="j_nejsds49_ref_004">4</xref>].</p>
<p>The method presented in [<xref ref-type="bibr" rid="j_nejsds49_ref_029">29</xref>] is suitable for scenarios with a small number of variables (<italic>p</italic>) and a large number of observations (<italic>n</italic>). In cases where the total number of parameters (<inline-formula id="j_nejsds49_ineq_111"><alternatives><mml:math>
<mml:msup>
<mml:mrow>
<mml:mi mathvariant="italic">p</mml:mi>
</mml:mrow>
<mml:mrow>
<mml:mo>∗</mml:mo>
</mml:mrow>
</mml:msup>
<mml:mo>=</mml:mo>
<mml:mi mathvariant="italic">K</mml:mi>
<mml:mo mathvariant="normal" fence="true" stretchy="false">(</mml:mo>
<mml:mi mathvariant="italic">p</mml:mi>
<mml:mo>+</mml:mo>
<mml:mn>3</mml:mn>
<mml:mo mathvariant="normal" fence="true" stretchy="false">)</mml:mo>
<mml:mo>−</mml:mo>
<mml:mn>1</mml:mn></mml:math><tex-math><![CDATA[${p^{\ast }}=K(p+3)-1$]]></tex-math></alternatives></inline-formula>) approaches or exceeds <italic>n</italic>, one may utilize the <bold>fmrs</bold> package. However, it is essential to approach such cases with caution and carefully select an optimal ridge tuning parameter. Moreover, for high-dimensional settings, the development of new methods is required.</p>
<p>To expand the scope of our package, we plan to include additional sub-distribution functions, such as the Generalized Gamma and Gompertz distributions, in the near future. For the Gamma and Generalized Gamma distributions, we will investigate closed-form solutions for parameter estimation based on the method of moments and implement them in the package.</p>
</sec>
</body>
<back>
<app-group>
<app id="j_nejsds49_app_001"><label>Appendix A</label>
<title>Algorithms</title>
<fig id="j_nejsds49_fig_002">
<label>Algorithm 1</label>
<caption>
<p><sc>mle</sc> of <sc>fmaftr</sc> with Log-Normal sub-distributions.</p>
</caption>
<graphic xlink:href="nejsds49_g015.jpg"/>
</fig> 
<fig id="j_nejsds49_fig_003">
<label>Algorithm 2</label>
<caption>
<p>Component-wise tuning parameter selection in <sc>fmaftr</sc> with Log-Normal.</p>
</caption>
<graphic xlink:href="nejsds49_g016.jpg"/>
</fig> 
<fig id="j_nejsds49_fig_004">
<label>Algorithm 3</label>
<caption>
<p>Variable selection in <sc>fmaftr</sc> with Log-Normal sub-distributions.</p>
</caption>
<graphic xlink:href="nejsds49_g017.jpg"/>
</fig>
</app></app-group>
<ack id="j_nejsds49_ack_001">
<title>Acknowledgements</title>
<p>The author would like to express his gratitude to the Editor, the Associate Editor, and the two anonymous referees for their valuable and insightful comments, which greatly enhanced the quality of this paper and the <bold>fmrs</bold> package. Additionally, the author would like to extend his thanks to Professor Masoud Asgharian and Abbas Khalili from McGill University, as well as Shili Lin from Ohio State University, for their invaluable contributions to this research. The author would also like to acknowledge Samuel Black and Professor Kazem Taghva from the University of Nevada-Las Vegas for their assistance with <sans-serif>C</sans-serif> programming.</p></ack>
<ref-list id="j_nejsds49_reflist_001">
<title>References</title>
<ref id="j_nejsds49_ref_001">
<label>[1]</label><mixed-citation publication-type="other"><string-name><surname>Basturk</surname>, <given-names>N.</given-names></string-name>, <string-name><surname>Hoogerheide</surname>, <given-names>L. F.</given-names></string-name>, <string-name><surname>Opschoor</surname>, <given-names>A.</given-names></string-name> <string-name><surname>van Dijk</surname>, <given-names>H. K.</given-names></string-name> (2015). MitISEM: Mixture of Student t Distributions using Importance Sampling and Expectation Maximization. <uri>https://cran.r-project.org/web/packages/MitISEM/</uri>.</mixed-citation>
</ref>
<ref id="j_nejsds49_ref_002">
<label>[2]</label><mixed-citation publication-type="journal"><string-name><surname>Benaglia</surname>, <given-names>T.</given-names></string-name>, <string-name><surname>Chauveau</surname>, <given-names>D.</given-names></string-name>, <string-name><surname>Hunter</surname>, <given-names>D. R.</given-names></string-name> <string-name><surname>Young</surname>, <given-names>D.</given-names></string-name> (<year>2009</year>). <article-title>mixtools: An R Package for Analyzing Finite Mixture Models</article-title>. <source>Journal of Statistical Software</source> <volume>32</volume>(<issue>6</issue>) <fpage>1</fpage>–<lpage>29</lpage>.</mixed-citation>
</ref>
<ref id="j_nejsds49_ref_003">
<label>[3]</label><mixed-citation publication-type="journal"><string-name><surname>Berk</surname>, <given-names>R.</given-names></string-name>, <string-name><surname>Brown</surname>, <given-names>L.</given-names></string-name>, <string-name><surname>Buja</surname>, <given-names>A.</given-names></string-name>, <string-name><surname>Zhang</surname>, <given-names>K.</given-names></string-name> <string-name><surname>Zhao</surname>, <given-names>L.</given-names></string-name> (<year>2013</year>). <article-title>Valid post-selection inference</article-title>. <source>The Annals of Statistics</source> <volume>41</volume>(<issue>2</issue>) <fpage>802</fpage>–<lpage>837</lpage>. <ext-link ext-link-type="doi" xlink:href="https://doi.org/10.1214/12-AOS1077" xlink:type="simple">https://doi.org/10.1214/12-AOS1077</ext-link>.</mixed-citation>
</ref>
<ref id="j_nejsds49_ref_004">
<label>[4]</label><mixed-citation publication-type="journal"><string-name><surname>Biernacki</surname>, <given-names>C.</given-names></string-name>, <string-name><surname>Celeux</surname>, <given-names>G.</given-names></string-name> <string-name><surname>Govaert</surname>, <given-names>G.</given-names></string-name> (<year>2003</year>). <article-title>Choosing starting values for the EM algorithm for getting the highest likelihood in multivariate Gaussian mixture models</article-title>. <source>Computational Statistics &amp; Data Analysis</source> <volume>41</volume>(<issue>3</issue>) <fpage>561</fpage>–<lpage>575</lpage>. <comment>Recent Developments in Mixture Model</comment>. <ext-link ext-link-type="doi" xlink:href="https://doi.org/10.1016/S0167-9473(02)00163-9" xlink:type="simple">https://doi.org/10.1016/S0167-9473(02)00163-9</ext-link>. <ext-link ext-link-type="uri" xlink:href="https://mathscinet.ams.org/mathscinet-getitem?mr=1968069">MR1968069</ext-link></mixed-citation>
</ref>
<ref id="j_nejsds49_ref_005">
<label>[5]</label><mixed-citation publication-type="journal"><string-name><surname>Bilgrau</surname>, <given-names>A. E.</given-names></string-name>, <string-name><surname>Eriksen</surname>, <given-names>P. S.</given-names></string-name>, <string-name><surname>Rasmussen</surname>, <given-names>J. G.</given-names></string-name>, <string-name><surname>Johnsen</surname>, <given-names>H. E.</given-names></string-name>, <string-name><surname>Dybkaer</surname>, <given-names>K.</given-names></string-name> <string-name><surname>Boegsted</surname>, <given-names>M.</given-names></string-name> (<year>2016</year>). <article-title>GMCM: Unsupervised Clustering and Meta-Analysis Using Gaussian Mixture Copula Models</article-title>. <source>Journal of Statistical Software</source> <volume>70</volume>(<issue>2</issue>) <fpage>1</fpage>–<lpage>23</lpage>. <ext-link ext-link-type="doi" xlink:href="https://doi.org/10.18637/jss.v070.i02" xlink:type="simple">https://doi.org/10.18637/jss.v070.i02</ext-link>.</mixed-citation>
</ref>
<ref id="j_nejsds49_ref_006">
<label>[6]</label><mixed-citation publication-type="book"><string-name><surname>Chambers</surname>, <given-names>J. M.</given-names></string-name> (<year>1998</year>) <source>Programming with Data</source>. <publisher-name>Springer-Verlag</publisher-name>, <publisher-loc>New York</publisher-loc>.</mixed-citation>
</ref>
<ref id="j_nejsds49_ref_007">
<label>[7]</label><mixed-citation publication-type="book"><string-name><surname>Chambers</surname>, <given-names>J. M.</given-names></string-name> (<year>2008</year>) <source>Software for Data Analysis: Programming with R</source>. <publisher-name>Springer</publisher-name>, <publisher-loc>New York</publisher-loc>.</mixed-citation>
</ref>
<ref id="j_nejsds49_ref_008">
<label>[8]</label><mixed-citation publication-type="journal"><string-name><surname>Chiou</surname>, <given-names>S. H.</given-names></string-name>, <string-name><surname>Kang</surname>, <given-names>S.</given-names></string-name> <string-name><surname>Yan</surname>, <given-names>J.</given-names></string-name> (<year>2014</year>). <article-title>Fitting Accelerated Failure Time Models in Routine Survival Analysis with R Package aftgee</article-title>. <source>Journal of Statistical Software</source> <volume>61</volume>(<issue>11</issue>) <fpage>1</fpage>–<lpage>23</lpage>.</mixed-citation>
</ref>
<ref id="j_nejsds49_ref_009">
<label>[9]</label><mixed-citation publication-type="journal"><string-name><surname>Fraley</surname>, <given-names>C.</given-names></string-name>, <string-name><surname>Raftery</surname>, <given-names>A. E.</given-names></string-name> <string-name><surname>Scrucca</surname>, <given-names>L.</given-names></string-name> (<year>2002</year>). <article-title>Inference for finite mixture models</article-title>. <source>Journal of the Royal Statistical Society. Series B (Statistical Methodology)</source> <volume>64</volume>(<issue>3</issue>) <fpage>491</fpage>–<lpage>507</lpage>.</mixed-citation>
</ref>
<ref id="j_nejsds49_ref_010">
<label>[10]</label><mixed-citation publication-type="other"><string-name><surname>Fraley</surname>, <given-names>C.</given-names></string-name>, <string-name><surname>Raftery</surname>, <given-names>A. E.</given-names></string-name>, <string-name><surname>Murphy</surname>, <given-names>T. B.</given-names></string-name> <string-name><surname>Scrucca</surname>, <given-names>L.</given-names></string-name> (2012). mclust Version 4 for R: Normal Mixture Modeling for Model-Based Clustering, Classification, and Density Estimation. <ext-link ext-link-type="doi" xlink:href="https://doi.org/10.1007/s11222-009-9138-7" xlink:type="simple">https://doi.org/10.1007/s11222-009-9138-7</ext-link>. <ext-link ext-link-type="uri" xlink:href="https://mathscinet.ams.org/mathscinet-getitem?mr=2725403">MR2725403</ext-link></mixed-citation>
</ref>
<ref id="j_nejsds49_ref_011">
<label>[11]</label><mixed-citation publication-type="other"><string-name><surname>Garay</surname>, <given-names>A. M.</given-names></string-name>, <string-name><surname>Massuia</surname>, <given-names>M. B.</given-names></string-name> <string-name><surname>Lachos</surname>, <given-names>V. H.</given-names></string-name> (2015). BayesCR: Bayesian Analysis of Censored Regression Models Under Scale Mixture of Skew Normal Distributions. <uri>https://cran.r-project.org/web/packages/BayesCR/</uri>.</mixed-citation>
</ref>
<ref id="j_nejsds49_ref_012">
<label>[12]</label><mixed-citation publication-type="other"><string-name><surname>Garay</surname>, <given-names>A. M.</given-names></string-name>, <string-name><surname>Massuia</surname>, <given-names>M. B.</given-names></string-name> <string-name><surname>Lachos</surname>, <given-names>V.</given-names></string-name> (2015). SMNCensReg: Fitting Univariate Censored Regression Model Under the Family of Scale Mixture of Normal Distributions. <uri>https://cran.r-project.org/web/packages/SMNCensReg/</uri>.</mixed-citation>
</ref>
<ref id="j_nejsds49_ref_013">
<label>[13]</label><mixed-citation publication-type="journal"><string-name><surname>Grün</surname>, <given-names>B.</given-names></string-name> <string-name><surname>Leisch</surname>, <given-names>F.</given-names></string-name> (<year>2008</year>). <article-title>FlexMix Version 2: Finite Mixtures with Concomitant Variables and Varying and Constant Parameters</article-title>. <source>Journal of Statistical Software</source> <volume>28</volume>(<issue>4</issue>) <fpage>1</fpage>–<lpage>35</lpage>.</mixed-citation>
</ref>
<ref id="j_nejsds49_ref_014">
<label>[14]</label><mixed-citation publication-type="journal"><string-name><surname>Hennig</surname>, <given-names>C.</given-names></string-name> (<year>2004</year>). <article-title>Identifiability of mixtures of regression models</article-title>. <source>Journal of the Royal Statistical Society. Series B (Statistical Methodology)</source> <volume>66</volume>(<issue>3</issue>) <fpage>593</fpage>–<lpage>615</lpage>.</mixed-citation>
</ref>
<ref id="j_nejsds49_ref_015">
<label>[15]</label><mixed-citation publication-type="other"><string-name><surname>Iannario</surname>, <given-names>M.</given-names></string-name> <string-name><surname>Piccolo</surname>, <given-names>D.</given-names></string-name> (2015). CUB: A Class of Mixture Models for Ordinal Data. <uri>https://cran.r-project.org/web/packages/CUB/</uri>.</mixed-citation>
</ref>
<ref id="j_nejsds49_ref_016">
<label>[16]</label><mixed-citation publication-type="other"><string-name><surname>Iovleff</surname>, <given-names>S.</given-names></string-name> (2015). MixAll: Clustering Heterogenous data with Missing Values. <uri>https://cran.r-project.org/web/packages/MixAll/</uri>.</mixed-citation>
</ref>
<ref id="j_nejsds49_ref_017">
<label>[17]</label><mixed-citation publication-type="journal"><string-name><surname>Jin</surname>, <given-names>Z.</given-names></string-name> (<year>2016</year>). <article-title>Semiparametric accelerated failure time model for the analysis of right censored data</article-title>. <source>Communications for Statistical Applications and Methods</source> <volume>23</volume>(<issue>6</issue>) <fpage>467</fpage>–<lpage>478</lpage>.</mixed-citation>
</ref>
<ref id="j_nejsds49_ref_018">
<label>[18]</label><mixed-citation publication-type="other"><string-name><surname>Kamary</surname>, <given-names>K.</given-names></string-name> <string-name><surname>Lee</surname>, <given-names>K.</given-names></string-name> (2015). Ultimixt: Bayesian Analysis of a Non-Informative Parametrization for Gaussian Mixture Distributions. <uri>https://cran.r-project.org/web/packages/Ultimixt/index.html</uri>.</mixed-citation>
</ref>
<ref id="j_nejsds49_ref_019">
<label>[19]</label><mixed-citation publication-type="book"><string-name><surname>Lawless</surname>, <given-names>J. F.</given-names></string-name> (<year>2003</year>) <source>Statistical Models and Methods for Lifetime Data</source>, <edition>2nd</edition> ed. <publisher-name>Wiley Series in Probability and Statistics</publisher-name>. <ext-link ext-link-type="uri" xlink:href="https://mathscinet.ams.org/mathscinet-getitem?mr=1940115">MR1940115</ext-link></mixed-citation>
</ref>
<ref id="j_nejsds49_ref_020">
<label>[20]</label><mixed-citation publication-type="journal"><string-name><surname>Lebret</surname>, <given-names>R.</given-names></string-name>, <string-name><surname>Iovleff</surname>, <given-names>S.</given-names></string-name>, <string-name><surname>Langrognet</surname>, <given-names>F.</given-names></string-name>, <string-name><surname>Biernacki</surname>, <given-names>C.</given-names></string-name>, <string-name><surname>Celeux</surname>, <given-names>G.</given-names></string-name> <string-name><surname>Govaert</surname>, <given-names>G.</given-names></string-name> (<year>2015</year>). <article-title>Rmixmod: The R Package of the Model-Based Unsupervised, Supervised, and Semi-Supervised Classification Mixmod Library</article-title>. <source>Journal of Statistical Software</source> <volume>67</volume>(<issue>6</issue>) <fpage>1</fpage>–<lpage>29</lpage>. <ext-link ext-link-type="doi" xlink:href="https://doi.org/10.18637/jss.v067.i06" xlink:type="simple">https://doi.org/10.18637/jss.v067.i06</ext-link>.</mixed-citation>
</ref>
<ref id="j_nejsds49_ref_021">
<label>[21]</label><mixed-citation publication-type="journal"><string-name><surname>Lee</surname>, <given-names>S. X.</given-names></string-name> <string-name><surname>McLachlan</surname>, <given-names>G. J.</given-names></string-name> (<year>2013</year>). <article-title>EMMIXuskew: An R Package for Fitting Mixtures of Multivariate Skew <italic>t</italic> Distributions via the EM Algorithm</article-title>. <source>Journal of Statistical Software</source> <volume>55</volume>(<issue>12</issue>) <fpage>1</fpage>–<lpage>22</lpage>. <ext-link ext-link-type="doi" xlink:href="https://doi.org/10.1007/s11222-012-9362-4" xlink:type="simple">https://doi.org/10.1007/s11222-012-9362-4</ext-link>. <ext-link ext-link-type="uri" xlink:href="https://mathscinet.ams.org/mathscinet-getitem?mr=3165547">MR3165547</ext-link></mixed-citation>
</ref>
<ref id="j_nejsds49_ref_022">
<label>[22]</label><mixed-citation publication-type="journal"><string-name><surname>Loprinzi</surname>, <given-names>C. L.</given-names></string-name>, <string-name><surname>Laurie</surname>, <given-names>J. A.</given-names></string-name>, <string-name><surname>Wieand</surname>, <given-names>H. S.</given-names></string-name> <etal>et al.</etal> (<year>1994</year>). <article-title>Prospective evaluation of prognostic variables from patient-completed questionnaires. North Central Cancer Treatment Group.</article-title> <source>Journal of Clinical Oncology</source> <volume>12</volume>(<issue>3</issue>) <fpage>601</fpage>–<lpage>607</lpage>. <comment>PMID: 8120560</comment>. <ext-link ext-link-type="doi" xlink:href="https://doi.org/10.1200/JCO.1994.12.3.601" xlink:type="simple">https://doi.org/10.1200/JCO.1994.12.3.601</ext-link>.</mixed-citation>
</ref>
<ref id="j_nejsds49_ref_023">
<label>[23]</label><mixed-citation publication-type="other"><string-name><surname>Mahani</surname>, <given-names>A. S.</given-names></string-name> <string-name><surname>Sharabiani</surname>, <given-names>M. T. A.</given-names></string-name> (2015). BayesMixSurv: Bayesian Mixture Survival Models using Additive Mixture-of-Weibull Hazards, with Lasso Shrinkage and Stratification. <uri>https://cran.r-project.org/web/packages/BayesMixSurv/</uri>.</mixed-citation>
</ref>
<ref id="j_nejsds49_ref_024">
<label>[24]</label><mixed-citation publication-type="book"><string-name><surname>McLachlan</surname>, <given-names>G.</given-names></string-name> <string-name><surname>Peel</surname>, <given-names>D.</given-names></string-name> (<year>2004</year>) <source>Finite Mixture Models</source>. <publisher-name>John Wiley &amp; Sons</publisher-name>. <ext-link ext-link-type="doi" xlink:href="https://doi.org/10.1002/0471721182" xlink:type="simple">https://doi.org/10.1002/0471721182</ext-link>. <ext-link ext-link-type="uri" xlink:href="https://mathscinet.ams.org/mathscinet-getitem?mr=1789474">MR1789474</ext-link></mixed-citation>
</ref>
<ref id="j_nejsds49_ref_025">
<label>[25]</label><mixed-citation publication-type="other"><string-name><surname>Panaro</surname>, <given-names>R. V.</given-names></string-name> (2020). <italic>spsurv: An R package for semi-parametric survival analysis</italic>. <ext-link ext-link-type="uri" xlink:href="https://arxiv.org/abs/2003.10548">2003.10548</ext-link>.</mixed-citation>
</ref>
<ref id="j_nejsds49_ref_026">
<label>[26]</label><mixed-citation publication-type="journal"><string-name><surname>Prates</surname>, <given-names>M. O.</given-names></string-name>, <string-name><surname>Cabral</surname>, <given-names>C. R. B.</given-names></string-name> <string-name><surname>Lachos</surname>, <given-names>V. H.</given-names></string-name> (<year>2013</year>). <article-title>mixsmsn: Fitting Finite Mixture of Scale Mixture of Skew-Normal Distributions</article-title>. <source>Journal of Statistical Software</source> <volume>54</volume>(<issue>12</issue>) <fpage>1</fpage>–<lpage>20</lpage>.</mixed-citation>
</ref>
<ref id="j_nejsds49_ref_027">
<label>[27]</label><mixed-citation publication-type="other"><string-name><surname>Sanchez</surname>, <given-names>L. B.</given-names></string-name> <string-name><surname>Lachos</surname>, <given-names>V. H.</given-names></string-name> (2015). CensMixReg: Censored Linear Mixture Regression Models. <uri>https://cran.r-project.org/web/packages/CensMixReg/</uri>.</mixed-citation>
</ref>
<ref id="j_nejsds49_ref_028">
<label>[28]</label><mixed-citation publication-type="other"><string-name><surname>Schlattmann</surname>, <given-names>P.</given-names></string-name>, <string-name><surname>Hoehne</surname>, <given-names>J.</given-names></string-name> <string-name><surname>Verba</surname>, <given-names>M.</given-names></string-name> (2015). CAMAN: Finite Mixture Models and Meta-Analysis Tools - Based on C.A.MAN. <uri>https://cran.r-project.org/web/packages/CAMAN/</uri>.</mixed-citation>
</ref>
<ref id="j_nejsds49_ref_029">
<label>[29]</label><mixed-citation publication-type="journal"><string-name><surname>Shokoohi</surname>, <given-names>F.</given-names></string-name>, <string-name><surname>Khalili</surname>, <given-names>A.</given-names></string-name>, <string-name><surname>Asgharian</surname>, <given-names>M.</given-names></string-name> <string-name><surname>Lin</surname>, <given-names>S.</given-names></string-name> (<year>2019</year>). <article-title>Capturing heterogeneity of covariate effects in hidden subpopulations in the presence of censoring and large number of covariates</article-title>. <source>The Annals of Applied Statistics</source> <volume>13</volume>(<issue>1</issue>) <fpage>444</fpage>–<lpage>465</lpage>. <ext-link ext-link-type="doi" xlink:href="https://doi.org/10.1214/18-AOAS1198" xlink:type="simple">https://doi.org/10.1214/18-AOAS1198</ext-link>. <ext-link ext-link-type="uri" xlink:href="https://mathscinet.ams.org/mathscinet-getitem?mr=3937436">MR3937436</ext-link></mixed-citation>
</ref>
<ref id="j_nejsds49_ref_030">
<label>[30]</label><mixed-citation publication-type="other"><string-name><surname>Silva</surname>, <given-names>R. R.</given-names></string-name> (2016). BayesH: Bayesian Regression Model with Mixture of Two Scaled Inverse Chi Square as Hyperprior. <uri>https://cran.r-project.org/web/packages/BayesH/</uri>.</mixed-citation>
</ref>
<ref id="j_nejsds49_ref_031">
<label>[31]</label><mixed-citation publication-type="other"><string-name><surname>Städler</surname>, <given-names>N.</given-names></string-name> (2010). fmrlasso: Lasso for Finite Mixture of Regressions. <uri>http://mukherjeelab.nki.nl/stadler/fmrlasso_1.0.tar.gz</uri>.</mixed-citation>
</ref>
<ref id="j_nejsds49_ref_032">
<label>[32]</label><mixed-citation publication-type="other"><string-name><surname>Su</surname>, <given-names>S.</given-names></string-name>, <string-name><surname>Wuertz</surname>, <given-names>D.</given-names></string-name>, <string-name><surname>Maechler</surname>, <given-names>M.</given-names></string-name>, <string-name><surname>Rmetrics</surname></string-name> et al. (2015). GLDEX: Fitting Single and Mixture of Generalised Lambda Distributions (RS and FMKL) using Various Methods. <uri>https://cran.r-project.org/web/packages/GLDEX/</uri>.</mixed-citation>
</ref>
<ref id="j_nejsds49_ref_033">
<label>[33]</label><mixed-citation publication-type="other"><string-name><surname>Tortora</surname>, <given-names>C.</given-names></string-name>, <string-name><surname>Browne</surname>, <given-names>R. P.</given-names></string-name>, <string-name><surname>Franczak</surname>, <given-names>B. C.</given-names></string-name> <string-name><surname>McNicholas</surname>, <given-names>P. D.</given-names></string-name> (2015). MixGHD: Model Based Clustering, Classification and Discriminant Analysis Using the Mixture of Generalized Hyperbolic Distributions. <uri>https://cran.r-project.org/web/packages/MixGHD/</uri>.</mixed-citation>
</ref>
</ref-list>
</back>
</article>
