Probe Force Generator
probe_fgen( current_time = 0, current_distance = 0, current_velocity = 0, change_ratio = seq(0.8, 1.2, length.out = 100), aggregate = "raw", ... )
current_time | Numeric value. Initial system state whose change is probed |
---|---|
current_distance | Numeric value. Initial system state whose change is probed |
current_velocity | Numeric value. Initial system state whose change is probed |
change_ratio | Numeric vector indicating probing change ratios |
aggregate | How should |
... | Extra argument forwarded to |
Probing data frame
require(tidyverse) fgen_probe_data <- probe_fgen( current_time = 0.3, current_distance = 0.3, current_velocity = 1 ) plot_data <- gather(fgen_probe_data, key = "variable", value = "value", -(1:2)) ggplot(plot_data, aes(x = change_ratio, y = value, color = probing)) + geom_line() + facet_wrap(~variable, scales = "free_y") + xlab("Normalized parameter change") + ylab(NULL)