R/whit2.R

Defines functions whit2

Documented in whit2

whit2 <- function(y, lambda, w = rep(1, ny))
{
  ny <- length(y)
  z <- d <- c <- e <- rep(0, length(y))
  
  .C("smooth2",
     w = as.double(w),
     y = as.double(y),
     z = as.double(z),
     lamb = as.double(lambda),
     mm = as.integer(length(y)),
     d = as.double(d),
     c = as.double(c),
     e = as.double(e),
     PACKAGE = "ptw")$z
}

Try the ptw package in your browser

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

ptw documentation built on Jan. 19, 2022, 5:07 p.m.