summarize_wl_trials {workloopR}

Summarize work loop files

Description

Summarize important info from work loop files stored in the same folder (e.g. a sequence of trials in an experiment) including experimental parameters, run order, and mtime.

Usage

summarize_wl_trials(wl_list)

Arguments

wl_list

List of analyzed_workloop objects, preferably one created by read_analyze_wl_dir().

Details

If several files (e.g. successive trials from one experiment) are stored in one folder, use this function to obtain summary stats and metadata and other parameters. This function requires a list of analyze_workloop objects, which can be readily obtained by first running read_analyze_wl_dir() on a specified directory.

Value

A data.frame of information about the collection of workloop files. Columns include:

File_ID

Name of the file

Cycle_Frequency

Frequency of Position change

Amplitude

amplitude of Position change

Phase

Phase of the oscillatory cycle (in percent) at which stimulation occurred. Somewhat experimental, please use with caution

Stimulus_Pulses

Number of stimulation pulses

mtime

Time at which file's contents were last changed (mtime)

Mean_Work

Mean work output from the selected cycles

Mean_Power

Net power output from the selected cycles

Author(s)

Vikram B. Baliga and Shreeram Senthivasan

References

Josephson RK. 1985. Mechanical Power output from Striated Muscle during Cyclic Contraction. Journal of Experimental Biology 114: 493-512.

See Also

read_analyze_wl_dir, get_wl_metadata, time_correct

Other workloop functions: analyze_workloop(), fix_GR(), get_wl_metadata(), invert_position(), read_analyze_wl_dir(), read_analyze_wl(), select_cycles(), time_correct()

Other batch analyses: get_wl_metadata(), read_analyze_wl_dir(), time_correct()

Examples

library(workloopR)

# batch read and analyze files included with workloopR
analyzed_wls <- read_analyze_wl_dir(system.file("extdata/wl_duration_trials",
                                               package = 'workloopR'),
                                    phase_from_peak = TRUE,
                                    cycle_def = "p2p",
                                    keep_cycles = 2:4
                                    )

# now summarize
summarized_wls <- summarize_wl_trials(analyzed_wls)