| mle.vam | R Documentation |
mle.vam is used to define a virtual age model for Corrective Maintenance (CM) and planned Preventive Maintenance (PM). The object define with mle.vam can be used to compute the Maximum Likelihood Estimator (MLE) of the parameters thanks to the run.mle.vam method.
mle.vam(formula, data)
formula |
a symbolic description of the virtual age model and observations, or a |
data |
a data frame or possibly a list (when several system are considered together) containing the observations. |
The symbolic description of the model done in formula has the form response ~ model.
response is a symbolic description of the data considered. The specifications are the same as those of model.vam function.
model is a symbolic description of the virtual age model considered. The specifications are the same as those of sim.vam function. In this case the PM policy is useless, so it has not to be necessarily defined. The parameter values specify in model for the maintenance effect models, and the time to failure distribution of the new unmaintained system, are used as initialization values for the first run of the likelihood maximization method.
The function produces an object of class mle.vam which contains the virtual age model considered and the corresponding observations.
L. Doyen and R. Drouilhet
run.mle.vam to compute the MLE.
coef.mle.vam to extract the parameters value of the MLE.
formula.mle.vam to extract the original and estimated model.
plot.mle.vam for plotting characteristics of the model.
update.mle.vam to change the associated data set.
contrast.mle.vam to compute the contrast associated to the MLE.
logLik.mle.vam to compute the log-likelihood.
simARAInf<-sim.vam( ~ (ARAInf(.4) | Weibull(.001,2.5)))
simData<-simulate(simARAInf,30)
mleARAInf <- mle.vam(Time & Type ~ (ARAInf(.5) | Weibull(1,3)),data=simData)
coef(mleARAInf)
simCMPM_Multi<-sim.vam( ~ (ARAInf(.3) | Weibull(.001,2.5)) & (ARAInf(.6)+ARAInf(-.2) | Periodic(12,prob=c(0.6,0.4))))
simData_Multi<-simulate(simCMPM_Multi,5000,nb.system=5)
mleCMPM_Multi <- mle.vam(System & Time & Type ~ (ARAInf(.5) | Weibull(1,3)) & (ARAInf(.5)+ARAInf(.5)),data=simData_Multi)
coef(mleCMPM_Multi)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.