Skip to contents

Amputee prosthetic-side work-asymmetry pipeline

Source: R/pipelines-population.R
pipelineAmputee.Rd

Compares the positive (concentric) joint work generated by the prosthetic and intact limbs (via jointWork()) and reports a work-asymmetry index. A value near 0 is symmetric; positive values indicate the intact limb generates more positive work than the prosthetic limb.

Usage

pipelineAmputee(
  power_prosthetic,
  power_intact,
  sampling_rate,
  body_mass = NULL
)

Arguments

power_prosthetic, power_intact

Joint power time series (W or W/kg) for the prosthetic and intact limbs.

sampling_rate

Sampling rate in Hz.

body_mass

Optional body mass (kg) for mass-normalised work.

Value

An amputee_report object.

References

Winter DA (2009); Nolan & Lees (2000).

See also

jointWork()

Examples

set.seed(1)
power_prosthetic <- abs(sin(seq(0, 10 * pi, length.out = 1000))) * 2
power_intact <- abs(sin(seq(0, 10 * pi, length.out = 1000))) * 3
pipelineAmputee(power_prosthetic, power_intact, sampling_rate = 100)
#> <amputee_report>
#>   positive work: prosthetic 12.7 / intact 19.1
#>   work asymmetry index: 0.200 (0 = symmetric)