[R/data_description.r:11:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/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/efb3644c000158ce3513bf205dd89b86f9f91f9c/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/efb3644c000158ce3513bf205dd89b86f9f91f9c/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/efb3644c000158ce3513bf205dd89b86f9f91f9c/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/efb3644c000158ce3513bf205dd89b86f9f91f9c/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:42:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/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/efb3644c000158ce3513bf205dd89b86f9f91f9c/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/efb3644c000158ce3513bf205dd89b86f9f91f9c/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/efb3644c000158ce3513bf205dd89b86f9f91f9c/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/efb3644c000158ce3513bf205dd89b86f9f91f9c/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/efb3644c000158ce3513bf205dd89b86f9f91f9c/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:60:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/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/efb3644c000158ce3513bf205dd89b86f9f91f9c/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/efb3644c000158ce3513bf205dd89b86f9f91f9c/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:87:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/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/efb3644c000158ce3513bf205dd89b86f9f91f9c/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/efb3644c000158ce3513bf205dd89b86f9f91f9c/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/efb3644c000158ce3513bf205dd89b86f9f91f9c/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/efb3644c000158ce3513bf205dd89b86f9f91f9c/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/efb3644c000158ce3513bf205dd89b86f9f91f9c/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/efb3644c000158ce3513bf205dd89b86f9f91f9c/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:128:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/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/efb3644c000158ce3513bf205dd89b86f9f91f9c/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:144:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L144) *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:145:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L145) *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:149:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L149) *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:154:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L154) *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:160:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L160) *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:162:2:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L162) *style:* **Commented code should be removed.**
```r
##' ramp&hold time series dataframes force_column_names is a vecotr of character
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:163:2:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L163) *style:* **Commented code should be removed.**
```r
##' strings relating to the columns of forces[[i]] that contain force recordings
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:165:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L165) *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:166:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L166) *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:168:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L168) *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:169:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L169) *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:169:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L169) *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:179:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L179) *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:188:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L188) *style:* **Variable and function names should not be longer than 30 characters.**
```r
plot_porcupine_of_endpoint_wrenches <- function(forces) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:189:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L189) *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:194:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L194) *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:195:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L195) *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:199:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L199) *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:200:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L200) *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:208:3:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L208) *warning:* **no visible binding for global variable ‘gradient_colors’**
```r
  gradient_colors < c("blue", "yellow")
  ^~~~~~~~~~~~~~~
```
[R/data_description.r:209:58:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L209) *warning:* **no visible binding for global variable ‘gradient_colors’**
```r
  z_colors <- color_gradient(wrench_observation_df[, 3], gradient_colors)
                                                         ^~~~~~~~~~~~~~~
```
[R/data_description.r:212:3:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L212) *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:212:39:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L212) *style:* **Put spaces around all infix operators.**
```r
  z_range_midpoint <- z_range_distance/2 + z_range[1]
                                     ~^~
```
[R/data_description.r:216:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L216) *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:218:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L218) *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:223:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L223) *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:223:53:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L223) *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:226:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L226) *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:232:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L232) *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:232:2:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L232) *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:234:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L234) *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:240:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L240) *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:243:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L243) *style:* **Lines should not be more than 80 characters.**
```r
  forces <- unlist(lapply(postures, split_by_reference_force), recursive = FALSE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:246:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L246) *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:248:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L248) *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:254:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L254) *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:259:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L259) *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:263:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L263) *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:265:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L265) *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:265:3:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L265) *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:271:8:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L271) *style:* **Use <-, not =, for assignment.**
```r
  xlim = range(lapply(list_of_wrenches, function(x) {
       ^
```
[R/data_description.r:274:8:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L274) *style:* **Use <-, not =, for assignment.**
```r
  ylim = range(lapply(list_of_wrenches, function(x) {
       ^
```
[R/data_description.r:277:8:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L277) *style:* **Use <-, not =, for assignment.**
```r
  zlim = range(lapply(list_of_wrenches, function(x) {
       ^
```
[R/data_description.r:281:11:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L281) *style:* **Use <-, not =, for assignment.**
```r
  xlim[1] = xlim[1] - max(abs(zlim))
          ^
```
[R/data_description.r:283:11:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L283) *style:* **Use <-, not =, for assignment.**
```r
  xlim[2] = max(c(xlim[2] + max(abs(zlim)), 0))
          ^
```
[R/data_description.r:288:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L288) *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:288:3:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L288) *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:291:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L291) *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:293:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L293) *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:297:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L297) *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:297:3:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L297) *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:299:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L299) *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:301:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/data_description.r#L301) *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/efb3644c000158ce3513bf205dd89b86f9f91f9c/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/efb3644c000158ce3513bf205dd89b86f9f91f9c/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/efb3644c000158ce3513bf205dd89b86f9f91f9c/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/efb3644c000158ce3513bf205dd89b86f9f91f9c/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:19:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/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/efb3644c000158ce3513bf205dd89b86f9f91f9c/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:26:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/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:33:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L33) *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:35:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L35) *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:36:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L36) *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:38:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L38) *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:45:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L45) *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:46:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L46) *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:47:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L47) *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:49:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L49) *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:51:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L51) *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:54:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L54) *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:62:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L62) *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:66:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L66) *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:67:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L67) *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:69:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L69) *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:73:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L73) *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:74:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L74) *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:74:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L74) *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:77:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L77) *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:77:3:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L77) *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:81:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L81) *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:88:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L88) *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:89:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L89) *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:91:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L91) *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:92:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L92) *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:94:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L94) *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:94:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L94) *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:94:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L94) *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:96:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L96) *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:105:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L105) *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:106:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L106) *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:108:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L108) *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:114:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L114) *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:115:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L115) *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:116:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L116) *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:124:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L124) *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:127:13:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L127) *style:* **Use <-, not =, for assignment.**
```r
  my_breaks = c(1, 10, 100, 1000, 10000, 1e+05)
            ^
```
[R/force_trial_stability.r:128:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L128) *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:129:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L129) *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:134:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L134) *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:135:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L135) *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:137:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L137) *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:137:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L137) *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:139:3:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L139) *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:139:13:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L139) *style:* **Use <-, not =, for assignment.**
```r
  my_breaks = c(1, 10, 100, 1000, 10000, 1e+05)
            ^
```
[R/force_trial_stability.r:140:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L140) *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:141:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L141) *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:147:2:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L147) *style:* **Commented code should be removed.**
```r
##' the length of the whiskers =  1.5 the IQR
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:148:2:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L148) *style:* **Commented code should be removed.**
```r
##' @param stability_df dataframe with adept_* and y variable to respond
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:149:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L149) *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:152:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L152) *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:154:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L154) *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:154:3:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L154) *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:156:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L156) *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:156:8:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L156) *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:156:29:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L156) *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:157:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L157) *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:158:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L158) *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:160:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L160) *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:160:12:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L160) *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]))
           ^~~~~~~~
```
[R/force_trial_stability.r:160:25:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L160) *warning:* **no visible global function definition for ‘xlab’, Did you mean 'lag'?**
```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:161:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L161) *style:* **Lines should not be more than 80 characters.**
```r
  p <- p + theme(panel.background = element_rect(fill = "white", colour = "grey50"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:161:12:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L161) *warning:* **no visible global function definition for ‘theme’, Did you mean 'time'?**
```r
  p <- p + theme(panel.background = element_rect(fill = "white", colour = "grey50"))
           ^~~~~
```
[R/force_trial_stability.r:161:37:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L161) *warning:* **no visible global function definition for ‘element_rect’**
```r
  p <- p + theme(panel.background = element_rect(fill = "white", colour = "grey50"))
                                    ^~~~~~~~~~~~
```
[R/force_trial_stability.r:167:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L167) *style:* **Lines should not be more than 80 characters.**
```r
##' Relationship between adept posture and signed max residual in scatter plot form
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:168:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L168) *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:169:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L169) *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 (the one that's not fixed)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:171:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L171) *style:* **Lines should not be more than 80 characters.**
```r
signed_max_residual_vs_posture <- function(stability_df, adept_dimension_that_changes) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:172:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L172) *style:* **Lines should not be more than 80 characters.**
```r
  p <- ggplot(stability_df, aes_string(adept_dimension_that_changes, "signed_max_residual"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:172:8:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L172) *warning:* **no visible global function definition for ‘ggplot’, Did you mean 'biplot'?**
```r
  p <- ggplot(stability_df, aes_string(adept_dimension_that_changes, "signed_max_residual"))
       ^~~~~~
```
[R/force_trial_stability.r:172:29:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L172) *warning:* **no visible global function definition for ‘aes_string’**
```r
  p <- ggplot(stability_df, aes_string(adept_dimension_that_changes, "signed_max_residual"))
                            ^~~~~~~~~~
```
[R/force_trial_stability.r:173:12:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L173) *warning:* **no visible global function definition for ‘geom_point’**
```r
  p <- p + geom_point(size = 0.1) + theme_bw()
           ^~~~~~~~~~
```
[R/force_trial_stability.r:173:37:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L173) *warning:* **no visible global function definition for ‘theme_bw’**
```r
  p <- p + geom_point(size = 0.1) + theme_bw()
                                    ^~~~~~~~
```
[R/force_trial_stability.r:178:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L178) *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:179:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L179) *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 (the one that's not fixed)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:181:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L181) *style:* **Lines should not be more than 80 characters.**
```r
produce_stability_plots <- function(stability_df, adept_dimension_that_changes) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:183:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L183) *style:* **Lines should not be more than 80 characters.**
```r
  p_max_residual <- signed_max_residual_vs_posture(stability_df, adept_dimension_that_changes)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:184:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/force_trial_stability.r#L184) *style:* **Lines should not be more than 80 characters.**
```r
  p_sdres_adept <- sd_residual_plot_scatter_posture(stability_df, adept_dimension_that_changes)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ForceTrial.r:3:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/ForceTrial.r#L3) *style:* **Lines should not be more than 80 characters.**
```r
##' experiments it appeared to have a representative response for the other muscles
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ForceTrial.r:4:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/ForceTrial.r#L4) *style:* **Lines should not be more than 80 characters.**
```r
##' if any observations were recorded when the robot was initalized or moving, those rows were removed.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ForceTrial.r:5:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/ForceTrial.r#L5) *style:* **Lines should not be more than 80 characters.**
```r
##' we remove the angle and adept columns because they are unused and redundant, respectively
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ForceTrial.r:10:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/ForceTrial.r#L10) *style:* **Lines should not be more than 80 characters.**
```r
##' @param last_n_milliseconds number of milliseconds to base the stability metrics off.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ForceTrial.r:11:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/ForceTrial.r#L11) *style:* **Lines should not be more than 80 characters.**
```r
##' @return forcetrial_structure_object the object with all relevant attributes and stability metrics
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ForceTrial.r:12:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/ForceTrial.r#L12) *style:* **Lines should not be more than 80 characters.**
```r
ForceTrial <- function(timeseries_df, full_df_path, full_df, err, last_n_milliseconds = 100,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ForceTrial.r:12:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/ForceTrial.r#L12) *style:* **Variable or function name should be snake_case.**
```r
ForceTrial <- function(timeseries_df, full_df_path, full_df, err, last_n_milliseconds = 100,
^~~~~~~~~~
```
[R/ForceTrial.r:24:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/ForceTrial.r#L24) *style:* **Lines should not be more than 80 characters.**
```r
  all_muscles_stabilized_by_last_val <- all_muscles_stabilized(timeseries_df, err)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ForceTrial.r:24:3:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/ForceTrial.r#L24) *style:* **Variable and function names should not be longer than 30 characters.**
```r
  all_muscles_stabilized_by_last_val <- all_muscles_stabilized(timeseries_df, err)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ForceTrial.r:25:1:](https://github.com/bc/frontiers2017/blob/efb3644c000158ce3513bf205dd89b86f9f91f9c/R/ForceTrial.r#L25) *style:* **Lines should not be more than 80 characters.**
```r
  ForceTrialObj <- structure(rm_encoder_and_adept_cols(timeseries_df), adept_coordinates = adept_coordinates(timeseries_df),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


use logging (library) instead debug=False.


#1 #9 第1次实验代码Delete project.config.json


Comma (,) is required in the end of the line. ("CARED",)


edit test


Argparse should be not in main. Place it in top of file (like here https://github.com/voitseh/Dataprocess/blob/develop/visualisation_tool.py)


TeamCity Win32 Bindings for Haskell :: Win32 Continuous builds [Build 45](http://svn.zhox.com:8888/viewLog.html?buildId=833&buildTypeId=Win32_Win32ContinuousBuilds) is now running


let's switch to `shared_ptr` as we need to `find`


Refactor function name.


use if else instead


Tried to compare `administrator/components/com_joomlaupdate/models/default.php` by a fresh Installation of Yesterday but the downloaded php-File has only 1001 Lines.


make it in one line with short version of if


You should have :

```
Optional.ofNullable(request.attribute(JwtAuthorizationFilter.AUTHORIZATION_DATA))
   .orElse(JwtAuthorizationFilter.JWT_DISABLED)
   .allowOnResource(new AuthorizationResource("group", groupAddressString, "addMember"))
   .check() // Check is the fing frowing the forbidden exception;
```


make it in one line


pure broke it.


remove from here


ahhh alright, np ty for the reply Stompy


So this one broke CI? Why didn't this show up in the PR? Weird.


Please add tests about access as Admin, on resource, with invalid token and with JWT disable on groups routes, and also on other routes....


`if (result != nullptr)`


Class name always starts with Upper Case


this line will no longer needed after using `shared_ptr`


Do not inherit Parser


make full name (do not use shortcuts)


This file should be refactored. Too many bad solutions


`??` only checks `=== null` but not empty strings.


not in class


@OmarMo1 Vanuit de feedback van Machteld blijkt dat het misschien handig is om nog een extra button te maken die alle vertrek tijden van het beginstation weergeeft. Dan voldoen we aan de opdracht en hebben we met het eindstation een extra functie toegevoegd.


Thanks for this (and all your other work here) @quinnj !


I asked you to move functions from class (only parse should be)


If you change the above 2 lines to `add_child(make_unique<Box>(size - 8, code));`, then you will save a `move` operation :)


raise (not implemented exception)


let's use `{}` even if there is only one line of code in `if`


self лишний


Use if else


sorry this was my fault


TeamCity Win32 Bindings for Haskell :: Win32 Continuous builds [Build 45](http://svn.zhox.com:8888/viewLog.html?buildId=833&buildTypeId=Win32_Win32ContinuousBuilds) outcome was **SUCCESS**
Summary: Running Build time: 00:07:56


`class StsdBox : public Box`


`@categories.each do |category|`
То есть, ты перебираешь категории и в каждом цикле работаешь только с одной, поэтому и называть переменную стоит соответствующим образом


@kwatkins this didn't work, I think we need a different file format maybe. Try saving the images to png or something?


if function names copy< than don't remove anything in this function


if function names png_to_jpg, do not remove anything from here


similarly, `if (code == "avc1") {`


支持多个动画名的调用方法

```javascript
$('.jc-slider').jcSlider({
    animationIn: 'zoomInUp fadeInLeft fadeInUp fadeInDown',
    animationOut: 'fadeOut lightSpeedOut rollOut zoomOut',
    stopOnHover: false
});
```


If you run `git diff` on your local repo, you will find all the trailing whitespaces. And here it might be better to write as:
```
VisualSampleEntry::VisualSampleEntry(const uint32_t data_size,
                                                                const string & type)
  : SampleEntry(data_size, type), width_(),
```


Try this:

<img width="648" alt="screen shot 2017-10-25 at 11 23 19 pm" src="https://user-images.githubusercontent.com/1229047/32037740-958ad7a2-b9db-11e7-99bb-69a3b67a28fc.png">


Does this check for the same direction or would turns happen as well?


apa itu [](http://www.dotnetvacature.com) merupakan sarana berbagi dan mengenal akan pengelaman yang selama ini di idamkan


Why 0.0.0.0 but 127.0.0.0 here?


сделано неплохо, но есть ряд проблем -
1)при нажатии на чекбокс таска не помечается как сделанная
2)У чекбоксов съехала верстка, в хроме
3)remove, потом mark is done - undefined ошибка в консоли
4)не отображается дедлайн таски


I assume changing `StatusError <: Exception` to `<: HTTPError` not a mistake.
I just wrote code yesterday that relies on `StatusError` not being a `HTTPError`: `@delay_retry if isa(e, HTTP.HTTPError) end`.
I can easily change this to ` @delay_retry if isa(e, HTTP.HTTPError) && !isa(e, HTTP.StatusError) end`.

I guess it kind of made sense before that the `HTTPErrors` were all failure of the HTTP request to complete, whereas `StatusError` is for a request that has completed but has a non 2xx status code. However, it makes sense this way too, i.e. it's not too surprising that all the HTTP.jl errors have a common parent type.


I think it'd be better to make the `box_factory` create and return a `unique_ptr`; otherwise, if you pass the `unique_ptr` as a non-const reference to `box_factory`, it means that you are okay if `box_factory` takes the ownership of this `unique_ptr`. In general, I would recommend passing a `unique_ptr` either as a `const unique_ptr &` to indicate that the parameter will be an in/out parameter, or `unique_ptr &&` to indicate that the parameter is a sink.


ok anh @phatnguyen81 . Em nghĩ chuyển sang dùng Mongodb cho khỏe. Mongodb anh cũng có kinh nghiệm đúng ko anh


need an extra new line here


Any suggestion to avoid this trick? I must confess I usually use this solution


thank anh @phatnguyen81 . Anh cũng đính kèm link commit phần mình đã làm, cho tiện theo dõi nghe. Ví dụ https://github.com/vinaas/easyquiztest/commit/63a0399ceba0ae1df93b97f60bce12023a7cb920


Doh.


This breaks compatibility again. Custom events no longer work.