# kin.ssFilter
#' @export
kin.ssFilter <- function(x, y, x2 = NULL, spar = 5e-2, deriv = 0)
{
sm <- smooth.spline(x, y, spar = spar)
if(is.null(x2))
{
x2 <- x
}
smoothed_signal <- predict(sm, x2, deriv = deriv)$y
return(smoothed_signal)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.