| model.vam | R Documentation |
model.vam is used to define a virtual age model for Corrective Maintenance (CM) and planned Preventive Maintenance (PM). The object define with model.vam can be used to plot characteristics of the CM-PM process.
model.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.
If only one system is considered, response has the form Time & Type. Time and Type are the column names of data containing respectively the successive maintenance times and the corresponding maintenance types. CM type is denoted -1. The successive different types of PM effects defined in model are denoted 1, 2, ... Censorship time type is denoted 0.
If several systems are considered together and data is a data frame, response has the form System & Time & Type. Time and Type have the same specifications as previously. System is the column names of data containing for each maintenance the system to which it refers. The different system are denoted 1, 2, ...
If several systems are considered together and data is a list, response has the form Time & Type. And each term of the list data is a data frame corresponding to the observations of one different system. Each of these data frame has a column Time and Type with the same specification has previously.
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 function produces an object of class model.vam which contains the virtual age model considered and the corresponding observations.
L. Doyen and R. Drouilhet
plot.model.vam for plotting characteristics of the model.
update.model.vam to change the associated data set.
simARAInf<-sim.vam( ~ (ARAInf(.4) | Weibull(.001,2.5)))
simData<-simulate(simARAInf,30)
plot(simARAInf,'i')#for plotting the failure intensity of the model used for simulating the maintenances
# But, the model associated to simData can be changed
modelAGAN<-model.vam(Time & Type ~ (AGAN() | Weibull(.001,2.5)),data=simData)
plot(modelAGAN,'i',col='darkblue',add=TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.