biosignalEMG (version 2.0.0)

iemg: Integrated EMG

Description

Creates an ‘iemg’ object to store an integrated EMG signal.

Usage

iemg(data, calliemg, resetpoints, samplingrate = 0, units = "", data.name = "")
"print"(x, ...)
"plot"(x, type = "l", timeunits = c("seconds", "samples"), reset.lty = 2, add = FALSE, ...)
"summary"(object, ...)
"print"(x, ...)

Arguments

data

an object of class ‘emg’.

calliemg

a matched integration function call.

resetpoints

the index of the samples in which a reset point occur.

samplingrate

number of samples carried per second, measured in Hertz. A value of 0 indicates that this value is missing or unknown.

units

a character vector specifying the units (usually "mV.s") of the integrated EMG data.

data.name

a string specifying the name of the variable which will appears on the plots. If empty or not provided is taken from the object given as data.

object

an object of class ‘iemg’.

x

an object of class ‘iemg’ or ‘summary.iemg’.

type

what type of plot should be drawn. See plot for details.

timeunits

a character vector specifying the units (samples or seconds) for the time axis.

reset.lty

what type of line should be drawn to represent each reset point. See lines for details.

add

logical; if TRUE add to an already existing plot; if FALSE start a new plot.

...

additional arguments to be passed to the generic function.

Value

returns an object of class ‘iemg’ which is a list with components:

values

a copy of data

call

the matched call

reset.points

the resetpoints argument

units

the units argument

samplingrate

the samplingrate argument

data.name

the data.name argument

References

Winter D.A., Rau G., Kadefors R., Broman H., Deluca C.J. (1980) Units, Terms, and Sandards in the Reporting of EMG Research: A Report by the AdHoc Committee of the International Society of Electrophysiology and Kinesiology.

See Also

See also integration

Examples

# Simulate 5 seconds of an EMG
emgx <- syntheticemg(n.length.out = 5000, 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")

# Full-wave rectified EMG
emgr <- rectification(emgx, rtype = "fullwave")

# Integration of the full-wave rectified EMG without reset points
emgi1 <- integration(emgr, reset = FALSE)
print(emgi1)
plot(emgi1, main = "Integrated EMG")
summary(emgi1)