View source: R/utility_functions.R
rm_by_trajnum | R Documentation |
Specify a minimum number of trajectories that each subject must complete during a treatment, trial, or session.
rm_by_trajnum(
obj_name,
trajnum = 5,
mirrored = FALSE,
treatment1,
treatment2,
...
)
obj_name |
The input viewr object; a tibble or data.frame with attribute
|
trajnum |
Minimum number of trajectories; must be numeric. |
mirrored |
Does the data have mirrored treatments? If so, arguments
|
treatment1 |
The first treatment or session during which the threshold must be met. |
treatment2 |
A second treatment or session during which the threshold must be met. |
... |
Additional arguments passed to/from other pathviewr functions. |
Depending on analysis needs, users may want to remove subjects that
have not completed a certain number of trajectories during a treatment,
trial, or session. If mirrored = FALSE
, no treatment information is
necessary and subjects will be removed based on total number of trajectories
as specified in trajnum
. If mirrored = TRUE
, the
treatment1
and treatment2
parameters will allow users to
define during which treatments or sessions subjects must reach threshold as
specified in the trajnum
argument. For example, if mirrored =
TRUE
, setting treatment1 = "latA"
, treatment2 = "latB"
and
trajnum = 5
will remove subjects that have fewer than 5 trajectories
during the "latA"
treatment AND the "latB"
treatment.
treatment1
and treatment2
should be levels within a column
named "treatment"
.
A viewr object; a tibble or data.frame with attribute
pathviewr_steps
that includes "viewr"
that now has fewer
observations (rows) as a result of removal of subjects with too few
trajectories according to the trajnum
parameter.
Melissa S. Armstrong
library(pathviewr)
## Import the example Motive data included in the package
motive_data <-
read_motive_csv(system.file("extdata", "pathviewr_motive_example_data.csv",
package = 'pathviewr'))
## Clean, isolate, and label trajectories
motive_full <-
motive_data %>%
clean_viewr(desired_percent = 50,
max_frame_gap = "autodetect",
span = 0.95)
##Remove subjects that have not completed at least 150 trajectories:
motive_rm_unmirrored <-
motive_full %>%
rm_by_trajnum(trajnum = 150)
## Add treatment information
motive_full$treatment <- c(rep("latA", 100),
rep("latB", 100),
rep("latA", 100),
rep("latB", 149))
## Remove subjects by that have not completed at least 10 trajectories in
## both treatments
motive_rm_mirrored <-
motive_full %>%
rm_by_trajnum(
trajnum = 10,
mirrored = TRUE,
treatment1 = "latA",
treatment2 = "latB"
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.