R/LLW.R

In survidm: Inference and Prediction in an Illness-Death Model

Defines functions LLW

Documented in LLW

LLW <-
  function(x, kernel = "gaussian", bw, t1){
    nobs <- length(x)
    return(.C("LLWeightsKernel",as.double(x), as.integer(nobs),
              as.double(t1), as.double(bw), as.character(kernel),
              w = double(nobs) )$w)}

Try the survidm package in your browser