@pbauer Jenkins CI reporting about code analysis
See the full report here: http://jenkins.plone.org/job/package-plone.app.blob/42/violations
```
src/plone/app/blob/iterators.py:13:9: D001 found implements( replace it with zope.interface.implementer
src/plone/app/blob/scale.py:27:5: D001 found adapts( replace it with zope.component.adapter
src/plone/app/blob/scale.py:51:42: C812 missing trailing comma
src/plone/app/blob/scale.py:74:5: D001 found adapts( replace it with zope.component.adapter
src/plone/app/blob/content.py:135:13: T000 Todo note found.
src/plone/app/blob/content.py:153:18: C812 missing trailing comma
src/plone/app/blob/content.py:254:1: E305 expected 2 blank lines after class or function definition, found 1
src/plone/app/blob/interfaces.py:10:37: Q000 Remove bad quotes.
src/plone/app/blob/interfaces.py:13:17: Q000 Remove bad quotes.
src/plone/app/blob/interfaces.py:14:23: Q000 Remove bad quotes.
src/plone/app/blob/interfaces.py:15:22: C812 missing trailing comma
src/plone/app/blob/markings.py:3:3: T000 Todo note found.
src/plone/app/blob/markings.py:9:1: I001 isort found an import in the wrong position
src/plone/app/blob/monkey.py:2:3: T000 Todo note found.
src/plone/app/blob/monkey.py:47:1: E305 expected 2 blank lines after class or function definition, found 1
src/plone/app/blob/monkey.py:53:12: P002 found "hasattr", consider replacing it
src/plone/app/blob/monkey.py:56:1: E305 expected 2 blank lines after class or function definition, found 1
src/plone/app/blob/migrations.py:43:1: C901 'makeMigrator' is too complex (15)
src/plone/app/blob/migrations.py:55:80: E501 line too long (115 > 79 characters)
src/plone/app/blob/migrations.py:83:20: P002 found "hasattr", consider replacing it
src/plone/app/blob/field.py:45:12: P002 found "hasattr", consider replacing it
src/plone/app/blob/field.py:97:24: C812 missing trailing comma
src/plone/app/blob/field.py:99:25: C812 missing trailing comma
src/plone/app/blob/field.py:143:11: T000 Todo note found.
src/plone/app/blob/field.py:198:1: E305 expected 2 blank lines after class or function definition, found 1
src/plone/app/blob/field.py:278:16: P002 found "hasattr", consider replacing it
src/plone/app/blob/field.py:282:46: C812 missing trailing comma
src/plone/app/blob/field.py:288:24: C812 missing trailing comma
src/plone/app/blob/field.py:290:25: C812 missing trailing comma
src/plone/app/blob/field.py:303:37: C812 missing trailing comma
src/plone/app/blob/field.py:309:50: T000 Todo note found.
src/plone/app/blob/field.py:313:38: C815 missing trailing comma in Python 3.5+
src/plone/app/blob/field.py:343:1: E305 expected 2 blank lines after class or function definition, found 1
src/plone/app/blob/field.py:346:50: C812 missing trailing comma
src/plone/app/blob/field.py:360:1: E305 expected 2 blank lines after class or function definition, found 1
src/plone/app/blob/field.py:363:50: C812 missing trailing comma
src/plone/app/blob/field.py:387:12: P002 found "hasattr", consider replacing it
src/plone/app/blob/field.py:390:1: E305 expected 2 blank lines after class or function definition, found 1
src/plone/app/blob/field.py:393:50: C812 missing trailing comma
src/plone/app/blob/download.py:35:1: C901 'handleRequestRange' is too complex (14)
src/plone/app/blob/browser/size.py:30:19: S001 found module formatter
src/plone/app/blob/browser/size.py:42:16: S001 found module formatter
src/plone/app/blob/browser/size.py:46:9: E731 do not assign a lambda expression, use a def
src/plone/app/blob/browser/migration.py:34:26: C812 missing trailing comma
src/plone/app/blob/browser/migration.py:42:26: C812 missing trailing comma
src/plone/app/blob/browser/maintenance.py:29:12: S001 found module formatter
src/plone/app/blob/adapters/pdata.py:13:5: D001 found adapts( replace it with zope.component.adapter
src/plone/app/blob/adapters/blobwrapper.py:12:5: D001 found adapts( replace it with zope.component.adapter
src/plone/app/blob/adapters/atimage.py:9:5: D001 found adapts( replace it with zope.component.adapter
src/plone/app/blob/adapters/atimage.py:17:43: T000 Todo note found.
src/plone/app/blob/adapters/webdav.py:12:5: D001 found adapts( replace it with zope.component.adapter
src/plone/app/blob/adapters/file.py:11:5: D001 found adapts( replace it with zope.component.adapter
src/plone/app/blob/adapters/xmlrpc.py:12:5: D001 found adapts( replace it with zope.component.adapter
src/plone/app/blob/adapters/atfile.py:12:5: D001 found adapts( replace it with zope.component.adapter
src/plone/app/blob/adapters/stringio.py:12:5: D001 found adapts( replace it with zope.component.adapter
src/plone/app/blob/adapters/fileupload.py:17:5: D001 found adapts( replace it with zope.component.adapter
src/plone/app/blob/adapters/ofsfile.py:11:5: D001 found adapts( replace it with zope.component.adapter
src/plone/app/blob/adapters/ofsfile.py:19:51: T000 Todo note found.
src/plone/app/blob/tests/test_maintenance.py:6:1: I003 isort expected 1 blank line in imports, found 0
src/plone/app/blob/tests/test_integration.py:164:41: P101 format string does contain unindexed parameters
src/plone/app/blob/tests/test_integration.py:167:41: P101 format string does contain unindexed parameters
src/plone/app/blob/tests/test_integration.py:238:44: C812 missing trailing comma
src/plone/app/blob/tests/test_replacements.py:19:1: I001 isort found an import in the wrong position
src/plone/app/blob/tests/test_replacements.py:72:31: C812 missing trailing comma
src/plone/app/blob/tests/test_replacements.py:78:36: C812 missing trailing comma
src/plone/app/blob/tests/test_replacements.py:82:34: C812 missing trailing comma
src/plone/app/blob/tests/test_replacements.py:93:38: C812 missing trailing comma
src/plone/app/blob/tests/test_replacements.py:109:73: C812 missing trailing comma
src/plone/app/blob/tests/test_replacements.py:131:38: C812 missing trailing comma
src/plone/app/blob/tests/test_replacements.py:145:73: C812 missing trailing comma
src/plone/app/blob/tests/test_replacements.py:160:45: C812 missing trailing comma
src/plone/app/blob/tests/test_replacements.py:168:44: C812 missing trailing comma
src/plone/app/blob/tests/test_replacements.py:180:42: C812 missing trailing comma
src/plone/app/blob/tests/test_replacements.py:196:42: C812 missing trailing comma
src/plone/app/blob/tests/test_replacements.py:210:42: C812 missing trailing comma
src/plone/app/blob/tests/test_replacements.py:225:42: C812 missing trailing comma
src/plone/app/blob/tests/test_replacements.py:290:38: C812 missing trailing comma
src/plone/app/blob/tests/test_replacements.py:373:22: C812 missing trailing comma
src/plone/app/blob/tests/test_replacements.py:381:44: C812 missing trailing comma
src/plone/app/blob/tests/test_replacements.py:414:9: E731 do not assign a lambda expression, use a def
src/plone/app/blob/tests/base.py:29:1: E305 expected 2 blank lines after class or function definition, found 1
src/plone/app/blob/tests/base.py:37:1: E305 expected 2 blank lines after class or function definition, found 1
src/plone/app/blob/tests/test_base_fields.py:40:1: E305 expected 2 blank lines after class or function definition, found 1
src/plone/app/blob/tests/test_base_fields.py:101:43: C812 missing trailing comma
src/plone/app/blob/tests/utils.py:59:9: T001 print statement found.
src/plone/app/blob/tests/utils.py:60:9: T001 print statement found.
src/plone/app/blob/tests/utils.py:61:9: T001 print statement found.
src/plone/app/blob/tests/lingua.py:35:1: E305 expected 2 blank lines after class or function definition, found 1
src/plone/app/blob/tests/test_doctests.py:33:35: C812 missing trailing comma
src/plone/app/blob/tests/layer.py:30:1: E305 expected 2 blank lines after class or function definition, found 1
src/plone/app/blob/tests/layer.py:51:62: C812 missing trailing comma
src/plone/app/blob/tests/layer.py:74:1: E305 expected 2 blank lines after class or function definition, found 1
src/plone/app/blob/tests/layer.py:109:1: E305 expected 2 blank lines after class or function definition, found 1
src/plone/app/blob/subtypes/image.py:25:12: P002 found "hasattr", consider replacing it
src/plone/app/blob/subtypes/image.py:51:50: C812 missing trailing comma
src/plone/app/blob/subtypes/image.py:57:14: C812 missing trailing comma
src/plone/app/blob/subtypes/blob.py:33:49: C812 missing trailing comma
src/plone/app/blob/subtypes/blob.py:39:14: C812 missing trailing comma
src/plone/app/blob/subtypes/file.py:37:49: C812 missing trailing comma
src/plone/app/blob/subtypes/file.py:43:14: C812 missing trailing comma
```
Follow [these instructions](https://github.com/plone/jenkins.plone.org/blob/master/docs/source/run-qa-on-package.rst) to reproduce it locally.


I used **uglifyjs** to optimize minimize production build (_package.json_):
`"production-build": "rm -f build/* && webpack && uglifyjs build/visualize.bundle.js -o build/visualize.min.js -m && python add_cache_busting_query_strings.py"`


hlkjkkl; kl;jlk


I do want to include `GameConstants.h` all over the place


This is not a very efficient way.


shouldn't you have deletes here?


this commit either needs fixing or reverting. it breaks
MP. malformed xml


Also `CUnitState::damage` takes `amount` by reference, you can not use anything except `int64_t`


Bluemix [toolchain](https://console.bluemix.net/devops/toolchains/b09e3ee0-bc62-4bd7-bcf6-7b033dada6af "TriAzurUE"): [Delivery Pipeline](https://console.bluemix.net/devops/pipelines/57bc70fc-3a85-4eb7-a477-d1a67ac25fb2 "TriAzurUE") deployed [TriAzur_code](https://github.com/Doncassino/TriAzur_code/releases/tag/deploy-ibm-yp-eu-gb-TriAzur-TriAzur-20171028-084838 "deploy-ibm-yp-eu-gb-TriAzur-TriAzur-20171028-084838") to [TriAzur](https://console.bluemix.net/apps/11b7850a-b04f-4546-975c-fb2662c615cd?env_id=ibm:yp:eu-gb "ibm:yp:eu-gb:TriAzur:TriAzur"), including this commit


fixme


Fails in our setup: In the systemd units relative paths appear.


This is when the class was introduced. Only change it if you think this is a copy/paste error.


yea, i know, cleaning lady did half the job ;-)


Accidentally left it there after copying the read function


Hi this is from branch 1


I see you fixed it already. Sorry about that.


she was busy :-)


Hmm
I figured


I'm gonna correct that, if that's okay...


I was gonna do that, but sure go ahead


Ok, I'm doing it


yes, tags changed


Ah, pardon, these names are really confusing, plus he made a typo in commit message that confused me even more.

I don't have any problem with moving DHCP _server_ to -extras.


Oopps, sorry for the typo in the commit message.


I am not sure either, this is the value used in `busyboxconfig` https://git.alpinelinux.org/cgit/aports/tree/main/busybox/busyboxconfig#n954 I just decided to copy it.


Don't you want use sprt[0,4]?


drinking...


空间复杂度    by宋雨洁
上周说到时间复杂度，这周我居然真的跑来说空间复杂度了……好吧，那我又只能在这里瞎掰了……有错记得告诉我……
一个算法的优劣主要从算法的执行时间和所需要占用的存储空间两个方面衡量。那么稍微说了一下时间复杂度之后，现在就来稍微说说空间复杂度。
首先，我们要知道一个算法在计算机存储器上所占用的存储空间是包括存储算法本身所占用的存储空间，算法的输入输出数据所占用的存储空间和算法在运行过程中临时占用的存储空间这三个方面的。
像上次讨论时间复杂度一样，我们来讨论一下，算法占用储存空间的影响因素来理解一下空间复杂度的实用意义。
算法的输入输出数据所占用的存储空间是由要解决的问题决定的，是通过参数表由调用函数传递而来的，它不随本算法的不同而改变。存储算法本身所占用的存储空间与算法书写的长短成正比，要压缩这方面的存储空间，就必须编写出较短的算法。算法在运行过程中临时占用的存储空间随算法的不同而异。
既然算法能够影响算法运行过程中临时占用的储存空间，那么自然地，我们可以通过算法运行中临时占用的储存空间来评价一个算法。而空间复杂度就是对一个算法在运行过程中临时占用存储空间大小的量度。
算法的空间复杂度并不是计算实际占用的空间，而是计算整个算法的辅助空间单元的个数。算法的空间复杂度一般也以数量级的形式给出。如当一个算法的空间复杂度为一个常量，即不随被处理数据量n的大小而改变时，可表示为O(1)；当一个算法的空间复杂度与以2为底的n的对数成正比时，可表示为O(log2^n)；当一个算法的空间复杂度与n成线性比例关系时，可表示为O(n).若形参为数组，则只需要为它分配一个存储由实参传送来的一个地址指针的空间，即一个机器字长空间；若形参为引用方式，则也只需要为其分配存储一个地址的空间，用它来存储对应实参变量的地址，以便由系统自动引用实参变量。说了这多其实我后面的貌似不太懂……
感觉跟时间复杂度差不多的……然后就是老规矩，上栗子：
for (int i=2;i<=n;i++)
{
	first=first^second;
	second=first^second;
	first=first^second;
	second=first+second;
}

不管怎么说，这个算法里面使用的变量都只有那几个，所以说它的空间复杂度是一个常量，我们记为O（1）。
而一般递归的空间复杂度计算方法是（我好懒，不想举例子了）：  递归的深度*每次递归所需的辅助空间的个数,那么它的空间复杂度是O(n)。
时间复杂度和空间复杂度的关系？emmmm……一般时间复杂度小了，空间复杂度会大一些，空间复杂度小了，时间复杂度会大一些，所以不能只分开来考虑其中一个，而要综合来判断。
我也不太清楚我说了什么，喵喵喵~


@cala done


github


It's difficult for me to recognise `udhcpd` vs. `udhcpcd`, so I learned to look for `cd` at the end of the name. `udhpcd` -> `cd` -> client.


You was nearly right but it was -109 elo ;-)


I think that I will forget this idea to combine with new rook mobility values, anyway :-)

http://tests.stockfishchess.org/tests/view/59f42d780ebc590ccbb89b35
LLR: -2.94 (-2.94,2.94) [0.00,4.00]
Total: 531 W: 44 L: 200 D: 287

http://tests.stockfishchess.org/tests/view/59f446400ebc590ccbb89b48
LLR: -2.97 (-2.94,2.94) [0.00,5.00]
Total: 528 W: 57 L: 184 D: 287


Don't you agree with my enum-related proposal?


It is incredible, I just combined the following two yellows and this creates a patch which is -100 Elo compared to master ??

http://tests.stockfishchess.org/tests/view/59f33c2b0ebc590ccbb89a9a
http://tests.stockfishchess.org/tests/view/59e7e2da0ebc590ccbb89677


Typo in commit comment, below is the intended meaning -

For count() function, the supporting function for chrome mode is unchanged, it basically queries using DevTools Protocol accordingly (whether XPath or CSS selector is provided), and returns the count.

For visible() function, the supporting function for chrome mode uses the definition by Puppeteer’s Dev Lead Andrey Lushnikov () checking opacity in addition to CasperJS's only checking visibility and display - https://github.com/GoogleChrome/puppeteer/issues/545


1. 挿入ページに初めてアクセスしたとき

挿入ページに初めてアクセスしたときに、電話番号や自己紹介文に`null`と表示されてしまっています。初めてのときは、何も表示されないのが自然だと思います。
また、表示処理にセッションの値をそのまま使っているので、ここも`UserDataBeans`にしましょう。

2. 生年月日や種別が入力されなかったとき

生年月日が入力されなかったときは`For input string: "" `、種別が入力されなかったときは`null`が表示されます。ユーザに表示するエラー画面としては不適切です。

以上２点だけ確認してください。
他の修正課題については問題なくできています！


@kapetan91 ako koristis http module, nema potrebe da response umotavas u observable. ako se secas price, angularov http uvek vraca observable, znaci ne treba ti jos jedan.


@kapetan91 ^ ovo vazi za sve metode iz servisa


Should this be static? What if multiple clients are used in the same process to different drivers?


Instead of just fixing the symptoms, apply this solution: https://github.com/yunity/karrot-frontend/blob/e1744e131733e5a2a040a935bf68e59c9ea957bb/src/components/Wall/Wall.vue#L72-L80 ;)


OK


Oops, found it :-)

I have been using
````
    if (pos.see_ge(move), Value(-100))
````
instead of
````
    if (pos.see_ge(move, Value(-100)))
````

The first version compiles because of the comma operator in C !

I knew it, that the pull request https://github.com/official-stockfish/Stockfish/pull/1246 was usefull...


Aabb nedemek?


You can avoid this kind of commit noise by using `pull --rebase`. I set it up as my default config:
https://stevenharman.net/git-pull-with-automatic-rebase


Hi Renga Kasturi,
    let me this weekend to check this and I'll accept your pull request.
Thanks for your contribution.


пробел после =


your code is repeat of mine


accepted dude!!


void may have worked


за коменты лайк!


I'm happy to see my argument for shutting down in case of failing to lock wasn't entirely useless. :-)


deleteの時はmethod: :delete を呼び、セッションを削除する必要がある。


true, but in fact, you do get back "1\n2\n3" - I think there is a trim() in the parsing somewhere.


Първа седмица на упражнения с R


GL for ltc!


So, the new SPIR-V tools has been doing okay across a large number of runs now. I suspect it is a path triggered by one of the new test cases. E.g., the bad [] inner dimension triggers something.

We could slowly reintroduce the tests, and see if the fault starts reoccurring.


该版本部署成功，部署文件配置没有问题。
仍然存在商品购买超过库存不报错的问题。


部署成功的最早版本，部署成功版修改了，付款页和库存的部分代码


Bluemix [toolchain](https://console.bluemix.net/devops/toolchains/2c7fe290-31e2-431b-868e-b2a0c7e7ec68 "blg361"): [Delivery Pipeline](https://console.bluemix.net/devops/pipelines/bdeb8578-a4bb-4c36-b4b9-244ca4c26434 "itucsdb1737") deployed [itucsdb1737](https://github.com/itucsdb1737/itucsdb1737/releases/tag/deploy-ibm-yp-us-south-islekr-dev-20171028-094201 "deploy-ibm-yp-us-south-islekr-dev-20171028-094201") to [dev](https://console.bluemix.net/apps/ed6293bb-8693-4257-894e-51037511e283?env_id=ibm:yp:us-south "ibm:yp:us-south:islekr:dev"), including this commit


Hi.
I would inform you that we already have a russian translation in progress in [Crowdin](https://crowdin.com/project/gpslogger) translation Platform.

In case you are interested to add it in the next official GPS Logger updates, please consider to [join us on Crowdin](https://crowdin.com/project/gpslogger) and send us a message proposing yourself as Russian Proofreader! We'll take care of russian strings together across next updates!

In any case, happy tracking! :)


- STEP 2 and 3 could have been combined


so how do I disable it in command line? e.g. `vlc -p dbus disabled`?


Fixes https://github.com/Angristan/Local-DNS-resolver/issues/8


## 吃鱼的熊

距离比赛结束只剩不到两分钟的时间，计分牌上显示着：25/27，对手领先两分，时钟还在跳动，轮到我们开球。

口哨一响，中锋的我先退回底线，前锋A发球，控卫B抢过对手，顺利接到球，对方采取人盯人紧防策略，灵活的小前锋C协助B挡拆，完美的一个转身，顺利突破对方的防线，直冲向篮筐，此刻对方中锋后卫提上，阻挡B的攻势。

后卫D趁对手疏忽，拉到篮筐右侧30度角外线，B此刻已经看到她，迅速将球准确无误的传给D，对手反应也十分敏捷，所有人员都回到防守阵地，侧面也被收紧。D不擅长运球，我溜底线去接应，她将球传给我，从45度角溜进两分区域，对方攻势锁紧，我们被逼在外围。我接球后将球传回B，从底线提到两分罚球线，吸引住敌人的视线，此刻D回到我的位置接住B的传球，出


why ask orientation now in between?


make the orientation as an object in a structure
like "ship1.playerorientatio..."


Bluemix [toolchain](https://console.bluemix.net/devops/toolchains/7167ede2-5fa6-4f28-b75b-81b62ca26f75 "ToolChain-BigWizard"): [Delivery Pipeline](https://console.bluemix.net/devops/pipelines/f17dee68-3c30-4245-a86f-44e9ad5a99bd "ToolChain-BigWizard") deployed [ToolChain-BigWizard](https://github.com/SMAGONE/ToolChain-BigWizard/releases/tag/deploy-ibm-yp-us-south-sergio.magone-it.ibm.com-Dev-20171028-095229 "deploy-ibm-yp-us-south-sergio.magone-it.ibm.com-Dev-20171028-095229") to [Dev](https://console.bluemix.net/apps/02c21119-277b-4469-b896-2af1fad721a2?env_id=ibm:yp:us-south "ibm:yp:us-south:sergio.magone@it.ibm.com:Dev"), including this commit


This is going to have to take a `context` argument ;)


@jdaguil this is perfect! Thanks ++


was genau möchtest du mitteilen?


If a string is re-used multiple times it’s usually added to the list in env.h for perf


ok


It broke quic-go's travis build on x86: https://travis-ci.org/lucas-clemente/quic-go/builds/293749979. I was planning to take a look some time next week, but if you want to give it another shot please feel free to send another PR.


@LukePulverenti 2 points before this comes out of beta

1. Not all 169 addresses are local. Only 169.254.x.x is reserved for link-local addresses, others are used in the regular internet.
2. You're missing a few blocks that people might be using for the local network: 10.x.x.x and 172.16.x.x to 172.31.x.x


I was wondering xD makes sense now.


cambios para rtf3


Haha! Nice Logan


I'm missing this quite badly. Every time I have to install and change to GKeyboard.


nice!


Good call. I fixed it https://github.com/NixOS/nixpkgs/commit/2ede55a37b1b6c93cd776ec4032458e656dfd70a


I don't think it's a good idea to have this public as it can be abused


[R/data_description.r:11:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L89) *style:* **Lines should not be more than 80 characters.**
```r
  p <- p_raw + theme_bw() + theme(panel.grid.major.x = element_line(color = "black",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:111:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L111) *style:* **Lines should not be more than 80 characters.**
```r
  plot(NA, xlim = xlim, ylim = ylim, main = paste("Norm of w = ", norm_vec(wrench)),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:112:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L112) *style:* **Lines should not be more than 80 characters.**
```r
    xlab = paste("Fx is ", wrench[1]), ylab = paste("Fy is ", wrench[2]), asp = 1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:116:3:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L116) *warning:* **local variable ‘x_sd’ assigned but may not be used**
```r
  x_sd <- wrench_sd[1]
  ^~~~
```
[R/data_description.r:117:3:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L117) *warning:* **local variable ‘y_sd’ assigned but may not be used**
```r
  y_sd <- wrench_sd[2]
  ^~~~
```
[R/data_description.r:118:3:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L118) *warning:* **local variable ‘z_sd’ assigned but may not be used**
```r
  z_sd <- wrench_sd[3]  #unused as of yet
  ^~~~
```
[R/data_description.r:128:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L128) *style:* **Lines should not be more than 80 characters.**
```r
##' By default, if the diameter is positive, then the circle_color is made green, but if negative, it will make the circle black.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:140:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L140) *style:* **Lines should not be more than 80 characters.**
```r
  draw.circle(x, y, diameter, border = "black", col = circle_color, lty = 1, lwd = 1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:144:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L144) *style:* **Lines should not be more than 80 characters.**
```r
##' @param list_of_wrenches list object, each element a list of numeric values of 3 forces in N and 3 torques in Nm
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:145:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L145) *style:* **Lines should not be more than 80 characters.**
```r
##' @param list_of_sd_for_wrenches list object, each element a list of numeric values of 3 forces in N and 3 torques in Nm
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:149:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L149) *style:* **Lines should not be more than 80 characters.**
```r
plot_endpoint_force_vectors <- function(list_of_wrenches, list_of_sd_for_wrenches,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:154:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L154) *style:* **Lines should not be more than 80 characters.**
```r
    plot_output_wrench_fx_fy(list_of_wrenches[[x]], list_of_sd_for_wrenches[[x]],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:160:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L160) *style:* **Lines should not be more than 80 characters.**
```r
##' Get the mean of the last n force values for each of the force signals, for the
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:162:2:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L162) *style:* **Commented code should be removed.**
```r
##' ramp&hold time series dataframes force_column_names is a vecotr of character
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:163:2:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L163) *style:* **Commented code should be removed.**
```r
##' strings relating to the columns of forces[[i]] that contain force recordings
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:165:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L165) *style:* **Lines should not be more than 80 characters.**
```r
##' @param indices_of_interest the elements within the forces that will be included in the analysis
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:166:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L166) *style:* **Lines should not be more than 80 characters.**
```r
##' @param n number of last observations that will be extracted for this computation
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:168:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L168) *style:* **Lines should not be more than 80 characters.**
```r
##' @return list_of_tail_wrench_means computed means of the last n milliseconds of the force columns
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:169:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L169) *style:* **Lines should not be more than 80 characters.**
```r
list_of_mean_of_last_n_observations <- function(forces, indices_of_interest, n, force_column_names) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:169:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L169) *style:* **Variable and function names should not be longer than 30 characters.**
```r
list_of_mean_of_last_n_observations <- function(forces, indices_of_interest, n, force_column_names) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:179:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L179) *style:* **Lines should not be more than 80 characters.**
```r
sd_of_last_n_observations <- function(forces, indices_of_interest, n = 100, force_column_names) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:188:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L188) *style:* **Variable and function names should not be longer than 30 characters.**
```r
plot_porcupine_of_endpoint_wrenches <- function(forces) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:189:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L189) *style:* **Lines should not be more than 80 characters.**
```r
  wrench_observation_df <- do.call("rbind", forces)  #only grab the first posture
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:194:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L194) *style:* **Lines should not be more than 80 characters.**
```r
  scatterplot3d(wrench_observation_df[, 1], wrench_observation_df[, 2], wrench_observation_df[,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:195:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L195) *style:* **Lines should not be more than 80 characters.**
```r
    3], pch = 16, xlim = force_ranges[, 1], ylim = force_ranges[, 2], zlim = force_ranges[,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:199:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L199) *style:* **Lines should not be more than 80 characters.**
```r
  scatterplot3d(wrench_observation_df[, 4], wrench_observation_df[, 5], wrench_observation_df[,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:200:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L200) *style:* **Lines should not be more than 80 characters.**
```r
    6], pch = 16, xlim = force_ranges[, 4], ylim = force_ranges[, 5], zlim = force_ranges[,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:208:3:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L208) *warning:* **no visible binding for global variable ‘gradient_colors’**
```r
  gradient_colors < c("blue", "yellow")
  ^~~~~~~~~~~~~~~
```
[R/data_description.r:209:58:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L209) *warning:* **no visible binding for global variable ‘gradient_colors’**
```r
  z_colors <- color_gradient(wrench_observation_df[, 3], gradient_colors)
                                                         ^~~~~~~~~~~~~~~
```
[R/data_description.r:212:3:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L212) *warning:* **local variable ‘z_range_midpoint’ assigned but may not be used**
```r
  z_range_midpoint <- z_range_distance/2 + z_range[1]
  ^~~~~~~~~~~~~~~~
```
[R/data_description.r:212:39:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L212) *style:* **Put spaces around all infix operators.**
```r
  z_range_midpoint <- z_range_distance/2 + z_range[1]
                                     ~^~
```
[R/data_description.r:216:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L216) *style:* **Lines should not be more than 80 characters.**
```r
  segments(origin_points, origin_points, wrench_observation_df[, 1], wrench_observation_df[,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:218:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L218) *style:* **Lines should not be more than 80 characters.**
```r
  points(wrench_observation_df[, 1], wrench_observation_df[, 2], xlim = c(force_ranges[1,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:223:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L223) *style:* **Lines should not be more than 80 characters.**
```r
  legend_image <- as.raster(matrix(colorRampPalette(gradient_colors)(100), ncol = 1))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:223:53:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L223) *warning:* **no visible binding for global variable ‘gradient_colors’**
```r
  legend_image <- as.raster(matrix(colorRampPalette(gradient_colors)(100), ncol = 1))
                                                    ^~~~~~~~~~~~~~~
```
[R/data_description.r:226:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L226) *style:* **Lines should not be more than 80 characters.**
```r
  text(x = -1, y = seq(1, 3, l = length(values_to_label_on_legend)), labels = signif(values_to_label_on_legend,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:232:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L232) *style:* **Lines should not be more than 80 characters.**
```r
##' @param colors list of string colors that are desired in the gradient. c("blue", "yellow") by default
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:232:2:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L232) *style:* **Commented code should be removed.**
```r
##' @param colors list of string colors that are desired in the gradient. c("blue", "yellow") by default
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:234:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L234) *style:* **Lines should not be more than 80 characters.**
```r
##' @return color_gradient returns a function that takes an integer argument (the required number of colors) and returns a character vector of colors (see ‘rgb’) interpolating the given sequence (similar to ‘heat.colors’ or ‘terrain.colors’.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:240:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L240) *style:* **Lines should not be more than 80 characters.**
```r
data_description_analysis <- function(first_data_chunk, minimum_tendon_force, maximum_tendon_force,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:243:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L243) *style:* **Lines should not be more than 80 characters.**
```r
  forces <- unlist(lapply(postures, split_by_reference_force), recursive = FALSE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:246:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L246) *style:* **Lines should not be more than 80 characters.**
```r
  muscle_activation_patterns <- do.call("rbind", lapply(forces[indices_of_interest],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:248:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L248) *style:* **Lines should not be more than 80 characters.**
```r
  row.names(muscle_activation_patterns) <- LETTERS[1:length(indices_of_interest)]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:254:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L254) *style:* **Lines should not be more than 80 characters.**
```r
  plot(plot_muscle_forces_over_time(forces, minimum_tendon_force, maximum_tendon_force,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:259:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L259) *style:* **Lines should not be more than 80 characters.**
```r
  plot(plot_jr3_force_over_time(forces, minimum_tendon_force, maximum_tendon_force,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:263:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L263) *style:* **Lines should not be more than 80 characters.**
```r
  list_of_tail_wrench_mean <- list_of_mean_of_last_n_observations(forces, indices_of_interest,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:265:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L265) *style:* **Lines should not be more than 80 characters.**
```r
  list_of_tail_wrench_SD <- sd_of_last_n_observations(forces, indices_of_interest,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:265:3:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L265) *style:* **Variable or function name should be snake_case.**
```r
  list_of_tail_wrench_SD <- sd_of_last_n_observations(forces, indices_of_interest,
  ^~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:271:8:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L271) *style:* **Use <-, not =, for assignment.**
```r
  xlim = range(lapply(list_of_wrenches, function(x) {
       ^
```
[R/data_description.r:274:8:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L274) *style:* **Use <-, not =, for assignment.**
```r
  ylim = range(lapply(list_of_wrenches, function(x) {
       ^
```
[R/data_description.r:277:8:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L277) *style:* **Use <-, not =, for assignment.**
```r
  zlim = range(lapply(list_of_wrenches, function(x) {
       ^
```
[R/data_description.r:281:11:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L281) *style:* **Use <-, not =, for assignment.**
```r
  xlim[1] = xlim[1] - max(abs(zlim))
          ^
```
[R/data_description.r:283:11:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L283) *style:* **Use <-, not =, for assignment.**
```r
  xlim[2] = max(c(xlim[2] + max(abs(zlim)), 0))
          ^
```
[R/data_description.r:288:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L288) *style:* **Lines should not be more than 80 characters.**
```r
  indices_of_correctly_lengthed_forces <- which(lapply(forces, force_ts_len_is_acceptable) ==
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:288:3:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L288) *style:* **Variable and function names should not be longer than 30 characters.**
```r
  indices_of_correctly_lengthed_forces <- which(lapply(forces, force_ts_len_is_acceptable) ==
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:291:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L291) *style:* **Lines should not be more than 80 characters.**
```r
  force_extended_list <- list_of_mean_of_last_n_observations(forces, indices_of_interest = 1:length(forces),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:293:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L293) *style:* **Lines should not be more than 80 characters.**
```r
  posture_1_viable_forces <- force_extended_list[indices_of_correctly_lengthed_forces]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:297:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L297) *style:* **Lines should not be more than 80 characters.**
```r
  elapsed_trial_times <- plot_force_trial_elapsed_time_distribution(forces[indices_of_correctly_lengthed_forces])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:297:3:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L297) *warning:* **local variable ‘elapsed_trial_times’ assigned but may not be used**
```r
  elapsed_trial_times <- plot_force_trial_elapsed_time_distribution(forces[indices_of_correctly_lengthed_forces])
  ^~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:299:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L299) *style:* **Variable and function names should not be longer than 30 characters.**
```r
plot_force_trial_elapsed_time_distribution <- function(forces) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:301:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/data_description.r#L301) *style:* **Lines should not be more than 80 characters.**
```r
  hist(vector_of_times, breaks = 10, xlab = "Time per force trial (ms)", ylab = "Number of force trials",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:3:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/ForceTrial.r#L12) *style:* **Lines should not be more than 80 characters.**
```r
ForceTrial <- function(timeseries_df, full_df_path, full_df, err, last_n_milliseconds = 100,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ForceTrial.r:12:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/R/ForceTrial.r#L12) *style:* **Variable or function name should be snake_case.**
```r
ForceTrial <- function(timeseries_df, full_df_path, full_df, err, last_n_milliseconds = 100,
^~~~~~~~~~
```
[R/ForceTrial.r:24:1:](https://github.com/bc/frontiers2017/blob/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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/80cf51e4017e85c160bd9f727ba9f4963b6fad8f/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),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


With the patch I get 802.11s up and running. I can also change the settings. So it's basically supported. There could be more like correct showing of mesh-id and status at network/wireless. May be this is helpful to https://github.com/openwrt/luci/issues/1228 and https://github.com/openwrt/luci/pull/1363 .


Good, you found that nasty typo, its been bugging me for years!


That may be a typo, Because according to the UESP Wiki all games including Oblivion arg1 to arg3 are the same, just people have different perspectives.
```Pascal
wbMainRecordHeader := wbStruct('Record Header', [
    wbString('Signature', 4, cpCritical),
    wbInteger('Data Size', itU32, nil, cpIgnore),
    wbRecordFlags,
    wbFormID('FormID', cpFormID),
    wbByteArray('Unknown', 4, cpIgnore)
]);
```
The above is for oblivion.
```Pascal
wbMainRecordHeader := wbStruct('Record Header', [
    wbString('Signature', 4, cpCritical),
    wbInteger('Data Size', itU32, nil, cpIgnore),
    wbRecordFlags,
    wbFormID('FormID', cpFormID),
    wbByteArray('Version Control Info 1', 4, cpIgnore),
    wbInteger('Form Version', itU16, nil, cpIgnore),
    wbByteArray('Version Control Info 2', 2, cpIgnore)
]);
```
The above is for Skyrim.

Version Control Info 1 (For Skyrim) = Unknown (For Oblivion)

In xEdit we are just preserving that number.  For xEdit the last 32 bit integer is ignored for Oblivion but you shouldn't throw away arg3 and assign the FormID to flags2. That doesn't make sense.  If the code even looks at flags2 it would be looking at what the CK uses for the next FormID that will be assigned to the next new record.

Bethesda added the Form Version which is the 6th 32 bit integer, or extra.


No właśnie z tym jest problem bo już na początku chciałem to wydzielić ale jest taki problem że żeby wyszukiwać elementy z gui przez findbyid to trzeba żeby klasa była activity bo inaczej nie ma zdefiniowanego View i pisze że "findbyid is undefined". Narazie nie znalazłem jak to obejść i w sumie nie wiem czy się da bo jak patrzyłem na githubie projekty to wszystkie operacje asychroniczne są właśnie jako klasa w klasie napisane. Troche słabe ale chyba tak musi być .


This works, and if you were to request a merge, I would pass it, that said, I'm going to leave a few comments for style and some unity concepts.


celsius was considered equal to kelvin, defeating the purpose of type-safety:
```kotlin
// generated code
data class K1(override val quantity: Double) : Uom<K1>
typealias kelvin = K1
typealias celsius = K1
```


You can make this a public Light dirLight outside of the function. Then in the unity inspector, drag and drop the light onto the script where it says dirLight. From a style perspective, it looks prettier and makes things easier to manage. More importantly though, you don't have to call GetComponent() every time you need to update intensity.


Same as above, you would just declare it at the top and remove the GetComponents() in each function


This looks really weird to me. I'd say either keep everything inline or start a new line with the first zero.


<!DOCTYPE html>

    <title>Mapa de coropletas con Leaflet y GeoJSON Poblacion total</title>

    <meta charset="UTF-8" />

    <link rel="stylesheet" href="css/estilos.css">

    <link rel="stylesheet" href="https://unpkg.com/leaflet@1.2.0/dist/leaflet.css" integrity="sha512-M2wvCLH6DSRazYeZRIm1JnYyh22purTM+FDB5CsyxtQJYeKq83arPe5wgbNmcFXGqiSH2XR8dT/fJISVA1r/zQ==" crossorigin=""/>

    <link rel="stylesheet" href="https://cdn.rawgit.com/ardhi/Leaflet.MousePosition/master/src/L.Control.MousePosition.css"/>

Costa Rica: Población total para el año 2000 según cantónes


The previous three lines have tabs but the rest uses spaces. I prefer four spaces per indentation scope.


Nice!


FC sets LC_NUMERIC="C" explicitly in order to get the '.' as a comma separator. There are some comments in the code and according to wmayer that must not be changed. There's something else going on here.


Check latest commit.

Upgrade the ESPloit Firmware first to 2.7.4
then Try the newest LinSerialEXFIL payload.


can we have this node running, updated with upstream changes (with the PR above)? 😁


Why do you need to de-quote here? (cur is only used to check if we've encountered a `virtualenv` parameter that takes an argument...)


could just be exports._connect = mqtt.connect?


Random connexion between 2 or more neurons is available.


Cambiar el orden del Adjetivo y el Sustantivo.

El orden correcto sería, _borrachera ligera_.


why even use promises? just use makeAff from eff