R/smoother.R

smoother<-function(x,s=smooth){
  c(rep(NA,floor((s-1)/2)),
    apply(embed(x,s),1,mean,na.rm=T),
    rep(NA,ceiling((s-1)/2)))
}  

Try the Survomatic package in your browser

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

Survomatic documentation built on May 2, 2019, 4:09 p.m.