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.