[R/data_description.r:11:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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:96:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L96) *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:97:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L97) *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:101:3:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L101) *warning:* **local variable ‘x_sd’ assigned but may not be used**
```r
  x_sd <- wrench_sd[1]
  ^~~~
```
[R/data_description.r:102:3:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L102) *warning:* **local variable ‘y_sd’ assigned but may not be used**
```r
  y_sd <- wrench_sd[2]
  ^~~~
```
[R/data_description.r:103:3:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L103) *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:113:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L113) *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:125:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L125) *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:129:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L129) *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:130:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L130) *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:134:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L134) *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:139:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L139) *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:145:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L145) *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:147:2:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L147) *style:* **Commented code should be removed.**
```r
##' ramp&hold time series dataframes force_column_names is a vecotr of character
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:148:2:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L148) *style:* **Commented code should be removed.**
```r
##' strings relating to the columns of forces[[i]] that contain force recordings
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:150:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L150) *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:151:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L151) *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:153:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L153) *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:154:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L154) *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:154:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L154) *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:164:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L164) *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:173:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L173) *style:* **Variable and function names should not be longer than 30 characters.**
```r
plot_porcupine_of_endpoint_wrenches <- function(forces) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:174:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L174) *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:179:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L179) *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:180:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L180) *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:184:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L184) *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:185:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L185) *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:197:3:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L197) *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:197:39:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L197) *style:* **Put spaces around all infix operators.**
```r
  z_range_midpoint <- z_range_distance/2 + z_range[1]
                                     ~^~
```
[R/data_description.r:201:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L201) *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:203:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L203) *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:208:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L208) *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:211:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L211) *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:217:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L217) *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:217:2:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L217) *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:219:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L219) *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:225:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L225) *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:228:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L228) *style:* **Lines should not be more than 80 characters.**
```r
  forces <- unlist(lapply(postures, split_by_reference_force), recursive = FALSE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:231:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L231) *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:233:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L233) *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:239:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L239) *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:244:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L244) *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:248:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L248) *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:250:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L250) *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:250:3:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L250) *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:256:8:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L256) *style:* **Use <-, not =, for assignment.**
```r
  xlim = range(lapply(list_of_wrenches, function(x) {
       ^
```
[R/data_description.r:259:8:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L259) *style:* **Use <-, not =, for assignment.**
```r
  ylim = range(lapply(list_of_wrenches, function(x) {
       ^
```
[R/data_description.r:262:8:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L262) *style:* **Use <-, not =, for assignment.**
```r
  zlim = range(lapply(list_of_wrenches, function(x) {
       ^
```
[R/data_description.r:266:11:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L266) *style:* **Use <-, not =, for assignment.**
```r
  xlim[1] = xlim[1] - max(abs(zlim))
          ^
```
[R/data_description.r:268:11:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L268) *style:* **Use <-, not =, for assignment.**
```r
  xlim[2] = max(c(xlim[2] + max(abs(zlim)), 0))
          ^
```
[R/data_description.r:273:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L273) *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:273:3:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L273) *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:276:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L276) *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:278:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L278) *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:282:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L282) *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:282:3:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L282) *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:284:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L284) *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:286:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/data_description.r#L286) *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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/ForceTrial.r#L12) *style:* **Variable or function name should be snake_case.**
```r
ForceTrial <- function(timeseries_df, full_df, err, last_n_milliseconds = 100,
^~~~~~~~~~
```
[R/ForceTrial.r:24:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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/4ec959f7a9957ebed89df5a2509cb038f82645e5/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),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ForceTrial.r:25:3:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/ForceTrial.r#L25) *style:* **Variable or function name should be snake_case.**
```r
  ForceTrialObj <- structure(rm_encoder_and_adept_cols(timeseries_df), adept_coordinates = adept_coordinates(timeseries_df),
  ^~~~~~~~~~~~~
```
[R/ForceTrial.r:29:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/ForceTrial.r#L29) *style:* **Lines should not be more than 80 characters.**
```r
    setattr(ForceTrialObj, "stability_info", force_trial_to_stable_metrics(timeseries_df,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ForceTrial.r:31:1:](https://github.com/bc/frontiers2017/blob/4ec959f7a9957ebed89df5a2509cb038f82645e5/R/ForceTrial.r#L31) *style:* **Lines should not be more than 80 characters.**
```r
    setattr(ForceTrialObj, "stability_df ", list_of_forces_to_stabilized_df(list(timeseries_df), err, full_df, muscle_of_interest))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```


Should have left a comment when uploading - this script takes a left and right primer coordinate (specifically coordinates as outputted by primer3!) and returns the amplicon resulting from extension of the left primer


Fixed, thanks


Don't u have default in switch case statement in scala?


Versión inicial


That's pretty bad


there no [winver.h] included inside the official copy of wxWidgets 3.1.0 [wxWidgets-3.1.0.zip], but is included in the MinGW 5.3 include folder [mingw-5.3/include/winver.h].

So, i copied the file [winver.h] from mingw-5.3 include folder to [wx/msw/winver.h], but there an error when compile

```
gcc -c -o gcc_mswu\wxregex_regcomp.o  -O2 -mthreads  -DHAVE_W32API_H -DNDEBUG -I
..\..\include -I..\..\lib\gcc_lib\mswu -D__WXMSW__  -D_UNICODE   -MTgcc_mswu\wxr
egex_regcomp.o -MFgcc_mswu\wxregex_regcomp.o.d -MD -MP ../../src/regex/regcomp.c

In file included from ..\..\include/wx/msw/gccpriv.h:47:0,
                 from ..\..\include/wx/platform.h:355,
                 from ..\..\include/wx/defs.h:20,
                 from ../../src/regex/regcustom.h:39,
                 from ../../src/regex/regguts.h:38,
                 from ../../src/regex/regcomp.c:33:
..\..\include/wx/msw/winver.h:118:3: error: unknown type name 'DWORD'
   DWORD dwSignature;
```
whats wrong ?


It's there.

case _

But, what's the use? I mean in case of any other input, I need to ask user for input again


Alright


;) No worries mate. I'm just pulling your leg. Great work. I'm putting together a patch to improve the logic a bit.


This assignment was copy-pasted from GetHandle() and indeed it's hard to say what is its purpose here and there. It looks it can be removed from both functions with no harm.


![](https://github.trello.services/images/mini-trello-icon.png) [case 27: Admin / Proje Silme](https://trello.com/c/HxFMSr8P/20-case-27-admin-proje-silme)


@snicolet : yes, I'll try with Move Overhead=20.


What gave you the idea that randomly copying files between completely unrelated projects was somehow supposed to work? This file is indeed not in 3.1.0, but then the commit you're commenting on is not in it neither. Please get the latest sources from git and build them, not some random mix of 3.1.0 with changes from master with files from a completely different project (!!).


In that case u don't have to do condition checking

> if(userChoice.equalsIgnoreCase("lower") || userChoice.equalsIgnoreCase("upper") || userChoice.equalsIgnoreCase("reverse") || userChoice.equalsIgnoreCase("pallindrome"))


IT is working now.

a = input ("a:")
b = input ("b:")
print ("Téglalap terület:", int(a) * int(b))
print ("Téglalap kerülete:", int(a)*2 + int(b)*2)
print ("a+b:", int(a) + int(b))
print ("a-b:", int(a) - int(b))
print ("a/b:", int(a) / int(b))

Üdv,

Gönczy Gábor
Tel.: +3620 396 – 3752
Skype: doub83

2017-10-28 21:29 GMT+02:00 Tibor Szász <notifications@github.com>:

> Nice, but write a function that does the calculation ;)
>
> —
> You are receiving this because you authored the thread.
> Reply to this email directly, view it on GitHub
> <https://github.com/doub83/python-learning/commit/e6b9231758590264d592fec0de2fcd39d616a765#commitcomment-25256345>,
> or mute the thread
> <https://github.com/notifications/unsubscribe-auth/AfQyf6NU_i4OcUTvtPGooVuyRsM_aD2Lks5sw4CJgaJpZM4QKD9U>
> .
>


commit


Nothing to preview


Na so wird das aber auch nicht erfolgreich builden ..
meta-brands/meta-wetek/conf/machine/wetekplay.conf ist einem sed-fail zum Opfer gefallen ;)


I may have missed that in this commit, the value should be in my fork


It shouldn't make a difference since this method in all likelihood would not have several threads competing to call it. So remove the "synchronized" if you feel like it. In terms of the state machine, I think that having a state machine would be useful for the main controller code (i.e. the code that will handle the control of all sub-controllers, such as the ZipLineController); however, for the ZipLineController it seems to me that it would just add unnecessary complexity.


Please enter openNFR in main.html openNFR

thx


Does this have any specific benefits? Or just code legibility?


What is the diff between parse_content and parse?


Jetz wo de et sähs isset misch och upjefalle ;)
Macht aber auch nix, wetekplay baut eh nicht ...


develop (mjwitte) - Win64-Windows-7-VisualStudio-14: OK (2171 of 2171 tests passed, 0 test warnings)

![Build Badge](http://img.shields.io/badge/build%20status-passing-green.png) ![Test Badge](http://img.shields.io/badge/tests%20passed-100.0%25-green.png)


you should still add. incase item already exist.


Ich hoffe aber sowieso auf baldigen kodi-Fix und damit auch Revert dieses Commits.


This looks like a good idea, and I reviewed the code in this commit and it looks fine. However, I tried cherry-picking this into my repository, and the code has diverged too far for it to be possible.

Since I haven't actively developed this for a long time, I guess it would mean either you can go ahead using your version as the canonical one, or else generate a pull request for me to eventually review (but I'm not sure if that's practical).


K, no problem, but tomorrow.


While on the right path this hasn't fixed the issue see #39


develop (mjwitte) - x86_64-Linux-Ubuntu-14.04-gcc-4.8: OK (2191 of 2191 tests passed, 0 test warnings)

![Build Badge](http://img.shields.io/badge/build%20status-passing-green.svg) ![Test Badge](http://img.shields.io/badge/tests%20passed-100.0%25-green.svg)


develop (mjwitte) - x86_64-Linux-Ubuntu-14.04-custom_check: OK (0 of 0 tests passed, 0 test warnings)

![Build Badge](http://img.shields.io/badge/build%20status-passing-green.svg)


I think (but not tested) that the condition  if(String(value).indexof('.') != -1) would be better.


Я тебе этого не говорил, но здесь лучше использовать константную ссылку как аргумент функции.
Прочитай 2 (и может 3 (если будет огромное желание, можешь и 1 тоже почитать)) книжку из литературы (см. issue). И постарайся переписать эту функцию так, чтобы тут были:
1. передача аргумента по ссылке
2. эта ссылка была константной (про это есть в 1 книжке точно на страницах в скобочках)
Ясное дело, ты можешь поискать ответ в интернете или в книге, которая у тебя дома


лишняя пустая строка


и здесь пустая строка лишняя


и здесь тоже