View source: R/utility_functions.R
rescale_tunnel_data | R Documentation |
viewr
objectShould data have been exported at an incorrect scale, apply an isometric transformation to the position data and associated mean marker errors (if found)
rescale_tunnel_data(obj_name, original_scale = 0.5, desired_scale = 1, ...)
obj_name |
The input viewr object; a tibble or data.frame with attribute
|
original_scale |
The original scale at which data were exported. See Details if unknown. |
desired_scale |
The desired scale |
... |
Additional arguments passed to/from other pathviewr functions |
The desired_scale
is divided by the original_scale
to
determine a scale_ratio
internally. If the original_scale
is
not explicitly known, set it to 1 and then set desired_scale
to be
whatever scaling ratio you have in mind. E.g. setting original_scale
to 1 and then desired_scale
to 0.7 will multiply all position axis
values by 0.7.
The default arguments of original_scale = 0.5
and
desired_scale = 1
apply a doubling of tunnel size isometrically.
A viewr
object that has position data (and
mean_marker_error data
, if found) adjusted by the ratio of
desired_scale/original_scale
.
Vikram B. Baliga
## 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 the file. It is generally recommended to clean up to the
## "gather" step before running rescale_tunnel_data().
motive_gathered <-
motive_data %>%
relabel_viewr_axes() %>%
gather_tunnel_data()
## Now rescale the tunnel data
motive_rescaled <-
motive_gathered %>%
rescale_tunnel_data(original_scale = 0.5,
desired_scale = 1)
## See the difference in data range e.g. for length
range(motive_rescaled$position_length)
range(motive_gathered$position_length)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.