Description Usage Arguments Value Author(s) See Also Examples
View source: R/print.summary.eaemg.R
S3 generic to show the content of an ‘eaemg’ summary on the console.
1 2 |
x |
an object of class ‘summary.eaemg’. |
... |
additional arguments to be passed to the generic function. |
Some values printed on screen.
J.A. Guerrero jaguerrero@correo.uaa.mx
1 2 3 4 5 6 7 8 9 10 11 | # Simulate 10 seconds of an EMG
emgx <- syntheticemg(n.length.out = 10000, on.sd = 1, on.duration.mean = 350,
on.duration.sd = 10, off.sd = 0.05, off.duration.mean = 300, off.duration.sd = 20,
on.mode.pos = 0.75, shape.factor = 0.5, samplingrate = 1000, units = "mV",
data.name = "Synthetic EMG")
# MA-envelope
emgma <- envelope(emgx, method = "MA", wsize = 60)
# Ensemble-averaged EMG
ea <- eaemg(emgma, runs = rle(emgx$on.off), what = 1, timenormalization = "mean",
empirical = TRUE, level = 0.9)
summary(ea, lwd = 2)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.