Nothing
lowpass <- function(data, channel, cutoff = 50, n = 5, data.name) {
if (missing(data))
stop("'data' argument is not specified")
if (!is.emg(data))
stop("an object of class 'emg' is required")
if (missing(channel)) {
if (missing(data.name))
data <- extractchannel(data) else data <- extractchannel(data, data.name = data.name)
} else {
if (missing(data.name))
data <- extractchannel(data, channel) else data <- extractchannel(data, channel, data.name)
}
if (data$samplingrate == 0)
stop("The sampling rate is requiered")
bf <- butter(n, 2 * cutoff/data$samplingrate, type = "low")
b <- signal::filter(bf, c(data$values, rep(tail(data$values, 1), 2 * n + 1)))
attributes(b) <- NULL
b <- tail(b, -(2 * n + 1))
object <- emg(b, data$samplingrate, data$units, data$data.name)
return(object)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.