R/NWW.R

Defines functions NWW

Documented in NWW

NWW <-
  function(covariate, x, kernel="gaussian", bw) {
    spa <- NULL
    len <- length(covariate)
    listg <- .C( "NWWeightsKernel", as.double(covariate), as.integer(len),
                 as.double(x), as.double(bw), as.character(kernel),
                 weight = double(len) )
    return(listg$weight)}

Try the survidm package in your browser

Any scripts or data that you put into this service are public.

survidm documentation built on June 25, 2021, 1:07 a.m.