plot.FollowUpChartBatch: plot.FollowUpChartBatch

In n8thangreen/HESmanip: Hospital length of stay data preprocessing and analysis

Usage

plot.FollowUpChartBatch(survData.list)

Arguments

survData.list

See Also

plot.FollowUpChart

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (survData.list) 
{
    namesGroup <- c("All", "Gram-positive", "Gram-negative", 
        "CoNS", expression(paste(italic("Enterococcus"), plain(spp.))), 
        expression(italic("S. aureus")), "Other", expression(italic("E. Coli")), 
        "Non-p. Streptococci", expression(paste(italic("Klebsiella"), 
            plain(spp.))), expression(paste(italic("Enterobacter"), 
            plain(spp.))))
    numgroups <- c(1, 4, 5, 6, 8, 9, 10, 11)
    par(mar = c(5, 6, 2, 1))
    par(oma = c(3, 3, 3, 0))
    par(mai = c(0.5, 0.6, 0.3, 0.3))
    par(mfrow = c(4, 2))
    for (i in numgroups) {
        data <- tvCox(survData.list[[i]][order(survData.list[[i]]$time), 
            ], type = "")
        data <- data[data$originf == 1, ]
        plot.FollowUpChart(data$id, start = data$tstart, stop = data$tstop, 
            xlab = "Time since admission (days)", ylab = "HA-BSI patients", 
            main = namesGroup[i], xlim = c(0, 250))
        points(data$tstop, data$id, pch = "l")
        points(data$tstop[data$disch == 1], data$id[data$disch == 
            1], pch = 19, cex = 1)
        points(data$tstop[data$death == 1], data$id[data$death == 
            1], pch = 8, cex = 1, lwd = 2, col = "red")
    }
    mtext("Time since admission (days)", side = 1, outer = T)
    mtext("HA-BSI patients", side = 2, outer = T)
  }

n8thangreen/HESmanip documentation built on March 21, 2020, 12:20 a.m.