plotMean: Plots mean of time continous-time weights

In kjetilroysland/ahw: Re-weighting marked point processes based on additive hazard models

Description

Preliminary plot of mean of individual weight-trajectories

Usage

plotMean(weights, startTime, stopTime, pTimes)

Arguments

weights
startTime	Start of at-risk interval
stopTime	Stop of at-ris interval
pTimes	Times where the mean should be plotted.

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 (weights, startTime, stopTime, pTimes) 
{
    n <- length(pTimes)
    y <- rep(0, n)
    for (j in 1:n) {
        J <- (startTime <= pTimes[j]) & (stopTime >= pTimes[j])
        y[j] <- mean(weights[J], na.rm = T)
    }
    lines(pTimes, y, col = "red")
  }

kjetilroysland/ahw documentation built on May 20, 2019, 10:25 a.m.