Plot method for an etm object
Plot method for an object of class 'etm'. It draws the estimated transition probabilities in a basic scatterplot.
## S3 method for class 'etm' plot(x, tr.choice, xlab = "Time", ylab = "Transition Probability", col = 1, lty, xlim, ylim, conf.int = FALSE, level = 0.95, ci.fun = "linear", ci.col = col, ci.lty = 3, legend = TRUE, legend.pos, curvlab, legend.bty = "n", ...)
x |
An object of class 'etm' |
tr.choice |
character vector of the form 'c("from to","from to")' specifying which transitions should be plotted. Default, all the transition probabilities are plotted |
xlab |
x-axis label. Default is "Time" |
ylab |
y-axis label. Default is "Transition Probability" |
col |
Vector of colour. Default is black |
lty |
Vector of line type. Default is 1:number of transitions |
xlim |
Limits of x-axis for the plot |
ylim |
Limits of y-axis for the plot |
conf.int |
Logical. Whether to display pointwise confidence intervals. Default is FALSE. |
level |
Level of the conficence intervals. Default is 0.95. |
ci.fun |
Transformation applied to the confidence intervals. It
could be different for all transition probabilities, though if
|
ci.col |
Colour of the confidence intervals. Default is
|
ci.lty |
Line type of the confidence intervals. Default is 3. |
legend |
A logical specifying if a legend should be added |
legend.pos |
A vector giving the legend's position. See
|
curvlab |
A character or expression vector to appear in the legend. Default is the name of the transitions |
legend.bty |
Box type for the legend |
... |
Further arguments for plot |
By default, if the argument strata
was used for creating the etm
object, the first transition probability for all strata will be
plotted. If there is no strata, all transition probabilities are
plotted by default.
In any case, a legend with be created by the labels are likely to be
ugly. Please use the curvlab
argument to control the test or
use legend = FALSE
and build your own legend.
No value returned
Arthur Allignol, arthur.allignol@gmail.com
data(sir.cont) # Modification for patients entering and leaving a state # at the same date sir.cont <- sir.cont[order(sir.cont$id, sir.cont$time), ] for (i in 2:nrow(sir.cont)) { if (sir.cont$id[i]==sir.cont$id[i-1]) { if (sir.cont$time[i]==sir.cont$time[i-1]) { sir.cont$time[i-1] <- sir.cont$time[i-1] - 0.5 } } } tra <- matrix(ncol=3,nrow=3,FALSE) tra[1, 2:3] <- TRUE tra[2, c(1, 3)] <- TRUE my.etm <- etm(sir.cont,c("0","1","2"),tra,"cens", s = 0) plot(my.etm, tr.choice = c("0 0"))
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.