[R/data_description.r:11:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L11) *style:* **Lines should not be more than 80 characters.**
```r
  title(main = "Forces from posture #1", sub = paste("Adept x:", adept_x_val, "Adept y:",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:16:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L16) *style:* **Lines should not be more than 80 characters.**
```r
plot_muscle_forces_over_time <- function(forces, minimum_tendon_force, maximum_tendon_force,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:21:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L21) *style:* **Lines should not be more than 80 characters.**
```r
  lapply(list(do.call("rbind", forces[indices_of_interest])), function(force_ts) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:23:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L23) *style:* **Lines should not be more than 80 characters.**
```r
      "M1", "M2", "M3", "M4", "M5", "M6"), ylim = c(minimum_tendon_force, maximum_tendon_force))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:28:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L28) *style:* **Lines should not be more than 80 characters.**
```r
plot_jr3_force_over_time <- function(forces, minimum_tendon_force, maximum_tendon_force,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:37:52:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L37) *warning:* **no visible binding for global variable ‘plot_force_smoothed_curves’**
```r
  lapply(list(do.call("rbind", sample_of_forces)), plot_force_smoothed_curves)
                                                   ^~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:42:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L42) *style:* **Lines should not be more than 80 characters.**
```r
##' @param wrench_vector a vector of six forces & torques, as numeric values in N or N*m
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:42:2:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L42) *style:* **Commented code should be removed.**
```r
##' @param wrench_vector a vector of six forces & torques, as numeric values in N or N*m
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:46:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L46) *style:* **Lines should not be more than 80 characters.**
```r
    "FZ =", wrench_vector[3], ", ", "MX =", wrench_vector[4], ", ", "MY =", wrench_vector[5],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:52:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L52) *style:* **Lines should not be more than 80 characters.**
```r
##' a Map is a Muscle Activation Pattern, which is, given N muscles, the map is a vector of N tensions.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:56:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L56) *style:* **Lines should not be more than 80 characters.**
```r
  muscle_activation_patterns <- rbind(unique(timeseries_df$reference_M0), unique(timeseries_df$reference_M1),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:57:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L57) *style:* **Lines should not be more than 80 characters.**
```r
    unique(timeseries_df$reference_M2), unique(timeseries_df$reference_M3), unique(timeseries_df$reference_M4),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:59:44:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L59) *warning:* **no visible global function definition for ‘muscle_names’**
```r
  row.names(muscle_activation_patterns) <- muscle_names()
                                           ^~~~~~~~~~~~
```
[R/data_description.r:60:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L60) *style:* **Lines should not be more than 80 characters.**
```r
  colnames(muscle_activation_patterns) <- LETTERS[1:length(unique(timeseries_df$reference_M6))]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:65:2:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L65) *style:* **Commented code should be removed.**
```r
##' Plot wrench text for forces & torques
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:69:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L69) *style:* **Lines should not be more than 80 characters.**
```r
##' @param prepend_string empty, by default. Useful when you want to add "SD: " to the front
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:71:18:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L71) *warning:* **no visible global function definition for ‘wrench_vector_to_labeled_vals’**
```r
  wrench_text <- wrench_vector_to_labeled_vals(wrench)
                 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:79:3:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L79) *warning:* **no visible global function definition for ‘plot_wrench_text’**
```r
  plot_wrench_text(wrench_sd_vector, x, y, prepend_string = "SD : ")
  ^~~~~~~~~~~~~~~~
```
[R/data_description.r:87:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L87) *style:* **Lines should not be more than 80 characters.**
```r
  p_raw <- ggparcoord(dataframe_of_observations, scale = "globalminmax", alpha = 1,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:89:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L89) *style:* **Lines should not be more than 80 characters.**
```r
  p <- p_raw + theme_bw() + theme(panel.grid.major.x = element_line(color = "black",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:111:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L111) *style:* **Lines should not be more than 80 characters.**
```r
  plot(NA, xlim = xlim, ylim = ylim, main = paste("Norm of w = ", norm_vec(wrench)),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:112:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L112) *style:* **Lines should not be more than 80 characters.**
```r
    xlab = paste("Fx is ", wrench[1]), ylab = paste("Fy is ", wrench[2]), asp = 1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:116:3:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L116) *warning:* **local variable ‘x_sd’ assigned but may not be used**
```r
  x_sd <- wrench_sd[1]
  ^~~~
```
[R/data_description.r:117:3:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L117) *warning:* **local variable ‘y_sd’ assigned but may not be used**
```r
  y_sd <- wrench_sd[2]
  ^~~~
```
[R/data_description.r:118:3:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L118) *warning:* **local variable ‘z_sd’ assigned but may not be used**
```r
  z_sd <- wrench_sd[3]  #unused as of yet
  ^~~~
```
[R/data_description.r:120:3:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L120) *warning:* **no visible global function definition for ‘plot_wrench_text’**
```r
  plot_wrench_text(wrench)
  ^~~~~~~~~~~~~~~~
```
[R/data_description.r:121:3:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L121) *warning:* **no visible global function definition for ‘plot_wrench_sd_text’**
```r
  plot_wrench_sd_text(wrench_sd)
  ^~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:122:3:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L122) *warning:* **no visible global function definition for ‘draw_circle_at_end_of_vector’**
```r
  draw_circle_at_end_of_vector(x, y, z)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:128:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L128) *style:* **Lines should not be more than 80 characters.**
```r
##' By default, if the diameter is positive, then the circle_color is made green, but if negative, it will make the circle black.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:140:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L140) *style:* **Lines should not be more than 80 characters.**
```r
  draw.circle(x, y, diameter, border = "black", col = circle_color, lty = 1, lwd = 1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:140:3:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L140) *warning:* **no visible global function definition for ‘draw.circle’**
```r
  draw.circle(x, y, diameter, border = "black", col = circle_color, lty = 1, lwd = 1)
  ^~~~~~~~~~~
```
[R/data_description.r:143:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L143) *style:* **Lines should not be more than 80 characters.**
```r
##' @param list_of_wrenches list object, each element a list of numeric values of 3 forces in N and 3 torques in Nm
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:144:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L144) *style:* **Lines should not be more than 80 characters.**
```r
##' @param list_of_sd_for_wrenches list object, each element a list of numeric values of 3 forces in N and 3 torques in Nm
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:148:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L148) *style:* **Lines should not be more than 80 characters.**
```r
plot_endpoint_force_vectors <- function(list_of_wrenches, list_of_sd_for_wrenches,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:153:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L153) *style:* **Lines should not be more than 80 characters.**
```r
    plot_output_wrench_fx_fy(list_of_wrenches[[x]], list_of_sd_for_wrenches[[x]],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:159:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L159) *style:* **Lines should not be more than 80 characters.**
```r
##' Get the mean of the last n force values for each of the force signals, for the
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:161:2:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L161) *style:* **Commented code should be removed.**
```r
##' ramp&hold time series dataframes force_column_names is a vecotr of character
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:162:2:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L162) *style:* **Commented code should be removed.**
```r
##' strings relating to the columns of forces[[i]] that contain force recordings
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:164:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L164) *style:* **Lines should not be more than 80 characters.**
```r
##' @param indices_of_interest the elements within the forces that will be included in the analysis
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:165:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L165) *style:* **Lines should not be more than 80 characters.**
```r
##' @param n number of last observations that will be extracted for this computation
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:167:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L167) *style:* **Lines should not be more than 80 characters.**
```r
##' @return list_of_tail_wrench_means computed means of the last n milliseconds of the force columns
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:168:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L168) *style:* **Lines should not be more than 80 characters.**
```r
list_of_mean_of_last_n_observations <- function(forces, indices_of_interest, n, force_column_names) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:168:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L168) *style:* **Variable and function names should not be longer than 30 characters.**
```r
list_of_mean_of_last_n_observations <- function(forces, indices_of_interest, n, force_column_names) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:178:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L178) *style:* **Lines should not be more than 80 characters.**
```r
sd_of_last_n_observations <- function(forces, indices_of_interest, n = 100, force_column_names) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:187:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L187) *style:* **Variable and function names should not be longer than 30 characters.**
```r
plot_porcupine_of_endpoint_wrenches <- function(forces) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:188:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L188) *style:* **Lines should not be more than 80 characters.**
```r
  wrench_observation_df <- do.call("rbind", forces)  #only grab the first posture
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:193:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L193) *style:* **Lines should not be more than 80 characters.**
```r
  scatterplot3d(wrench_observation_df[, 1], wrench_observation_df[, 2], wrench_observation_df[,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:194:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L194) *style:* **Lines should not be more than 80 characters.**
```r
    3], pch = 16, xlim = force_ranges[, 1], ylim = force_ranges[, 2], zlim = force_ranges[,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:198:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L198) *style:* **Lines should not be more than 80 characters.**
```r
  scatterplot3d(wrench_observation_df[, 4], wrench_observation_df[, 5], wrench_observation_df[,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:199:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L199) *style:* **Lines should not be more than 80 characters.**
```r
    6], pch = 16, xlim = force_ranges[, 4], ylim = force_ranges[, 5], zlim = force_ranges[,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:207:3:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L207) *warning:* **no visible binding for global variable ‘gradient_colors’**
```r
  gradient_colors < c("blue", "yellow")
  ^~~~~~~~~~~~~~~
```
[R/data_description.r:208:15:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L208) *warning:* **no visible global function definition for ‘color_gradient’**
```r
  z_colors <- color_gradient(wrench_observation_df[, 3], gradient_colors)
              ^~~~~~~~~~~~~~
```
[R/data_description.r:208:58:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L208) *warning:* **no visible binding for global variable ‘gradient_colors’**
```r
  z_colors <- color_gradient(wrench_observation_df[, 3], gradient_colors)
                                                         ^~~~~~~~~~~~~~~
```
[R/data_description.r:211:3:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L211) *warning:* **local variable ‘z_range_midpoint’ assigned but may not be used**
```r
  z_range_midpoint <- z_range_distance/2 + z_range[1]
  ^~~~~~~~~~~~~~~~
```
[R/data_description.r:211:39:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L211) *style:* **Put spaces around all infix operators.**
```r
  z_range_midpoint <- z_range_distance/2 + z_range[1]
                                     ~^~
```
[R/data_description.r:215:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L215) *style:* **Lines should not be more than 80 characters.**
```r
  segments(origin_points, origin_points, wrench_observation_df[, 1], wrench_observation_df[,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:217:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L217) *style:* **Lines should not be more than 80 characters.**
```r
  points(wrench_observation_df[, 1], wrench_observation_df[, 2], xlim = c(force_ranges[1,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:222:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L222) *style:* **Lines should not be more than 80 characters.**
```r
  legend_image <- as.raster(matrix(colorRampPalette(gradient_colors)(100), ncol = 1))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:222:53:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L222) *warning:* **no visible binding for global variable ‘gradient_colors’**
```r
  legend_image <- as.raster(matrix(colorRampPalette(gradient_colors)(100), ncol = 1))
                                                    ^~~~~~~~~~~~~~~
```
[R/data_description.r:225:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L225) *style:* **Lines should not be more than 80 characters.**
```r
  text(x = -1, y = seq(1, 3, l = length(values_to_label_on_legend)), labels = signif(values_to_label_on_legend,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:231:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L231) *style:* **Lines should not be more than 80 characters.**
```r
##' @param colors list of string colors that are desired in the gradient. c("blue", "yellow") by default
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:231:2:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L231) *style:* **Commented code should be removed.**
```r
##' @param colors list of string colors that are desired in the gradient. c("blue", "yellow") by default
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:233:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L233) *style:* **Lines should not be more than 80 characters.**
```r
##' @return color_gradient returns a function that takes an integer argument (the required number of colors) and returns a character vector of colors (see ‘rgb’) interpolating the given sequence (similar to ‘heat.colors’ or ‘terrain.colors’.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:239:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L239) *style:* **Lines should not be more than 80 characters.**
```r
data_description_analysis <- function(first_data_chunk, minimum_tendon_force, maximum_tendon_force,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:241:15:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L241) *warning:* **no visible global function definition for ‘split_by_position’**
```r
  postures <- split_by_position(first_data_chunk$adept_x, first_data_chunk)
              ^~~~~~~~~~~~~~~~~
```
[R/data_description.r:242:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L242) *style:* **Lines should not be more than 80 characters.**
```r
  forces <- unlist(lapply(postures, split_by_reference_force), recursive = FALSE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:242:37:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L242) *warning:* **no visible binding for global variable ‘split_by_reference_force’**
```r
  forces <- unlist(lapply(postures, split_by_reference_force), recursive = FALSE)
                                    ^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:245:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L245) *style:* **Lines should not be more than 80 characters.**
```r
  muscle_activation_patterns <- do.call("rbind", lapply(forces[indices_of_interest],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:247:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L247) *style:* **Lines should not be more than 80 characters.**
```r
  row.names(muscle_activation_patterns) <- LETTERS[1:length(indices_of_interest)]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:248:8:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L248) *warning:* **no visible global function definition for ‘generate_parcoord_plot’**
```r
  p <- generate_parcoord_plot(muscle_activation_patterns)
       ^~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:253:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L253) *style:* **Lines should not be more than 80 characters.**
```r
  plot(plot_muscle_forces_over_time(forces, minimum_tendon_force, maximum_tendon_force,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:258:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L258) *style:* **Lines should not be more than 80 characters.**
```r
  plot(plot_jr3_force_over_time(forces, minimum_tendon_force, maximum_tendon_force,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:262:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L262) *style:* **Lines should not be more than 80 characters.**
```r
  list_of_tail_wrench_mean <- list_of_mean_of_last_n_observations(forces, indices_of_interest,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:264:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L264) *style:* **Lines should not be more than 80 characters.**
```r
  list_of_tail_wrench_SD <- sd_of_last_n_observations(forces, indices_of_interest,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:264:3:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L264) *style:* **Variable or function name should be snake_case.**
```r
  list_of_tail_wrench_SD <- sd_of_last_n_observations(forces, indices_of_interest,
  ^~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:270:8:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L270) *style:* **Use <-, not =, for assignment.**
```r
  xlim = range(lapply(list_of_wrenches, function(x) {
       ^
```
[R/data_description.r:273:8:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L273) *style:* **Use <-, not =, for assignment.**
```r
  ylim = range(lapply(list_of_wrenches, function(x) {
       ^
```
[R/data_description.r:276:8:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L276) *style:* **Use <-, not =, for assignment.**
```r
  zlim = range(lapply(list_of_wrenches, function(x) {
       ^
```
[R/data_description.r:280:11:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L280) *style:* **Use <-, not =, for assignment.**
```r
  xlim[1] = xlim[1] - max(abs(zlim))
          ^
```
[R/data_description.r:282:11:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L282) *style:* **Use <-, not =, for assignment.**
```r
  xlim[2] = max(c(xlim[2] + max(abs(zlim)), 0))
          ^
```
[R/data_description.r:287:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L287) *style:* **Lines should not be more than 80 characters.**
```r
  indices_of_correctly_lengthed_forces <- which(lapply(forces, force_ts_len_is_acceptable) ==
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:287:3:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L287) *style:* **Variable and function names should not be longer than 30 characters.**
```r
  indices_of_correctly_lengthed_forces <- which(lapply(forces, force_ts_len_is_acceptable) ==
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:290:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L290) *style:* **Lines should not be more than 80 characters.**
```r
  force_extended_list <- list_of_mean_of_last_n_observations(forces, indices_of_interest = 1:length(forces),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:292:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L292) *style:* **Lines should not be more than 80 characters.**
```r
  posture_1_viable_forces <- force_extended_list[indices_of_correctly_lengthed_forces]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:293:3:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L293) *warning:* **no visible global function definition for ‘plot_porcupine_of_endpoint_wrenches’**
```r
  plot_porcupine_of_endpoint_wrenches(posture_1_viable_forces)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:296:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L296) *style:* **Lines should not be more than 80 characters.**
```r
  elapsed_trial_times <- plot_force_trial_elapsed_time_distribution(forces[indices_of_correctly_lengthed_forces])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:296:3:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L296) *warning:* **local variable ‘elapsed_trial_times’ assigned but may not be used**
```r
  elapsed_trial_times <- plot_force_trial_elapsed_time_distribution(forces[indices_of_correctly_lengthed_forces])
  ^~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:296:26:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L296) *warning:* **no visible global function definition for ‘plot_force_trial_elapsed_time_distribution’**
```r
  elapsed_trial_times <- plot_force_trial_elapsed_time_distribution(forces[indices_of_correctly_lengthed_forces])
                         ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:298:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L298) *style:* **Variable and function names should not be longer than 30 characters.**
```r
plot_force_trial_elapsed_time_distribution <- function(forces) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:300:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/data_description.r#L300) *style:* **Lines should not be more than 80 characters.**
```r
  hist(vector_of_times, breaks = 10, xlab = "Time per force trial (ms)", ylab = "Number of force trials",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:3:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L3) *style:* **Lines should not be more than 80 characters.**
```r
##' @param last_n_milliseconds the number of tail milliseconds from which we should calculate the settled standard deviation.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:5:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L5) *style:* **Lines should not be more than 80 characters.**
```r
##' @return reference_standard_deviation df with reference (desired) muscle tension, variance, maximum residual
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:6:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L6) *style:* **Lines should not be more than 80 characters.**
```r
get_reference_to_variance_relationship_df <- function(force_list, last_n_milliseconds,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:6:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L6) *style:* **Variable and function names should not be longer than 30 characters.**
```r
get_reference_to_variance_relationship_df <- function(force_list, last_n_milliseconds,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:9:25:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L9) *warning:* **no visible global function definition for ‘reference’**
```r
    ref <- tail(x, 1)[, reference(muscle)]
                        ^~~~~~~~~
```
[R/force_trial_stability.r:10:5:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L10) *warning:* **no visible global function definition for ‘measured’**
```r
    measured_tail <- tail(x, last_n_milliseconds)[, measured(muscle)]
    ^~~~~~~~
```
[R/force_trial_stability.r:19:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L19) *style:* **Lines should not be more than 80 characters.**
```r
##' @param last_n_milliseconds the number of tail milliseconds from which we should calculate the settled standard deviation.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:22:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L22) *style:* **Lines should not be more than 80 characters.**
```r
force_trial_to_stable_metrics <- function(force_trial, last_n_milliseconds, muscle) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:23:33:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L23) *warning:* **no visible global function definition for ‘reference’**
```r
  ref <- tail(force_trial, 1)[, reference(muscle)]
                                ^~~~~~~~~
```
[R/force_trial_stability.r:24:3:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L24) *warning:* **no visible global function definition for ‘measured’**
```r
  measured_tail <- tail(force_trial, last_n_milliseconds)[, measured(muscle)]
  ^~~~~~~~
```
[R/force_trial_stability.r:26:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L26) *style:* **Lines should not be more than 80 characters.**
```r
  vec_row <- data.frame(last_n_milliseconds = last_n_milliseconds, reference = ref,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:32:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L32) *style:* **Lines should not be more than 80 characters.**
```r
##' @param last_n_milliseconds the number of tail milliseconds from which we should calculate the settled standard deviation.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:34:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L34) *style:* **Lines should not be more than 80 characters.**
```r
##' @return stability_df_rows df with reference (desired) muscle tension, variance, maximum residual
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:35:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L35) *style:* **Lines should not be more than 80 characters.**
```r
ft_list_to_stability_df_rows <- function(list_of_force_trials, last_n_milliseconds,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:37:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L37) *style:* **Lines should not be more than 80 characters.**
```r
  reference_df_rows <- lapply(list_of_force_trials, force_trial_to_stable_metrics,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:44:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L44) *style:* **Lines should not be more than 80 characters.**
```r
##' Produces a plot of remaining fraction as a function of increasing err threshold. Draws a hardcoded line for the 99%
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:45:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L45) *style:* **Lines should not be more than 80 characters.**
```r
##' @param force_trials a list of raw force timeseries_DFs. has_settled has not been applied yet
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:46:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L46) *style:* **Lines should not be more than 80 characters.**
```r
##' @param err_lenout integer, the resolution along the X axis by which diff err thresholds will be evaluated
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:48:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L48) *style:* **Variable and function names should not be longer than 30 characters.**
```r
try_different_stability_thresholds <- function(force_trials, err_lenout = 20) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:50:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L50) *style:* **Lines should not be more than 80 characters.**
```r
  num_remaining_force_trials <- unlist(mclapply(different_errors, function(err) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:51:12:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L51) *warning:* **no visible global function definition for ‘remove_unsettled_force_trials’**
```r
    length(remove_unsettled_force_trials(force_trials, err))
           ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:53:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L53) *style:* **Lines should not be more than 80 characters.**
```r
  plot_remaining_force_trial_fraction_as_function_of_err(different_errors, num_remaining_force_trials,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:61:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L61) *style:* **Lines should not be more than 80 characters.**
```r
indices_from_posture_df_row <- function(posture_df_row) c(posture_df_row[["initial"]],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:65:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L65) *style:* **Lines should not be more than 80 characters.**
```r
##' Turn a dataframe of collected observations, with square input to reference, into formal ForceTrial objects
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:66:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L66) *style:* **Lines should not be more than 80 characters.**
```r
##' Works with stabilized or nonstabilized force trials. It will add attributes of stabilization only for those that meet the err criteria
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:68:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L68) *style:* **Lines should not be more than 80 characters.**
```r
##' @param df_row dataframe with 1 row with columns including the initial and final indices in reference to a posture collected.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:72:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L72) *style:* **Lines should not be more than 80 characters.**
```r
##' @param err max allowable residual from reference force for muscle of interest
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:73:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L73) *style:* **Lines should not be more than 80 characters.**
```r
save_ForceTrials_to_rds <- function(df_row, column_to_separate_forces, data_location,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:73:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L73) *style:* **Variable or function name should be snake_case.**
```r
save_ForceTrials_to_rds <- function(df_row, column_to_separate_forces, data_location,
^~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:75:14:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L75) *warning:* **no visible global function definition for ‘indices_from_posture_df_row’**
```r
  indices <- indices_from_posture_df_row(df_row)
             ^~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:76:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L76) *style:* **Lines should not be more than 80 characters.**
```r
  force_trial_file_string_with_posture <- paste0("force_trial_adept_x_", df_row[["adept_x"]],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:76:3:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L76) *style:* **Variable and function names should not be longer than 30 characters.**
```r
  force_trial_file_string_with_posture <- paste0("force_trial_adept_x_", df_row[["adept_x"]],
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:78:17:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L78) *warning:* **no visible global function definition for ‘get_forces_list’**
```r
  force_list <- get_forces_list(full_df, indices, column_to_separate_forces)
                ^~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:80:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L80) *style:* **Lines should not be more than 80 characters.**
```r
  force_trials_list <- lapply(force_list, ForceTrial, data_location, full_df, err)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:80:43:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L80) *warning:* **no visible binding for global variable ‘ForceTrial’**
```r
  force_trials_list <- lapply(force_list, ForceTrial, data_location, full_df, err)
                                          ^~~~~~~~~~
```
[R/force_trial_stability.r:82:3:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L82) *warning:* **no visible global function definition for ‘save_rds_to_Resilio’**
```r
  save_rds_to_Resilio(force_trials_list, force_trial_file_string_with_posture)
  ^~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:87:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L87) *style:* **Lines should not be more than 80 characters.**
```r
##' Turn a dataframe of collected observations, with square input to reference, into formal ForceTrial objects
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:88:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L88) *style:* **Lines should not be more than 80 characters.**
```r
##' Works with stabilized or nonstabilized force trials. It will add attributes of stabilization only for those that meet the err criteria
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:90:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L90) *style:* **Lines should not be more than 80 characters.**
```r
##' @param df_of_postures dataframe with columns including the initial and final indices in reference to each posture group collected.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:91:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L91) *style:* **Lines should not be more than 80 characters.**
```r
##' @param full_df dataframe object of the full dataset collected, from which the indices will extract the sections.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:93:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L93) *style:* **Lines should not be more than 80 characters.**
```r
posture_start_finish_indices_to_L_of_ForceTrials <- function(df_of_postures, full_df,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:93:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L93) *style:* **Variable and function names should not be longer than 30 characters.**
```r
posture_start_finish_indices_to_L_of_ForceTrials <- function(df_of_postures, full_df,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:93:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L93) *style:* **Variable or function name should be snake_case.**
```r
posture_start_finish_indices_to_L_of_ForceTrials <- function(df_of_postures, full_df,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:95:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L95) *style:* **Lines should not be more than 80 characters.**
```r
  lapply(df_to_list_of_rows(df_of_postures), save_ForceTrials_to_rds, column_to_separate_forces = "measured_M0",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:104:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L104) *style:* **Lines should not be more than 80 characters.**
```r
  max_residuals_and_sd <- lapply(posture, ForceTrial_to_signed_max_residual_and_sd)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:104:43:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L104) *warning:* **no visible binding for global variable ‘ForceTrial_to_signed_max_residual_and_sd’**
```r
  max_residuals_and_sd <- lapply(posture, ForceTrial_to_signed_max_residual_and_sd)
                                          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:105:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L105) *style:* **Lines should not be more than 80 characters.**
```r
  stability <- cbind(ForceTrials_to_stability_info_df(posture), ForceTrials_to_stability_df(posture))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:105:22:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L105) *warning:* **no visible global function definition for ‘ForceTrials_to_stability_info_df’**
```r
  stability <- cbind(ForceTrials_to_stability_info_df(posture), ForceTrials_to_stability_df(posture))
                     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:105:65:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L105) *warning:* **no visible global function definition for ‘ForceTrials_to_stability_df’**
```r
  stability <- cbind(ForceTrials_to_stability_info_df(posture), ForceTrials_to_stability_df(posture))
                                                                ^~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:106:19:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L106) *warning:* **no visible global function definition for ‘adept_coordinates_from_ForceTrial’**
```r
  adept_coords <- adept_coordinates_from_ForceTrial(posture[[1]])
                  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:107:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L107) *style:* **Lines should not be more than 80 characters.**
```r
  posture_and_residual_sd <- dcrb(lapply(max_residuals_and_sd, add_posture_to_max_residual_and_sd,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:113:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L113) *style:* **Lines should not be more than 80 characters.**
```r
##' @param rds_postures list of full filepaths to each rds Posture, each with a list of ForceTrials
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:114:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L114) *style:* **Lines should not be more than 80 characters.**
```r
##' @return stability_df data.frame with all stabiliyt information observations at postures. Includes adept xy coordinates
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:115:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L115) *style:* **Variable and function names should not be longer than 30 characters.**
```r
get_stability_df_for_all_postures <- function(rds_postures) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:116:19:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L116) *warning:* **no visible global function definition for ‘dcrb’, Did you mean 'dir'?**
```r
  stability_df <- dcrb(pbmclapply(rds_postures, posture_path_to_stability_df))
                  ^~~~
```
[R/force_trial_stability.r:116:24:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L116) *warning:* **no visible global function definition for ‘pbmclapply’**
```r
  stability_df <- dcrb(pbmclapply(rds_postures, posture_path_to_stability_df))
                       ^~~~~~~~~~
```
[R/force_trial_stability.r:116:49:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L116) *warning:* **no visible binding for global variable ‘posture_path_to_stability_df’**
```r
  stability_df <- dcrb(pbmclapply(rds_postures, posture_path_to_stability_df))
                                                ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:123:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L123) *style:* **Lines should not be more than 80 characters.**
```r
##' @param stability_df dataframe with adept_x and adept_y column, sd, and signed_max_residual
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:126:13:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L126) *style:* **Use <-, not =, for assignment.**
```r
  my_breaks = c(1, 10, 100, 1000, 10000, 1e+05)
            ^
```
[R/force_trial_stability.r:127:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L127) *style:* **Lines should not be more than 80 characters.**
```r
  ggplot(stability_df, aes(sd, signed_max_residual)) + theme_bw() + stat_binhex(bins = 100) +
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:128:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L128) *style:* **Lines should not be more than 80 characters.**
```r
    scale_fill_gradient(name = "count", trans = "log", breaks = my_breaks, labels = my_breaks) +
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:133:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L133) *style:* **Lines should not be more than 80 characters.**
```r
##' @param list_of_stability_dfs dataframes with adept_x and adept_y column, sd, and signed_max_residual. first is fix_x_sdres
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:134:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L134) *style:* **Lines should not be more than 80 characters.**
```r
##' @param adept_dimension_that_changes either 'adept_x' or 'adept_y', describing the one that is changing
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:136:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L136) *style:* **Lines should not be more than 80 characters.**
```r
sd_residual_plot_scatter_posture <- function(stability_df, adept_dimension_that_changes,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:136:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L136) *style:* **Variable and function names should not be longer than 30 characters.**
```r
sd_residual_plot_scatter_posture <- function(stability_df, adept_dimension_that_changes,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:138:3:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L138) *warning:* **local variable ‘my_breaks’ assigned but may not be used**
```r
  my_breaks = c(1, 10, 100, 1000, 10000, 1e+05)
  ^~~~~~~~~
```
[R/force_trial_stability.r:138:13:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L138) *style:* **Use <-, not =, for assignment.**
```r
  my_breaks = c(1, 10, 100, 1000, 10000, 1e+05)
            ^
```
[R/force_trial_stability.r:139:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L139) *style:* **Lines should not be more than 80 characters.**
```r
  p <- ggplot(stability_df, aes(sd, signed_max_residual)) + geom_point(size = size) +
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:140:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L140) *style:* **Lines should not be more than 80 characters.**
```r
    theme_bw() + xlab(paste("sd of last 100ms,", adept_dimension_that_changes)) +
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:146:2:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L146) *style:* **Commented code should be removed.**
```r
##' the length of the whiskers =  1.5 the IQR
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:147:2:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L147) *style:* **Commented code should be removed.**
```r
##' @param stability_df dataframe with adept_* and y variable to respond
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:148:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L148) *style:* **Lines should not be more than 80 characters.**
```r
##' @param adept_dimension_that_changes either 'adept_x' or 'adept_y', describing the one that is changing
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:151:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L151) *style:* **Lines should not be more than 80 characters.**
```r
adept_boxplots <- function(stability_df, adept_dimension_that_changes, response_variable) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:153:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L153) *style:* **Lines should not be more than 80 characters.**
```r
  min_distance_between_adept_postures <- abs(min(diff(unique(stability_df[[adept_dimension_that_changes]])))) *
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:153:3:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L153) *style:* **Variable and function names should not be longer than 30 characters.**
```r
  min_distance_between_adept_postures <- abs(min(diff(unique(stability_df[[adept_dimension_that_changes]])))) *
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:155:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L155) *style:* **Lines should not be more than 80 characters.**
```r
  p <- ggplot(stability_df, aes_string(y = response_variable, group = adept_dimension_that_changes))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:155:8:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L155) *warning:* **no visible global function definition for ‘ggplot’, Did you mean 'biplot'?**
```r
  p <- ggplot(stability_df, aes_string(y = response_variable, group = adept_dimension_that_changes))
       ^~~~~~
```
[R/force_trial_stability.r:155:29:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L155) *warning:* **no visible global function definition for ‘aes_string’**
```r
  p <- ggplot(stability_df, aes_string(y = response_variable, group = adept_dimension_that_changes))
                            ^~~~~~~~~~
```
[R/force_trial_stability.r:156:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L156) *style:* **Lines should not be more than 80 characters.**
```r
  p <- p + geom_boxplot(aes_string(cut_width(stability_df[[adept_dimension_that_changes]],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:157:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L157) *style:* **Lines should not be more than 80 characters.**
```r
    min_distance_between_adept_postures)), outlier.alpha = 0.2, outlier.size = 0.1,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:159:1:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L159) *style:* **Lines should not be more than 80 characters.**
```r
  p <- p + theme_bw() + xlab(paste(adept_dimension_that_changes, "postures from", adept_range[1], "to", adept_range[2]))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:159:12:](https://github.com/bc/frontiers2017/blob/5afb3469170bd7bc06935878c9c0e30bb2c21e01/R/force_trial_stability.r#L159) *warning:* **no visible global function definition for ‘theme_bw’**
```r
  p <- p + theme_bw() + xlab(paste(adept_dimension_that_changes, "postures from", adept_range[1], "to", adept_range[2]))
           ^~~~~~~~
```


Strange wording, as it's not a GraphQL Database...


This is meant to say line 139.


Plz add me in class


hi


Looks good to me!


Cool to see some updates on your portfolio I will try and take a look at it tonight!


I don't see how `AdaptTask` (CC @ejball) helps with avoiding potential deadlock.


`if from_path:`


(I believe we would have to plumb a sync `GetReponse` method right down to the HTTP I/O layer to avoid these problems, but since `HttpClient` doesn't expose a sync method, there's not much we can do.)


hello


Thank you!


Nice!


Created multidev environment [dgreat#pr-barrio](https://dashboard.pantheon.io/sites/41cad7fe-472d-43a9-a470-d391b9622376#pr-barrio).

[![Visit Site](https://raw.githubusercontent.com/pantheon-systems/ci-drops-8/0.1.0/data/img/visit-site-36.png)](https://pr-barrio-dgreat.pantheonsite.io/)


I think this field can contain multiple addresses. I know it does in my own known hosts file for things like `github.com,192.30.255.112,192.30.255.113`. I think they [handle splitting in the knownhosts package](`github.com,192.30.255.112,192.30.255.113`), although it looks like there's no way to consume it without testing specific host keys. Bummer. :-(


Oops