{"comment":{"url":"https://api.github.com/repos/bc/frontiers2017/comments/25738800","html_url":"https://github.com/bc/frontiers2017/commit/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5#commitcomment-25738800","id":25738800,"user":{"login":"lintr-bot","id":10925265,"avatar_url":"https://avatars3.githubusercontent.com/u/10925265?v=4","gravatar_id":"","url":"https://api.github.com/users/lintr-bot","html_url":"https://github.com/lintr-bot","followers_url":"https://api.github.com/users/lintr-bot/followers","following_url":"https://api.github.com/users/lintr-bot/following{/other_user}","gists_url":"https://api.github.com/users/lintr-bot/gists{/gist_id}","starred_url":"https://api.github.com/users/lintr-bot/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/lintr-bot/subscriptions","organizations_url":"https://api.github.com/users/lintr-bot/orgs","repos_url":"https://api.github.com/users/lintr-bot/repos","events_url":"https://api.github.com/users/lintr-bot/events{/privacy}","received_events_url":"https://api.github.com/users/lintr-bot/received_events","type":"User","site_admin":false},"position":null,"line":null,"path":null,"commit_id":"530fe7a14c8069c0a19a4d045a2e3fb11e085ce5","created_at":"2017-11-20T20:40:28Z","updated_at":"2017-11-20T20:40:28Z","author_association":"NONE","body":"[R/a_matrix.r:7:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L7) *style:* **lines should not be more than 80 characters.**\n```r\n​find_A_matrix <- function(data, regressor_names = measured(muscle_names()), forces_of_interest = force_column_names) {\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:8:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L8) *warning:* **local variable ‘num_regressor_columns’ assigned but may not be used**\n```r\n​  num_regressor_columns = length(regressor_names) + 1  #inc regressor\n  ^~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:8:25:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L8) *style:* **Use <-, not =, for assignment.**\n```r\n​  num_regressor_columns = length(regressor_names) + 1  #inc regressor\n                        ^\n```\n[R/a_matrix.r:9:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L9) *warning:* **local variable ‘num_response_columns’ assigned but may not be used**\n```r\n​  num_response_columns = length(forces_of_interest)\n  ^~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:9:24:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L9) *style:* **Use <-, not =, for assignment.**\n```r\n​  num_response_columns = length(forces_of_interest)\n                       ^\n```\n[R/a_matrix.r:11:16:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L11) *warning:* **no visible global function definition for ‘add_offset_vector_to_regressor’**\n```r\n​  regressor <- add_offset_vector_to_regressor(regressor)\n               ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:12:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L12) *style:* **Variable and function names should be all lowercase.**\n```r\n​  endpointForceObservation <- data[forces_of_interest]\n  ^~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:13:14:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L13) *warning:* **no visible global function definition for ‘lin_qr_solve’**\n```r\n​  AMatrix <- lin_qr_solve(regressor, endpointForceObservation)\n             ^~~~~~~~~~~~\n```\n[R/a_matrix.r:13:38:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L13) *style:* **Variable and function names should be all lowercase.**\n```r\n​  AMatrix <- lin_qr_solve(regressor, endpointForceObservation)\n                                     ^~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:14:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L14) *style:* **Variable and function names should be all lowercase.**\n```r\n​  endpointForcePrediction <- predict_against_input_data(regressor, AMatrix)\n  ^~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:14:30:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L14) *warning:* **no visible global function definition for ‘predict_against_input_data’**\n```r\n​  endpointForcePrediction <- predict_against_input_data(regressor, AMatrix)\n                             ^~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:15:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L15) *style:* **lines should not be more than 80 characters.**\n```r\n​  fit <- list(AMatrix = AMatrix, endpointForceObservation = endpointForceObservation,\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:15:61:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L15) *style:* **Variable and function names should be all lowercase.**\n```r\n​  fit <- list(AMatrix = AMatrix, endpointForceObservation = endpointForceObservation,\n                                                            ^~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:16:31:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L16) *style:* **Variable and function names should be all lowercase.**\n```r\n​    endpointForcePrediction = endpointForcePrediction)\n                              ^~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:20:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L20) *style:* **lines should not be more than 80 characters.**\n```r\n​find_A_matrix_without_offset <- function(data, regressor_names = simplify2array(lapply(muscle_names(),\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:22:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L22) *warning:* **local variable ‘num_regressor_columns’ assigned but may not be used**\n```r\n​  num_regressor_columns = length(regressor_names)  #inc regressor\n  ^~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:22:25:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L22) *style:* **Use <-, not =, for assignment.**\n```r\n​  num_regressor_columns = length(regressor_names)  #inc regressor\n                        ^\n```\n[R/a_matrix.r:23:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L23) *warning:* **local variable ‘num_response_columns’ assigned but may not be used**\n```r\n​  num_response_columns = length(forces_of_interest)\n  ^~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:23:24:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L23) *style:* **Use <-, not =, for assignment.**\n```r\n​  num_response_columns = length(forces_of_interest)\n                       ^\n```\n[R/a_matrix.r:25:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L25) *style:* **Variable and function names should be all lowercase.**\n```r\n​  endpointForceObservation <- data[forces_of_interest]\n  ^~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:26:14:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L26) *warning:* **no visible global function definition for ‘lin_qr_solve’**\n```r\n​  AMatrix <- lin_qr_solve(regressor, endpointForceObservation)\n             ^~~~~~~~~~~~\n```\n[R/a_matrix.r:26:38:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L26) *style:* **Variable and function names should be all lowercase.**\n```r\n​  AMatrix <- lin_qr_solve(regressor, endpointForceObservation)\n                                     ^~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:27:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L27) *style:* **Variable and function names should be all lowercase.**\n```r\n​  endpointForcePrediction <- predict_against_input_data(regressor, AMatrix)\n  ^~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:27:30:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L27) *warning:* **no visible global function definition for ‘predict_against_input_data’**\n```r\n​  endpointForcePrediction <- predict_against_input_data(regressor, AMatrix)\n                             ^~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:28:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L28) *style:* **lines should not be more than 80 characters.**\n```r\n​  fit <- list(AMatrix = AMatrix, endpointForceObservation = endpointForceObservation,\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:28:61:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L28) *style:* **Variable and function names should be all lowercase.**\n```r\n​  fit <- list(AMatrix = AMatrix, endpointForceObservation = endpointForceObservation,\n                                                            ^~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:29:31:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L29) *style:* **Variable and function names should be all lowercase.**\n```r\n​    endpointForcePrediction = endpointForcePrediction)\n                              ^~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:38:2:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L38) *style:* **Commented code should be removed.**\n```r\n​##' @return A matrix representing linear least squares regression fit for x matrix -> b\n ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:64:2:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L64) *style:* **Commented code should be removed.**\n```r\n​##' @param A matrix representing linear least squares regression fit for x matrix -> b (with colnames for outputs)\n ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:68:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L68) *style:* **Variable and function names should be all lowercase.**\n```r\n​  endpointForcePrediction <- data.frame(x %*% A)\n  ^~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:69:12:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L69) *style:* **Variable and function names should be all lowercase.**\n```r\n​  colnames(endpointForcePrediction) <- colnames(A)\n           ^~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:70:10:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L70) *style:* **Variable and function names should be all lowercase.**\n```r\n​  return(endpointForcePrediction)\n         ^~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:77:2:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L77) *style:* **Commented code should be removed.**\n```r\n​##' @param x input forces where cols are measured_force & offset set to ones()\n ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:87:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L87) *style:* **lines should not be more than 80 characters.**\n```r\n​  endpoints <- interleave_two_dataframes_as_segments(cbind(A_fit$endpointForceObservation,\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:87:16:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L87) *style:* **Variable and function names should not be longer than 30 characters.**\n```r\n​  endpoints <- interleave_two_dataframes_as_segments(cbind(A_fit$endpointForceObservation,\n               ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:87:66:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L87) *style:* **Variable and function names should be all lowercase.**\n```r\n​  endpoints <- interleave_two_dataframes_as_segments(cbind(A_fit$endpointForceObservation,\n                                                                 ^~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:88:11:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L88) *style:* **Variable and function names should be all lowercase.**\n```r\n​    A_fit$endpointForcePrediction))\n          ^~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:89:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L89) *warning:* **no visible global function definition for ‘segments3d’, Did you mean 'segments'?**\n```r\n​  segments3d(endpoints)\n  ^~~~~~~~~~\n```\n[R/a_matrix.r:97:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L97) *style:* **Variable and function names should not be longer than 30 characters.**\n```r\n​interleave_two_dataframes_as_segments <- function(df) {\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:98:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L98) *style:* **lines should not be more than 80 characters.**\n```r\n​  df_interleaved <- data.frame(x = as.vector(t(markers[, c(1, 4)])), y = as.vector(t(markers[,\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:109:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L109) *style:* **lines should not be more than 80 characters.**\n```r\n​  hist_force_magnitudes(A_fit$endpointForceObservation, \"Training data observations\")\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:109:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L109) *warning:* **no visible global function definition for ‘hist_force_magnitudes’**\n```r\n​  hist_force_magnitudes(A_fit$endpointForceObservation, \"Training data observations\")\n  ^~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:109:31:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L109) *style:* **Variable and function names should be all lowercase.**\n```r\n​  hist_force_magnitudes(A_fit$endpointForceObservation, \"Training data observations\")\n                              ^~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:110:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L110) *style:* **lines should not be more than 80 characters.**\n```r\n​  hist_force_magnitudes(A_fit$endpointForcePrediction, \"Fit predictions on training data\")\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:110:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L110) *warning:* **no visible global function definition for ‘hist_force_magnitudes’**\n```r\n​  hist_force_magnitudes(A_fit$endpointForcePrediction, \"Fit predictions on training data\")\n  ^~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:110:31:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L110) *style:* **Variable and function names should be all lowercase.**\n```r\n​  hist_force_magnitudes(A_fit$endpointForcePrediction, \"Fit predictions on training data\")\n                              ^~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:111:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L111) *style:* **lines should not be more than 80 characters.**\n```r\n​  magnitude_of_residuals <- magnitudes(abs(A_fit$endpointForceObservation - A_fit$endpointForcePrediction))\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:111:29:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L111) *warning:* **no visible global function definition for ‘magnitudes’**\n```r\n​  magnitude_of_residuals <- magnitudes(abs(A_fit$endpointForceObservation - A_fit$endpointForcePrediction))\n                            ^~~~~~~~~~\n```\n[R/a_matrix.r:111:50:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L111) *style:* **Variable and function names should be all lowercase.**\n```r\n​  magnitude_of_residuals <- magnitudes(abs(A_fit$endpointForceObservation - A_fit$endpointForcePrediction))\n                                                 ^~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:111:83:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L111) *style:* **Variable and function names should be all lowercase.**\n```r\n​  magnitude_of_residuals <- magnitudes(abs(A_fit$endpointForceObservation - A_fit$endpointForcePrediction))\n                                                                                  ^~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:112:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L112) *style:* **lines should not be more than 80 characters.**\n```r\n​  forces_of_interest <- paste(colnames(A_fit$endpointForcePrediction), collapse = \", \")\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:112:46:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L112) *style:* **Variable and function names should be all lowercase.**\n```r\n​  forces_of_interest <- paste(colnames(A_fit$endpointForcePrediction), collapse = \", \")\n                                             ^~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:115:23:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L115) *style:* **Variable and function names should be all lowercase.**\n```r\n​  print(summary(A_fit$endpointForceObservation))\n                      ^~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:116:9:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L116) *warning:* **no visible global function definition for ‘column_ranges’**\n```r\n​  print(column_ranges(A_fit$endpointForceObservation))\n        ^~~~~~~~~~~~~\n```\n[R/a_matrix.r:116:29:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L116) *style:* **Variable and function names should be all lowercase.**\n```r\n​  print(column_ranges(A_fit$endpointForceObservation))\n                            ^~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:119:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L119) *style:* **lines should not be more than 80 characters.**\n```r\n​  hist_euclidian_errors(magnitude_of_residuals, forces_of_interest, regressor_names = regressor_names,\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:128:2:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L128) *style:* **Commented code should be removed.**\n```r\n​##' @param regressor_names regressors used in the fit, i.e. c('measured_M0', 'measured_M1', ...)\n ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:132:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L132) *style:* **lines should not be more than 80 characters.**\n```r\n​hist_euclidian_errors <- function(euclidian_errors_vector, forces_of_interest, regressor_names,\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:135:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L135) *style:* **lines should not be more than 80 characters.**\n```r\n​    forces_of_interest), ylab = paste(\"Number of responses in \", source_of_vals),\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:159:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L159) *warning:* **no visible global function definition for ‘fit_summary’**\n```r\n​  fit_summary(A_fit)\n  ^~~~~~~~~~~\n```\n[R/a_matrix.r:160:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L160) *warning:* **no visible global function definition for ‘evaluate_fit_wrt_test_data’**\n```r\n​  evaluate_fit_wrt_test_data(A_fit, test_data)\n  ^~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:169:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L169) *warning:* **no visible global function definition for ‘fit_summary’**\n```r\n​  fit_summary(A_fit)\n  ^~~~~~~~~~~\n```\n[R/a_matrix.r:170:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L170) *style:* **Variable and function names should not be longer than 30 characters.**\n```r\n​  evaluate_fit_wrt_test_data_without_offset(A_fit, test_data)\n  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:170:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L170) *warning:* **no visible global function definition for ‘evaluate_fit_wrt_test_data_without_offset’**\n```r\n​  evaluate_fit_wrt_test_data_without_offset(A_fit, test_data)\n  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:176:2:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L176) *style:* **Commented code should be removed.**\n```r\n​##' @param test_data df with same cols as regressors+response variables as in A_fit\n ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:180:68:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L180) *style:* **Put spaces around all infix operators.**\n```r\n​  regressor_names_without_offset <- regressor_names[regressor_names!='offset']\n                                                                  ~^~~\n```\n[R/a_matrix.r:180:70:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L180) *style:* **Only use double-quotes.**\n```r\n​  regressor_names_without_offset <- regressor_names[regressor_names!='offset']\n                                                                     ^~~~~~~~\n```\n[R/a_matrix.r:182:57:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L182) *style:* **Put spaces around all infix operators.**\n```r\n​  forces_of_interest <- paste0(force_col_names, collapse=\",\")\n                                                       ~^~\n```\n[R/a_matrix.r:185:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L185) *style:* **lines should not be more than 80 characters.**\n```r\n​  test_input <- cbind(vector_one, as.matrix(test_data[regressor_names_without_offset]))\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:186:30:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L186) *warning:* **no visible global function definition for ‘predict_output_force’**\n```r\n​  test_predicted_response <- predict_output_force(A_fit$AMatrix, test_input)\n                             ^~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:188:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L188) *style:* **lines should not be more than 80 characters.**\n```r\n​  hist_force_magnitudes(test_observed_response, \"Force observations from test data \")\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:188:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L188) *warning:* **no visible global function definition for ‘hist_force_magnitudes’**\n```r\n​  hist_force_magnitudes(test_observed_response, \"Force observations from test data \")\n  ^~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:189:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L189) *style:* **lines should not be more than 80 characters.**\n```r\n​  hist_force_magnitudes(test_predicted_response, \"Force Predictions from test data\")\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:189:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L189) *warning:* **no visible global function definition for ‘hist_force_magnitudes’**\n```r\n​  hist_force_magnitudes(test_predicted_response, \"Force Predictions from test data\")\n  ^~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:191:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L191) *style:* **lines should not be more than 80 characters.**\n```r\n​  hist_euclidian_errors(magnitudes(res_test), forces_of_interest, regressor_names,\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:192:19:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L192) *style:* **Put spaces around all infix operators.**\n```r\n​    source_of_vals=\"test data\")\n                 ~^~\n```\n[R/a_matrix.r:193:11:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L193) *style:* **Only use double-quotes.**\n```r\n​  message('Summary of residuals when predicting model against test set')\n          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:195:9:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L195) *warning:* **no visible global function definition for ‘column_ranges’**\n```r\n​  print(column_ranges(res_test))\n        ^~~~~~~~~~~~~\n```\n[R/a_matrix.r:196:11:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L196) *style:* **Only use double-quotes.**\n```r\n​  message('summary of euclidian magnitudes of residuals in model vs test set ')\n          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:197:17:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L197) *warning:* **no visible global function definition for ‘magnitudes’**\n```r\n​  print(summary(magnitudes(res_test)))\n                ^~~~~~~~~~\n```\n[R/a_matrix.r:200:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L200) *style:* **Variable and function names should not be longer than 30 characters.**\n```r\n​evaluate_fit_wrt_test_data_without_offset <- function(A_fit, test_data) {\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:204:57:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L204) *style:* **Put spaces around all infix operators.**\n```r\n​  forces_of_interest <- paste0(force_col_names, collapse=\",\")\n                                                       ~^~\n```\n[R/a_matrix.r:205:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L205) *warning:* **local variable ‘vector_one’ assigned but may not be used**\n```r\n​  vector_one <- as.matrix(rep(1, num_observation), num_observation, 1)\n  ^~~~~~~~~~\n```\n[R/a_matrix.r:207:30:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L207) *warning:* **no visible global function definition for ‘predict_output_force’**\n```r\n​  test_predicted_response <- predict_output_force(A_fit$AMatrix, test_input)\n                             ^~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:209:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L209) *style:* **lines should not be more than 80 characters.**\n```r\n​  hist_force_magnitudes(test_observed_response, \"Force observations from test data \")\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:209:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L209) *warning:* **no visible global function definition for ‘hist_force_magnitudes’**\n```r\n​  hist_force_magnitudes(test_observed_response, \"Force observations from test data \")\n  ^~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:210:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L210) *style:* **lines should not be more than 80 characters.**\n```r\n​  hist_force_magnitudes(test_predicted_response, \"Force Predictions from test data\")\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:210:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L210) *warning:* **no visible global function definition for ‘hist_force_magnitudes’**\n```r\n​  hist_force_magnitudes(test_predicted_response, \"Force Predictions from test data\")\n  ^~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:212:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L212) *style:* **lines should not be more than 80 characters.**\n```r\n​  hist_euclidian_errors(magnitudes(res_test), forces_of_interest, regressor_names,\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:213:19:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L213) *style:* **Put spaces around all infix operators.**\n```r\n​    source_of_vals=\"test data\")\n                 ~^~\n```\n[R/a_matrix.r:214:11:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L214) *style:* **Only use double-quotes.**\n```r\n​  message('Summary of residuals when predicting model against test set')\n          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:216:9:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L216) *warning:* **no visible global function definition for ‘column_ranges’**\n```r\n​  print(column_ranges(res_test))\n        ^~~~~~~~~~~~~\n```\n[R/a_matrix.r:217:11:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L217) *style:* **Only use double-quotes.**\n```r\n​  message('summary of euclidian magnitudes of residuals in model vs test set ')\n          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:218:17:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L218) *warning:* **no visible global function definition for ‘magnitudes’**\n```r\n​  print(summary(magnitudes(res_test)))\n                ^~~~~~~~~~\n```\n[R/a_matrix.r:226:2:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L226) *style:* **Commented code should be removed.**\n```r\n​##' @param magnitudes vector of numeric magnitude, same length as nrow(force_df)\n ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:228:32:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L228) *warning:* **no visible binding for global variable ‘norm_vec’**\n```r\n​  as.vector(apply(force_df, 1, norm_vec))\n                               ^~~~~~~~\n```\n[R/a_matrix.r:237:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L237) *style:* **lines should not be more than 80 characters.**\n```r\n​  force_dimensions_xlab <- paste(\"Force magnitude in\", colnames(force_df), \"(N)\",collapse=\",\")\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:237:82:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L237) *style:* **Commas should always have a space after.**\n```r\n​  force_dimensions_xlab <- paste(\"Force magnitude in\", colnames(force_df), \"(N)\",collapse=\",\")\n                                                                                 ^\n```\n[R/a_matrix.r:237:90:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L237) *style:* **Put spaces around all infix operators.**\n```r\n​  force_dimensions_xlab <- paste(\"Force magnitude in\", colnames(force_df), \"(N)\",collapse=\",\")\n                                                                                        ~^~\n```\n[R/a_matrix.r:243:2:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L243) *style:* **Commented code should be removed.**\n```r\n​##' https://stackoverflow.com/questions/18705153/generate-list-of-all-possible-combinations-of-elements-of-vector\n ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:258:2:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L258) *style:* **Commented code should be removed.**\n```r\n​##' @return M matrix where each row is a unique combination of tension_range[1] min and tension_range[2] max\n ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:260:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L260) *warning:* **no visible global function definition for ‘stop_if_min_equals_max’**\n```r\n​  stop_if_min_equals_max(tension_range)\n  ^~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:261:10:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L261) *warning:* **no visible global function definition for ‘n_binary_combinations’**\n```r\n​  mat <- n_binary_combinations(n)\n         ^~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:264:8:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L264) *style:* **Commas should always have a space after.**\n```r\n​  mat[,] <- NA\n       ^\n```\n[R/a_matrix.r:274:2:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L274) *style:* **Commented code should be removed.**\n```r\n​##' https://www.wolframalpha.com/input/?i=unixtime+1510379473228.8129883*1e-3+to+PST\n ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:277:2:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L277) *style:* **Commented code should be removed.**\n```r\n​##' @return M matrix where each row is a unique combination of tension_range[1] min and tension_range[2] max\n ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:278:45:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L278) *style:* **Commas should always have a space after.**\n```r\n​compose_binary_combination_df <- function(n,tension_range){\n                                            ^\n```\n[R/a_matrix.r:279:20:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L279) *warning:* **no visible global function definition for ‘custom_binary_combinations’**\n```r\n​  newton_values <- custom_binary_combinations(n, tension_range)\n                   ^~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:280:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L280) *style:* **lines should not be more than 80 characters.**\n```r\n​  id_vec <- format(dcc(lapply(1:nrow(newton_values), function(x) as.numeric(Sys.time())*1000)), digits=16)\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:280:20:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L280) *warning:* **no visible global function definition for ‘dcc’, Did you mean 'df'?**\n```r\n​  id_vec <- format(dcc(lapply(1:nrow(newton_values), function(x) as.numeric(Sys.time())*1000)), digits=16)\n                   ^~~\n```\n[R/a_matrix.r:280:88:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L280) *style:* **Put spaces around all infix operators.**\n```r\n​  id_vec <- format(dcc(lapply(1:nrow(newton_values), function(x) as.numeric(Sys.time())*1000)), digits=16)\n                                                                                      ~^~\n```\n[R/a_matrix.r:280:103:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L280) *style:* **Put spaces around all infix operators.**\n```r\n​  id_vec <- format(dcc(lapply(1:nrow(newton_values), function(x) as.numeric(Sys.time())*1000)), digits=16)\n                                                                                                     ~^~\n```\n[R/a_matrix.r:281:42:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L281) *style:* **Commas should always have a space after.**\n```r\n​  reference_value_colnames <- paste0(\"M\",0:(n-1))\n                                         ^\n```\n[R/a_matrix.r:281:46:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L281) *style:* **Put spaces around all infix operators.**\n```r\n​  reference_value_colnames <- paste0(\"M\",0:(n-1))\n                                            ~^~\n```\n[R/a_matrix.r:291:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L291) *style:* **lines should not be more than 80 characters.**\n```r\n​  return(format(dcc(lapply(1:n, function(x) as.numeric(Sys.time())*1000)), digits=16))\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:291:17:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L291) *warning:* **no visible global function definition for ‘dcc’, Did you mean 'acf'?**\n```r\n​  return(format(dcc(lapply(1:n, function(x) as.numeric(Sys.time())*1000)), digits=16))\n                ^~~\n```\n[R/a_matrix.r:291:67:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L291) *style:* **Put spaces around all infix operators.**\n```r\n​  return(format(dcc(lapply(1:n, function(x) as.numeric(Sys.time())*1000)), digits=16))\n                                                                 ~^~\n```\n[R/a_matrix.r:291:82:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L291) *style:* **Put spaces around all infix operators.**\n```r\n​  return(format(dcc(lapply(1:n, function(x) as.numeric(Sys.time())*1000)), digits=16))\n                                                                                ~^~\n```\n[R/a_matrix.r:296:2:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L296) *style:* **Commented code should be removed.**\n```r\n​##' https://www.wolframalpha.com/input/?i=unixtime+1510379473228.8129883*1e-3+to+PST\n ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:301:9:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L301) *warning:* **no visible global function definition for ‘compose_binary_combination_df’**\n```r\n​  df <- compose_binary_combination_df(n,tension_range)\n        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:301:41:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L301) *style:* **Commas should always have a space after.**\n```r\n​  df <- compose_binary_combination_df(n,tension_range)\n                                        ^\n```\n[R/a_matrix.r:302:36:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L302) *style:* **Put spaces around all infix operators.**\n```r\n​  write.csv(df, filename, row.names=FALSE,quote=FALSE)\n                                  ~^~\n```\n[R/a_matrix.r:302:43:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L302) *style:* **Commas should always have a space after.**\n```r\n​  write.csv(df, filename, row.names=FALSE,quote=FALSE)\n                                          ^\n```\n[R/a_matrix.r:302:48:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L302) *style:* **Put spaces around all infix operators.**\n```r\n​  write.csv(df, filename, row.names=FALSE,quote=FALSE)\n                                              ~^~\n```\n[R/a_matrix.r:308:2:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L308) *style:* **Commented code should be removed.**\n```r\n​##' @param input_range vector of two values indicating c(min,max)\n ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:310:21:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L310) *style:* **Put spaces around all infix operators.**\n```r\n​  if (input_range[1]==input_range[2]){\n                   ~^~~\n```\n[R/a_matrix.r:311:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L311) *style:* **lines should not be more than 80 characters.**\n```r\n​    stop(paste(\"Range provided needs to have different values for max and min. You only gave me\",input_range[1]))\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:311:98:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L311) *style:* **Commas should always have a space after.**\n```r\n​    stop(paste(\"Range provided needs to have different values for max and min. You only gave me\",input_range[1]))\n                                                                                                 ^\n```\n[R/a_matrix.r:322:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L322) *style:* **lines should not be more than 80 characters.**\n```r\n​  output_b_matrix <- big_A %*% t(left_pad_ones(custom_binary_combinations(ncol(big_A)-1,tension_range)))\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:322:34:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L322) *warning:* **no visible global function definition for ‘left_pad_ones’**\n```r\n​  output_b_matrix <- big_A %*% t(left_pad_ones(custom_binary_combinations(ncol(big_A)-1,tension_range)))\n                                 ^~~~~~~~~~~~~\n```\n[R/a_matrix.r:322:48:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L322) *warning:* **no visible global function definition for ‘custom_binary_combinations’**\n```r\n​  output_b_matrix <- big_A %*% t(left_pad_ones(custom_binary_combinations(ncol(big_A)-1,tension_range)))\n                                               ^~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/a_matrix.r:322:86:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L322) *style:* **Put spaces around all infix operators.**\n```r\n​  output_b_matrix <- big_A %*% t(left_pad_ones(custom_binary_combinations(ncol(big_A)-1,tension_range)))\n                                                                                    ~^~\n```\n[R/a_matrix.r:322:89:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L322) *style:* **Commas should always have a space after.**\n```r\n​  output_b_matrix <- big_A %*% t(left_pad_ones(custom_binary_combinations(ncol(big_A)-1,tension_range)))\n                                                                                        ^\n```\n[R/a_matrix.r:323:9:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L323) *style:* **Put spaces around all infix operators.**\n```r\n​  forces<- t(output_b_matrix[1:num_output_dimensions,])\n       ~^\n```\n[R/a_matrix.r:323:54:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/a_matrix.r#L323) *style:* **Commas should always have a space after.**\n```r\n​  forces<- t(output_b_matrix[1:num_output_dimensions,])\n                                                     ^\n```\n[R/data_description.r:8:2:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L8) *style:* **Commented code should be removed.**\n```r\n​##' @param ticks vector break up of the amount of indicies of interest *800 to be every 400\n ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:19:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L19) *style:* **lines should not be more than 80 characters.**\n```r\n​  title(main = \"Forces from posture #1\", sub = paste(\"Adept x:\", adept_x_val, \"Adept y:\",\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:33:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L33) *style:* **lines should not be more than 80 characters.**\n```r\n​plot_muscle_forces_over_time <- function(forces, minimum_tendon_force, maximum_tendon_force,\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:38:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L38) *style:* **lines should not be more than 80 characters.**\n```r\n​  lapply(list(do.call(\"rbind\", forces[indices_of_interest])), function(force_ts) {\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:40:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L40) *style:* **lines should not be more than 80 characters.**\n```r\n​      \"M1\", \"M2\", \"M3\", \"M4\", \"M5\", \"M6\"), ylim = c(minimum_tendon_force, maximum_tendon_force))\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:54:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L54) *style:* **lines should not be more than 80 characters.**\n```r\n​plot_jr3_force_over_time <- function(forces, minimum_tendon_force, maximum_tendon_force,\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:63:52:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L63) *warning:* **no visible binding for global variable ‘plot_force_smoothed_curves’**\n```r\n​  lapply(list(do.call(\"rbind\", sample_of_forces)), plot_force_smoothed_curves)\n                                                   ^~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:71:2:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L71) *style:* **Commented code should be removed.**\n```r\n​##' @param wrench_vector a vector of six forces & torques, as numeric values in N or N*m\n ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:72:2:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L72) *style:* **Commented code should be removed.**\n```r\n​##' @return a written-out string of the values and all of the torques.\n ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:75:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L75) *style:* **lines should not be more than 80 characters.**\n```r\n​    \"FZ =\", wrench_vector[3], \", \", \"MX =\", wrench_vector[4], \", \", \"MY =\", wrench_vector[5],\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:87:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L87) *style:* **lines should not be more than 80 characters.**\n```r\n​  muscle_activation_patterns <- rbind(unique(timeseries_df$reference_M0), unique(timeseries_df$reference_M1),\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:88:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L88) *style:* **lines should not be more than 80 characters.**\n```r\n​    unique(timeseries_df$reference_M2), unique(timeseries_df$reference_M3), unique(timeseries_df$reference_M4),\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:90:44:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L90) *warning:* **no visible global function definition for ‘muscle_names’**\n```r\n​  row.names(muscle_activation_patterns) <- muscle_names()\n                                           ^~~~~~~~~~~~\n```\n[R/data_description.r:91:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L91) *style:* **lines should not be more than 80 characters.**\n```r\n​  colnames(muscle_activation_patterns) <- LETTERS[1:length(unique(timeseries_df$reference_M6))]\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:97:2:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L97) *style:* **Commented code should be removed.**\n```r\n​##' Adds text to plot of wrench values for forces & torques with given x and y locations\n ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:99:2:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L99) *style:* **Commented code should be removed.**\n```r\n​##' @param wrench six-element vector of numeric values\n ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:104:18:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L104) *warning:* **no visible global function definition for ‘wrench_vector_to_labeled_vals’**\n```r\n​  wrench_text <- wrench_vector_to_labeled_vals(wrench)\n                 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:111:2:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L111) *style:* **Commented code should be removed.**\n```r\n​##' @param wrench six-element vector of numeric values\n ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:115:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L115) *warning:* **no visible global function definition for ‘plot_wrench_text’**\n```r\n​  plot_wrench_text(wrench_sd_vector, x, y, prepend_string = \"SD : \")\n  ^~~~~~~~~~~~~~~~\n```\n[R/data_description.r:129:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L129) *style:* **lines should not be more than 80 characters.**\n```r\n​  p_raw <- ggparcoord(dataframe_of_observations, scale = \"globalminmax\", alpha = 1,\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:131:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L131) *style:* **lines should not be more than 80 characters.**\n```r\n​  p <- p_raw + theme_bw() + theme(panel.grid.major.x = element_line(color = \"black\",\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:138:2:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L138) *style:* **Commented code should be removed.**\n```r\n​##' Plot of the output wrench fx & fy\n ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:142:2:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L142) *style:* **Commented code should be removed.**\n```r\n​##' @param xlim vector of the max and min x-axis values\n ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:143:2:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L143) *style:* **Commented code should be removed.**\n```r\n​##' @param ylim vector of the max and min y-axis values\n ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:146:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L146) *style:* **lines should not be more than 80 characters.**\n```r\n​  plot(NA, xlim = xlim, ylim = ylim, main = paste(\"Norm of w = \", norm_vec(wrench)),\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:147:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L147) *style:* **lines should not be more than 80 characters.**\n```r\n​    xlab = paste(\"Fx is \", wrench[1]), ylab = paste(\"Fy is \", wrench[2]), asp = 1)\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:151:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L151) *warning:* **local variable ‘x_sd’ assigned but may not be used**\n```r\n​  x_sd <- wrench_sd[1]\n  ^~~~\n```\n[R/data_description.r:152:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L152) *warning:* **local variable ‘y_sd’ assigned but may not be used**\n```r\n​  y_sd <- wrench_sd[2]\n  ^~~~\n```\n[R/data_description.r:153:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L153) *warning:* **local variable ‘z_sd’ assigned but may not be used**\n```r\n​  z_sd <- wrench_sd[3]  #unused as of yet\n  ^~~~\n```\n[R/data_description.r:155:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L155) *warning:* **no visible global function definition for ‘plot_wrench_text’**\n```r\n​  plot_wrench_text(wrench)\n  ^~~~~~~~~~~~~~~~\n```\n[R/data_description.r:156:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L156) *warning:* **no visible global function definition for ‘plot_wrench_sd_text’**\n```r\n​  plot_wrench_sd_text(wrench_sd)\n  ^~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:157:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L157) *warning:* **no visible global function definition for ‘draw_circle_at_end_of_vector’**\n```r\n​  draw_circle_at_end_of_vector(x, y, z)\n  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:176:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L176) *style:* **lines should not be more than 80 characters.**\n```r\n​  draw.circle(x, y, diameter, border = \"black\", col = circle_color, lty = 1, lwd = 1)\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:176:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L176) *warning:* **no visible global function definition for ‘draw.circle’**\n```r\n​  draw.circle(x, y, diameter, border = \"black\", col = circle_color, lty = 1, lwd = 1)\n  ^~~~~~~~~~~\n```\n[R/data_description.r:187:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L187) *style:* **lines should not be more than 80 characters.**\n```r\n​plot_endpoint_force_vectors <- function(list_of_wrenches, list_of_sd_for_wrenches,\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:192:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L192) *style:* **lines should not be more than 80 characters.**\n```r\n​    plot_output_wrench_fx_fy(list_of_wrenches[[x]], list_of_sd_for_wrenches[[x]],\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:201:2:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L201) *style:* **Commented code should be removed.**\n```r\n​##' forces is a list of ramp&hold time series dataframes\n ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:202:2:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L202) *style:* **Commented code should be removed.**\n```r\n​##' force_column_names is a vector of character strings relating to the columns of forces[[i]] that contain force recordings\n ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:209:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L209) *style:* **lines should not be more than 80 characters.**\n```r\n​list_of_mean_of_last_n_observations <- function(forces, indices_of_interest, last_n_milliseconds, force_column_names) {\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:209:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L209) *style:* **Variable and function names should not be longer than 30 characters.**\n```r\n​list_of_mean_of_last_n_observations <- function(forces, indices_of_interest, last_n_milliseconds, force_column_names) {\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:219:2:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L219) *style:* **Commented code should be removed.**\n```r\n​##' forces is a list of ramp&hold time series dataframes\n ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:220:2:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L220) *style:* **Commented code should be removed.**\n```r\n​##' force_column_names is a vector of character strings relating to the columns of forces[[i]] that contain force recordings\n ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:227:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L227) *style:* **lines should not be more than 80 characters.**\n```r\n​sd_of_last_n_observations <- function(forces, indices_of_interest, last_n_milliseconds = 100, force_column_names) {\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:239:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L239) *style:* **Variable and function names should not be longer than 30 characters.**\n```r\n​plot_porcupine_of_endpoint_wrenches <- function(forces) {\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:240:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L240) *style:* **lines should not be more than 80 characters.**\n```r\n​  wrench_observation_df <- do.call(\"rbind\", forces)  #only grab the first posture\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:244:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L244) *style:* **lines should not be more than 80 characters.**\n```r\n​  scatterplot3d(wrench_observation_df[, 1], wrench_observation_df[, 2], wrench_observation_df[,\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:245:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L245) *style:* **lines should not be more than 80 characters.**\n```r\n​    3], pch = 16, xlim = force_ranges[, 1], ylim = force_ranges[, 2], zlim = force_ranges[,\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:249:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L249) *style:* **lines should not be more than 80 characters.**\n```r\n​  scatterplot3d(wrench_observation_df[, 4], wrench_observation_df[, 5], wrench_observation_df[,\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:250:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L250) *style:* **lines should not be more than 80 characters.**\n```r\n​    6], pch = 16, xlim = force_ranges[, 4], ylim = force_ranges[, 5], zlim = force_ranges[,\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:256:15:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L256) *warning:* **no visible global function definition for ‘color_gradient’**\n```r\n​  z_colors <- color_gradient(wrench_observation_df[, 3], gradient_colors)\n              ^~~~~~~~~~~~~~\n```\n[R/data_description.r:259:3:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L259) *warning:* **local variable ‘z_range_midpoint’ assigned but may not be used**\n```r\n​  z_range_midpoint <- z_range_distance/2 + z_range[1]\n  ^~~~~~~~~~~~~~~~\n```\n[R/data_description.r:259:39:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L259) *style:* **Put spaces around all infix operators.**\n```r\n​  z_range_midpoint <- z_range_distance/2 + z_range[1]\n                                     ~^~\n```\n[R/data_description.r:263:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L263) *style:* **lines should not be more than 80 characters.**\n```r\n​  segments(origin_points, origin_points, wrench_observation_df[, 1], wrench_observation_df[,\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:265:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L265) *style:* **lines should not be more than 80 characters.**\n```r\n​  points(wrench_observation_df[, 1], wrench_observation_df[, 2], xlim = c(force_ranges[1,\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:270:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L270) *style:* **lines should not be more than 80 characters.**\n```r\n​  legend_image <- as.raster(matrix(colorRampPalette(gradient_colors)(100), ncol = 1))\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:273:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L273) *style:* **lines should not be more than 80 characters.**\n```r\n​  text(x = -1, y = seq(1, 3, l = length(values_to_label_on_legend)), labels = signif(values_to_label_on_legend,\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:279:2:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L279) *style:* **Commented code should be removed.**\n```r\n​##' @param colors list of string colors that are desired in the gradient. c(\"blue\", \"yellow\") by default\n ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:287:1:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L287) *style:* **lines should not be more than 80 characters.**\n```r\n​data_description_analysis <- function(first_data_chunk, minimum_tendon_force, maximum_tendon_force,\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/data_description.r:289:15:](https://github.com/bc/frontiers2017/blob/530fe7a14c8069c0a19a4d045a2e3fb11e085ce5/R/data_description.r#L289) *warning:* **no visible global function definition for ‘split_by_position’**\n```r\n​  postures <- split_by_position(first_data_chunk$adept_x, first_data_chunk)\n"}}
{"actor":{"display_login":"lintr-bot"}}