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


Gracias @Niquito por tu tiempo dedicado a la traducción, espero logres seguir dedicándole tiempo a la traducción ...

Gracias.


Your pipinstall code looks a lot easier. Did you find an case where the original code didn't work?


c++ code


![](https://github.trello.services/images/mini-trello-icon.png) [How To Play player does not return to the same spot on xbox one as he does in editor](https://trello.com/c/sPmhv1mr/286-how-to-play-player-does-not-return-to-the-same-spot-on-xbox-one-as-he-does-in-editor)


Saw your commit via npm/www#42. How do you tell github to display the `README.adoc` and not the `README.md` on your project page?


![](https://github.trello.services/images/mini-trello-icon.png) [Scoreboard text that comes in from the top overlaps with players when you have 8](https://trello.com/c/Eg8EOPe9/276-scoreboard-text-that-comes-in-from-the-top-overlaps-with-players-when-you-have-8)


![](https://github.trello.services/images/mini-trello-icon.png) [unplug controller on team selection screen. plug it back in and you cant move. you can press B to remove the player and rejoin. We should detect controller disconnect and then remove the player at that time.](https://trello.com/c/5pfq8Kgv/279-unplug-controller-on-team-selection-screen-plug-it-back-in-and-you-cant-move-you-can-press-b-to-remove-the-player-and-rejoin-we)


![](https://github.trello.services/images/mini-trello-icon.png) [had a bug in editor where same controller was controlling more than one player. dont know how to repro. involved unplugging controller. Any way to prevent this?](https://trello.com/c/khkGZwE8/280-had-a-bug-in-editor-where-same-controller-was-controlling-more-than-one-player-dont-know-how-to-repro-involved-unplugging-contro)


Początkowo myślałem że się nie da ale teraz doszukałem się na stacku że jednak da się tylko jest taki problem że jak w tasku działamy na kontekście to musimy mu wstrzyknąć przez konstruktor ten kontekst bo inaczej metody typu findById są nie zdefiniowane i nie można się odnośić do gui. Zaraz pushne na oddzielnym branchu bo trzeba się zastanowić czy jest sens to wydzielać. Tych tasków będzie dużo i prawie nie będzie sytuacji że będziemy jeden task używać do kilku activity.


no, this was repo initialization, didn't add anything I've written yet because none of it works


![](https://github.trello.services/images/mini-trello-icon.png) [Week 9 - Start Development](https://trello.com/c/gG9Ao4nN/46-week-9-start-development)


Preview:

```
00000000772962A0 | FFF7                         | push rdi                                 |
00000000772962A2 | 48:83EC 60                   | sub rsp,60                               |
00000000772962A6 | C741 08 FFFFFFFF             | mov dword ptr ds:[rcx+8],FFFFFFFF        |
00000000772962AD | 4C:897424 50                 | mov qword ptr ss:[rsp+50],r14            |
00000000772962B2 | 45:33F6                      | xor r14d,r14d                            |
00000000772962B5 | 44:8971 0C                   | mov dword ptr ds:[rcx+C],r14d            |
00000000772962B9 | 4C:8971 10                   | mov qword ptr ds:[rcx+10],r14            |
00000000772962BD | 4C:8971 18                   | mov qword ptr ds:[rcx+18],r14            |
00000000772962C1 | 6548:8B0425 30000000         | mov rax,qword ptr gs:[30]                |
00000000772962CA | 48:8BF9                      | mov rdi,rcx                              |
00000000772962CD | 48:8B50 60                   | mov rdx,qword ptr ds:[rax+60]            |
00000000772962D1 | 83BA B8000000 01             | cmp dword ptr ds:[rdx+B8],1              |
00000000772962D8 | 0F86 65B40600                | jbe ntdll.77301743                       |
00000000772962DE | 4C:8971 20                   | mov qword ptr ds:[rcx+20],r14            |
00000000772962E2 | 48:8D0D 47C91000             | lea rcx,qword ptr ds:[773A2C30]          |
00000000772962E9 | 48:895C24 70                 | mov qword ptr ss:[rsp+70],rbx            | [rsp+70]:"PE"
00000000772962EE | E8 DD4B0200                  | call <ntdll.RtlInterlockedPopEntrySList> |
00000000772962F3 | 48:85C0                      | test rax,rax                             |
00000000772962F6 | 0F84 798A0000                | je ntdll.7729ED75                        |
00000000772962FC | 48:8BD8                      | mov rbx,rax                              |
00000000772962FF | EB 00                        | jmp ntdll.77296301                       |
0000000077296301 | 48:891F                      | mov qword ptr ds:[rdi],rbx               |
0000000077296304 | 48:896C24 78                 | mov qword ptr ss:[rsp+78],rbp            |
0000000077296309 | 48:89B424 80000000           | mov qword ptr ss:[rsp+80],rsi            |
0000000077296311 | 6644:8933                    | mov word ptr ds:[rbx],r14w               |
0000000077296315 | 44:8973 24                   | mov dword ptr ds:[rbx+24],r14d           |
0000000077296319 | 44:8973 20                   | mov dword ptr ds:[rbx+20],r14d           |
000000007729631D | 48:897B 08                   | mov qword ptr ds:[rbx+8],rdi             |
0000000077296321 | 44:8973 28                   | mov dword ptr ds:[rbx+28],r14d           |
0000000077296325 | 48:8B2D 14C91000             | mov rbp,qword ptr ds:[773A2C40]          |
000000007729632C | 4C:89A424 88000000           | mov qword ptr ss:[rsp+88],r12            |
0000000077296334 | BE 01000000                  | mov esi,1                                |
0000000077296339 | 4C:896C24 58                 | mov qword ptr ss:[rsp+58],r13            |
000000007729633E | 48:85ED                      | test rbp,rbp                             |
0000000077296341 | 0F85 19B40600                | jne ntdll.77301760                       |
0000000077296347 | 45:8BE6                      | mov r12d,r14d                            |
000000007729634A | 6644:8963 02                 | mov word ptr ds:[rbx+2],r12w             |
000000007729634F | 48:8D0D 0ABD1000             | lea rcx,qword ptr ds:[773A2060]          |
0000000077296356 | 41:C1EC 10                   | shr r12d,10                              |
000000007729635A | 6644:8963 2C                 | mov word ptr ds:[rbx+2C],r12w            |
000000007729635F | E8 8C740200                  | call <ntdll.RtlEnterCriticalSection>     |
0000000077296364 | 48:8B05 7D711000             | mov rax,qword ptr ds:[7739D4E8]          |
000000007729636B | 4C:8B6C24 58                 | mov r13,qword ptr ss:[rsp+58]            |
0000000077296370 | 4C:8BA424 88000000           | mov r12,qword ptr ss:[rsp+88]            |
0000000077296378 | 48:8B6C24 78                 | mov rbp,qword ptr ss:[rsp+78]            |
000000007729637D | 4C:8D5B 10                   | lea r11,qword ptr ds:[rbx+10]            |
0000000077296381 | 48:8D0D 58711000             | lea rcx,qword ptr ds:[7739D4E0]          |
0000000077296388 | 49:890B                      | mov qword ptr ds:[r11],rcx               |
000000007729638B | 49:8943 08                   | mov qword ptr ds:[r11+8],rax             |
000000007729638F | 4C:8918                      | mov qword ptr ds:[rax],r11               |
0000000077296392 | 2935 D4BC1000                | sub dword ptr ds:[773A206C],esi          |
0000000077296398 | 4C:891D 49711000             | mov qword ptr ds:[7739D4E8],r11          |
000000007729639F | 75 1A                        | jne ntdll.772963BB                       |
00000000772963A1 | 4C:8935 C8BC1000             | mov qword ptr ds:[773A2070],r14          |
00000000772963A8 | F0:0FC135 B8BC1000           | lock xadd dword ptr ds:[773A2068],esi    |
00000000772963B0 | FFC6                         | inc esi                                  |
00000000772963B2 | 83FE FF                      | cmp esi,FFFFFFFF                         |
00000000772963B5 | 0F85 CDBDFDFF                | jne ntdll.77272188                       |
00000000772963BB | 48:8BB424 80000000           | mov rsi,qword ptr ss:[rsp+80]            |
00000000772963C3 | 803C25 8203FE7F 00           | cmp byte ptr ds:[7FFE0382],0             |
00000000772963CB | 4C:8B7424 50                 | mov r14,qword ptr ss:[rsp+50]            |
00000000772963D0 | 48:8B5C24 70                 | mov rbx,qword ptr ss:[rsp+70]            | [rsp+70]:"PE"
00000000772963D5 | 0F85 D8B30600                | jne ntdll.773017B3                       |
00000000772963DB | 33C0                         | xor eax,eax                              |
00000000772963DD | 48:83C4 60                   | add rsp,60                               |
00000000772963E1 | 5F                           | pop rdi                                  |
00000000772963E2 | C3                           | ret                                      |
```