function (ts_data = NULL, type_filter = c("No-filter", "Whittaker", 
    "Savitsky-Golay"), wh_lambda = "1.0", sg_order = "3", sg_length = "5", 
    sg_scaling = "1") 
{
    if (type_filter == "No-filter") {
        res <- ts_data
        return(res)
    }
    if (type_filter == "Whittaker") {
        res <- sits::sits_whittaker(data = ts_data, lambda = as.numeric(wh_lambda), 
            bands_suffix = "wt") %>% sits::sits_merge(ts_data)
        return(res)
    }
    if (type_filter == "Savitsky-Golay") {
        res <- sits::sits_sgolay(data = ts_data, order = as.numeric(sg_order), 
            length = as.numeric(sg_length), scaling = as.numeric(sg_scaling), 
            bands_suffix = "sg") %>% sits::sits_merge(ts_data)
        return(res)
    }
}
<bytecode: 0x562d11c5c718>
<environment: namespace:ocpusits>