[R/data_description.r:11:1:](https://github.com/bc/frontiers2017/blob/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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/913dfa984543a199bddd906c9a2e1bd7a66aaebd/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),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


I will not finish the application :/
https://github.com/elementary/houston/issues/548


Yeah, ultimately it seemed more consistent.


GPSと加速度センサとの組み合わせが合わないため上手く処理ができてないという結論になった
→優先事項を考えてPush機能を行う


> The temporary solution is blocking of new Minecraft snapshots and versions.
A future release will add full compatibility.


I don't understand. What do you mean with "modifiers and flags" and in which way "styled-components handle them perfectly"?


Any idea when this version will be available in maven central?


Good catch. Thanks.


Yes it is a convention,for me it is not important where it is applied,
inside feeder or stage, important was the random 90 degree error is
away.
If you prefer doing it inside feeder, it's ok.
Yes, i do it usually into scriptRun after the drawing of segmentation
(rotatedRect as example)
because after angle is modified, the rotatedRect is not valid anymore
as information like
width, height  is not exchanged based on updated rotation information
because it is not
used. Width/height is used to valide the findings, passing it to
Math.min() and Math.max first,
so orientation don't matter.

Cheers
Cri.s

2017-10-26 0:11 GMT+02:00, Jason von Nieda <notifications@github.com>:
> @cri-s I have this just about ready to go, but there is a conflict. You were
> concerned with the negation of the angle, but as far as I see it, it is
> necessary. OpenCV returns RotatedRect angles as -90 to 0 with negative
> angles being more counterclockwise. OpenPnP expects negative angles to be
> clockwise. How do you handle this conversion? I assume you do it in a
> ScriptRun stage, or a custom stage?
>
> --
> You are receiving this because you were mentioned.
> Reply to this email directly or view it on GitHub:
> https://github.com/openpnp/openpnp/commit/9c33ac8ff2c25945c129c7a6408c85fe0e497125#commitcomment-25194404


サイト上にPushTest()実行時にpush!表示


@helhum Thanks it works.


Bluemix [toolchain](https://console.bluemix.net/devops/toolchains/f3438a75-9c56-4660-83fe-e4c70405a3de "simple-toolchain-20171026061704194"): [Delivery Pipeline](https://console.bluemix.net/devops/pipelines/5fe477cc-129c-41c7-a78f-41e20f671e4c "simple-toolchain-20171026061704194") deployed [simple-toolchain-20171026061704194](https://github.com/SuPandey1/simple-toolchain-20171026061704194/releases/tag/deploy-ibm-yp-us-south-Suraj.Pandey-Dev-20171026-063932 "deploy-ibm-yp-us-south-Suraj.Pandey-Dev-20171026-063932") to [Dev](https://console.bluemix.net/apps/4b6e32d3-c71e-48f2-98d8-10c90eb5f4fb?env_id=ibm:yp:us-south "ibm:yp:us-south:Suraj.Pandey:Dev"), including this commit


Is it not too familiar?


space/tab oddity here


@Pozetiv
А где валидация на обязательное имя?


I would recommend , to create a proper .gitignore file  :)


операции с DOM дорогие, поэтому тут можно попробовать использовать innerHtml и шаблонизатор, предложенный Сергеем


@Pozetiv
Отображаться должны названия, а в value попадать айдишники


accepted


I think this might have broken 2.1.2 - I don't see it in the dropdown


Does this work? I think XSharedPreferences needs MODE_WORLD_READABLE to read preferences.


выглядит логичным разнести логику удаления таски и mark as completed в разные функции, чтобы избавиться от этой проверки


@tusharsappal WIP 👍 ;) Just pushed all random stuff to GH.


nevermind - chrome is acting weird..


@mjoh090
Jack is not CEO. He is founder and have 1 voice on every choice. Each one of the team has also 1 voice. I have almost no contact with him I communicate with the other guys, which are really cool and they are working hard. If some of all the guys in the team wants only to make money out of this project, it won’t stand a chance because the other will stop him. The founder wallets can be signed only with 3 out of 6 keys to make a transaction.
If someone uses this project for a scam or to get use of the teams work I will quit immoderately and will send a notice to the cryptoworld about what is going on inside. I have always been open and honest in all my projects. The first money I’ve received with bitcoin were stolen by an exchange that disappeared in just 6 hours with no sign of existence. I will not let any kind of bad activity happen to people who rely on me. If I’m not controlling the situation I will notify all the people if there is something wrong.

Sent from my iPhone 7 plus

> On Oct 26, 2017, at 1:56 AM, mjoh090 <notifications@github.com> wrote:
>
> @StarbuckBG Your continued engagement with the community with the pressure that you are under deserves acknowledgement. While I am critical about the decision to premine, I do not support the personal attacks on you and your credibility.
>
> Your project is an exciting worthwhile idea, but it is being lead by a CEO who, not only has next to no credibility, but also appears to me to have no leadership nous.
>
> I have observed Jack Liao's interaction with the community on slack, and it was, and continues to be woeful. You are consistently respectful and measured in your responses. He by contrast expresses his frustration with sentiments instead of well considered arguments. It is my view that his continued involvement in this project is a threat to it's success.
>
> It seems to me that you are carrying this project by yourself both technically and in terms of public relations. I don't know what your relationship is with BTCGPU's CEO is, but this project probably has a much better chance of succeeding If you broke away and took control.
>
> I suspect that you had little control over the unrealistic timelines set for this project. Discontent and dissent is going to snowball if the chain is not ready to be mined by 1 November and it's you, probably unfairly, that will be in the crosshairs of the BTCGPU community's displeasure. It is your CEO's job to manage expectations and in his messaging to give you the space to work and protect your reputation in relation to this project. I doubt that this is even in his thinking.
>
> —
> You are receiving this because you were mentioned.
> Reply to this email directly, view it on GitHub, or mute the thread.
>


What do you think about making this virtual? That way we are not forced to override it in a bot implementation.