> 请问何时发版更新? 影响太严重了

dist/app.js

``` js

// if (_index3.ReduxContext.Provider) {
//   _index3.ReduxContext.Provider({
//     store: store
//   });
//   _index3.ReduxContext.Provider({
//     store: store
//   });
// }

```

把这些先注了吧


Awesome, thank you!


https://www.khronos.org/opengl/wiki/Platform_specifics:_Windows#Multiple_Windows has an explanation of contexts. (I was interested in the sharing capability in the section below it.)

It bother me that wxWidgets doesn't have an API for doing `wglMakeCurrent(NULL, NULL);` as that link explains. In other words, disable the context without switching to another. Maybe this is impossible in the already hampered GLX system though. One simple way would be to let `wxGLContext::wxGLContext` construct a NULL context.


this was updated because a default html file was created


No worries and thanks :)


It seems that deleting this line cause errors undefined index at lines 551 and 555


It should be ToRawMap


Now could not deploy this pull request since the `now.json` file does not contain valid JSON.

	Click here to see the contents of `now.json`

{
    "builds": [
      { "src": "public/index.php", "use": "@now/php" },
    ]
  }

For more information on now.json visit https://zeit.co/docs/features/configuration#now.json.


ToMap returns sync.Map


why remove the case where the default proxy is set?
If that's the intention, shouldn't the commit message reflect why we're removing the default proxy?


jj


# Specs execution successful
:scroll: [View logs](http://bamboo.comnull)
### Plans updated

Bamboo specs have been successfully imported and the following plans have been updated.

Project | Plan | Build
---|---|---
[Test](http://bamboo.com/browse/TEST) | [Comment test](http://bamboo.com/browse/TEST-CTEST)  | :white_check_mark: [\#1](http://bamboo.com/browse/TEST-CTEST-1)
[New project](http://bamboo.com/browse/NEW) | [Disabled plan](http://bamboo.com/browse/NEW-DISABLED) **disabled** | :white_check_mark: [\#1](http://bamboo.com/browse/NEW-DISABLED-1)

### Deployments updated

Bamboo specs have been successfully imported and the following deployment projects have been updated.

|Deployment project |
----|
[Deployment test](http://bamboo.com/deploy/viewDeploymentProjectVersions.action?id=2162689)|


[Infobehoefte BRK bevragen.xlsx](https://github.com/VNG-Realisatie/Haal-Centraal-BRK-bevragen/files/3296555/Infobehoefte.BRK.bevragen.xlsx)


@JuliaRegistrator register()


제가 잘못 생각했네요. 말씀하신대로 감추기는 어려울거 같고 따로 .env 파일로 분리하면 더 좋을것 같습니다.


![](https://github.trello.services/images/mini-trello-icon.png) [Medallas](https://trello.com/c/lkWWG6BC/28-medallas)


Responsive sajt


It was not installed, I just did that so try again.


Thanks @fredrikekre !


Registration pull request created: [JuliaRegistries/General/1418](https://github.com/JuliaRegistries/General/pull/1418)

After the above pull request is merged, it is recommended that a tag is created on this repository for the registered package version.

This will be done automatically if [Julia TagBot](https://github.com/apps/julia-tagbot) is installed, or can be done manually through the github interface, or via:
```
git tag -a v0.6.4 -m "<description of version>" a403d8f3c69870e24cd41cc746bef4e926c5b055
git push origin v0.6.4
```


Deployment failed with the following error:

~~~
One or more invalid routes were found
~~~


Deployment failed with the following error:

~~~
You defined 1 build that did not match any source files (please ensure they are NOT defined in .nowignore):
~~~


[Arpit Jalan posted](https://review.discourse.org/t/fix-handle-array-in-redirect-param/4233/5):

Done in:

https://review.discourse.org/t/fix-respond-with-400-error-on-invalid-redirect-param/4323/


test


Successfully aliased the URL <https://botex-4nunb4pzu.now.sh> to the following aliases.

* https://botex.antonryb99.now.sh
* https://botex-git-master.antonryb99.now.sh


Employee management with password encryption


Successfully aliased the URL <https://bot-project-fsrq8au98.now.sh> to the following aliases.

* https://bot-project.vadikpointvadik.now.sh
* https://bot-project-git-master.vadikpointvadik.now.sh


Successfully aliased the URL <https://botex-4q9gjp9u0.now.sh> to the following aliases.

* https://botex.antonryb99.now.sh
* https://botex-git-master.antonryb99.now.sh


> Not "better" per se, but easier to integrate when working on top of Ubuntu mainline kernel I think.

That only helps when booting Ubuntu.  What about Fedora, Suse, Arch, or any other distro a user chooses?

> Or e.g. the kernel module will need fixes or quirks when we move off devicetrees to acpi things will get better. Or like maybe we can specify something in devicetree to "please don't load this, kthxbye".

Actually I think this particular bug is fixed.

I submitted the fix to Bjorn a few weeks ago.  Hopefully he has sent it upstream already.  Will check.


Muito bom


diffuse and specular are weighted by Fresnel (1-fresnel and fresnel accordingly ofc). But additionally diffuse is multiplied by (1-metallic) because there's no diffusion in fully metallic materials


@JuliaRegistrator register()


Registration pull request created: [JuliaRegistries/General/1419](https://github.com/JuliaRegistries/General/pull/1419)

After the above pull request is merged, it is recommended that a tag is created on this repository for the registered package version.

This will be done automatically if [Julia TagBot](https://github.com/apps/julia-tagbot) is installed, or can be done manually through the github interface, or via:
```
git tag -a v0.3.0 -m "<description of version>" 7c1be3e2ba559ee0c0553ea9d90e66473a86c704
git push origin v0.3.0
```


I think this also needs

`textInputChannel.setTextInputMethodHandler(null)`

because the handler is attached to it


ajout de petit mot d amour au fichier


Successfully aliased the URL <https://botex-3akhnt2yo.now.sh> to the following aliases.

* https://botex.antonryb99.now.sh
* https://botex-git-master.antonryb99.now.sh


well


a


Successfully aliased the URL <https://botex-kn8lqwlc7.now.sh> to the following aliases.

* https://botex.antonryb99.now.sh
* https://botex-git-master.antonryb99.now.sh


Добавлено*


Successfully aliased the URL <https://bot-project-9zl784cx9.now.sh> to the following aliases.

* https://bot-project.vadikpointvadik.now.sh
* https://bot-project-git-master.vadikpointvadik.now.sh


[R/amoeba.R:6:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/amoeba.R#L6) *style:* **Variable or function name should be snake_case.**
```r
  probSurv1996,
  ^~~~~~~~~~~~
```
[R/amoeba.R:14:5:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/amoeba.R#L14) *style:* **Variable or function name should be snake_case.**
```r
    DisplayMessage <- function(rtol, nfunk, ytry) {
    ^~~~~~~~~~~~~~
```
[R/amoeba.R:21:5:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/amoeba.R#L21) *style:* **Variable or function name should be snake_case.**
```r
    DisplayMessage <- function(rtol, nfunk, ytry) NULL
    ^~~~~~~~~~~~~~
```
[R/amoeba.R:25:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/amoeba.R#L25) *style:* **Variable or function name should be snake_case.**
```r
  Swap1D <- function(y, a, b) {
  ^~~~~~
```
[R/amoeba.R:32:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/amoeba.R#L32) *style:* **Variable or function name should be snake_case.**
```r
  Swap2D <- function(y, a1, a2, b1, b2) {
  ^~~~~~
```
[R/amoeba.R:39:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/amoeba.R#L39) *style:* **Variable or function name should be snake_case.**
```r
  AmoebaTry <- function(
  ^~~~~~~~~
```
[R/amoeba.R:41:5:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/amoeba.R#L41) *style:* **Variable or function name should be snake_case.**
```r
    probSurv1996,
    ^~~~~~~~~~~~
```
[R/amoeba.R:74:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/amoeba.R#L74) *style:* **Variable or function name should be snake_case.**
```r
  NMAX <- 50000
  ^~~~
```
[R/amoeba.R:195:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/amoeba.R#L195) *style:* **Variable or function name should be snake_case.**
```r
  pParam <- p[1, ]
  ^~~~~~
```
[R/amoeba.R:196:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/amoeba.R#L196) *style:* **Variable or function name should be snake_case.**
```r
  finalResults <- FitLLTotal(pParam, probSurv1996, param, info, data)
  ^~~~~~~~~~~~
```
[R/CapWords.R:19:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/CapWords.R#L19) *style:* **Variable or function name should be snake_case.**
```r
CapWords <- function(s, strict = FALSE)
^~~~~~~~
```
[R/derivsFunc.R:1:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/derivsFunc.R#L1) *style:* **Variable or function name should be snake_case.**
```r
derivsFunc <- function(
^~~~~~~~~~
```
[R/derivsFunc.R:5:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/derivsFunc.R#L5) *style:* **Variable or function name should be snake_case.**
```r
  nVar,
  ^~~~
```
[R/derivsFunc.R:14:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/derivsFunc.R#L14) *style:* **Variable or function name should be snake_case.**
```r
  fInit <- param$FInit
  ^~~~~
```
[R/derivsFunc.R:15:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/derivsFunc.R#L15) *style:* **Variable or function name should be snake_case.**
```r
  alphaP <- param$AlphaP
  ^~~~~~
```
[R/derivsFunc.R:16:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/derivsFunc.R#L16) *style:* **Variable or function name should be snake_case.**
```r
  noStage <- param$NoStage
  ^~~~~~~
```
[R/derivsFunc.R:22:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/derivsFunc.R#L22) *style:* **Variable or function name should be snake_case.**
```r
  iEq <- 1
  ^~~
```
[R/derivsFunc.R:34:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/derivsFunc.R#L34) *style:* **Variable or function name should be snake_case.**
```r
  iEq <- iEq + noStage
  ^~~
```
[R/derivsFunc.R:48:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/derivsFunc.R#L48) *style:* **Variable or function name should be snake_case.**
```r
  iEq <- iEq + noStage
  ^~~
```
[R/derivsFunc.R:55:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/derivsFunc.R#L55) *style:* **Variable or function name should be snake_case.**
```r
  iEq <- iEq + noStage
  ^~~
```
[R/derivsFunc.R:64:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/derivsFunc.R#L64) *style:* **Variable or function name should be snake_case.**
```r
  iEq <- iEq + 1
  ^~~
```
[R/derivsFunc.R:74:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/derivsFunc.R#L74) *style:* **Variable or function name should be snake_case.**
```r
  iEq <- iEq + 1
  ^~~
```
[R/derivsFunc.R:84:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/derivsFunc.R#L84) *style:* **Variable or function name should be snake_case.**
```r
  iEq <- iEq + 1
  ^~~
```
[R/derivsFunc.R:91:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/derivsFunc.R#L91) *style:* **Variable or function name should be snake_case.**
```r
  iEq <- iEq + 1
  ^~~
```
[R/FitAmoeba.R:1:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitAmoeba.R#L1) *style:* **Variable or function name should be snake_case.**
```r
FitAmoeba <- function(
^~~~~~~~~
```
[R/FitAmoeba.R:4:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitAmoeba.R#L4) *style:* **Variable or function name should be snake_case.**
```r
  nParam,
  ^~~~~~
```
[R/FitAmoeba.R:5:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitAmoeba.R#L5) *style:* **Variable or function name should be snake_case.**
```r
  pParam,
  ^~~~~~
```
[R/FitAmoeba.R:6:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitAmoeba.R#L6) *style:* **Variable or function name should be snake_case.**
```r
  probSurv1996,
  ^~~~~~~~~~~~
```
[R/FitAmoeba.R:12:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitAmoeba.R#L12) *style:* **Variable or function name should be snake_case.**
```r
  pFit <- c(rep(0.1, param$NoDelta),
  ^~~~
```
[R/FitAmoeba.R:15:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitAmoeba.R#L15) *style:* **Variable or function name should be snake_case.**
```r
  amoebaP <- matrix(rep(pParam, nParam + 1),
  ^~~~~~~
```
[R/FitAmoeba.R:19:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitAmoeba.R#L19) *style:* **Variable or function name should be snake_case.**
```r
  amoebaY <- rep(0, nParam + 1)
  ^~~~~~~
```
[R/FitLLAIDS.R:1:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLAIDS.R#L1) *style:* **Variable or function name should be snake_case.**
```r
FitLLAIDS <- function(
^~~~~~~~~
```
[R/FitLLAIDS.R:2:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLAIDS.R#L2) *style:* **Variable or function name should be snake_case.**
```r
  modelResults,
  ^~~~~~~~~~~~
```
[R/FitLLAIDS.R:7:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLAIDS.R#L7) *style:* **Variable or function name should be snake_case.**
```r
  LL_AIDS_Year <- NULL
  ^~~~~~~~~~~~
```
[R/FitLLAIDS.R:9:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLAIDS.R#L9) *style:* **Variable or function name should be snake_case.**
```r
  L_AIDS <- 0.0
  ^~~~~~
```
[R/FitLLAIDS.R:11:18:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLAIDS.R#L11) *style:* **Variable or function name should be snake_case.**
```r
  modelResults[, LL_AIDS_Year := 0]
                 ^~~~~~~~~~~~
```
[R/FitLLAIDS.R:13:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLAIDS.R#L13) *style:* **Variable or function name should be snake_case.**
```r
  totModels <- modelResults[['N_AIDS']]
  ^~~~~~~~~
```
[R/FitLLAIDS.R:14:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLAIDS.R#L14) *style:* **Variable or function name should be snake_case.**
```r
  totDatas <- data[['N_AIDS']]
  ^~~~~~~~
```
[R/FitLLAIDS.R:31:7:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLAIDS.R#L31) *style:* **Variable or function name should be snake_case.**
```r
      L_AIDS <- L_AIDS + modelResults[['LL_AIDS_Year']][year]
      ^~~~~~
```
[R/FitLLAIDSPos.R:1:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLAIDSPos.R#L1) *style:* **Variable or function name should be snake_case.**
```r
FitLLAIDSPos <- function(
^~~~~~~~~~~~
```
[R/FitLLAIDSPos.R:2:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLAIDSPos.R#L2) *style:* **Variable or function name should be snake_case.**
```r
  modelResults,
  ^~~~~~~~~~~~
```
[R/FitLLAIDSPos.R:6:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLAIDSPos.R#L6) *style:* **Variable or function name should be snake_case.**
```r
  LL_AIDSPos_Year <- NULL
  ^~~~~~~~~~~~~~~
```
[R/FitLLAIDSPos.R:8:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLAIDSPos.R#L8) *style:* **Variable or function name should be snake_case.**
```r
  L_AIDSPos <- 0.0
  ^~~~~~~~~
```
[R/FitLLAIDSPos.R:10:18:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLAIDSPos.R#L10) *style:* **Variable or function name should be snake_case.**
```r
  modelResults[, LL_AIDSPos_Year := 0]
                 ^~~~~~~~~~~~~~~
```
[R/FitLLAIDSPos.R:12:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLAIDSPos.R#L12) *style:* **Variable or function name should be snake_case.**
```r
  totModels <- modelResults[['N_HIV_Stage_S_Obs_5']]
  ^~~~~~~~~
```
[R/FitLLAIDSPos.R:13:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLAIDSPos.R#L13) *style:* **Variable or function name should be snake_case.**
```r
  totDatas <- data[['N_HIV_Stage_5']]
  ^~~~~~~~
```
[R/FitLLAIDSPos.R:30:7:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLAIDSPos.R#L30) *style:* **Variable or function name should be snake_case.**
```r
      L_AIDSPos <- L_AIDSPos + modelResults[['LL_AIDSPos_Year']][year]
      ^~~~~~~~~
```
[R/FitLLPoisson.R:1:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLPoisson.R#L1) *style:* **Variable or function name should be snake_case.**
```r
FitLLPoisson <- function(
^~~~~~~~~~~~
```
[R/FitLLPoisson.R:5:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLPoisson.R#L5) *style:* **Variable or function name should be snake_case.**
```r
  LL <- ifelse(y_d == 0.0,
  ^~
```
[R/FitLLPos.R:1:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLPos.R#L1) *style:* **Variable or function name should be snake_case.**
```r
FitLLPos <- function(
^~~~~~~~
```
[R/FitLLPos.R:2:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLPos.R#L2) *style:* **Variable or function name should be snake_case.**
```r
  modelResults,
  ^~~~~~~~~~~~
```
[R/FitLLPos.R:6:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLPos.R#L6) *style:* **Variable or function name should be snake_case.**
```r
  VERY_LRG <- 1.0e10
  ^~~~~~~~
```
[R/FitLLPos.R:8:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLPos.R#L8) *style:* **Variable or function name should be snake_case.**
```r
  lPos <- 0
  ^~~~
```
[R/FitLLPos.R:11:5:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLPos.R#L11) *style:* **Variable or function name should be snake_case.**
```r
    totModel <- modelResults$N_HIV_S_Obs[year]
    ^~~~~~~~
```
[R/FitLLPos.R:12:5:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLPos.R#L12) *style:* **Variable or function name should be snake_case.**
```r
    totData <- data$HIV$pop_0[year]
    ^~~~~~~
```
[R/FitLLPos.R:21:9:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLPos.R#L21) *style:* **Variable or function name should be snake_case.**
```r
        llPosYear <- FitLLPoisson(totModel, totData)
        ^~~~~~~~~
```
[R/FitLLPos.R:26:7:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLPos.R#L26) *style:* **Variable or function name should be snake_case.**
```r
      lPos <- lPos + llPosYear
      ^~~~
```
[R/FitLLPos.R:30:7:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLPos.R#L30) *style:* **Variable or function name should be snake_case.**
```r
      lPos <- lPos + VERY_LRG
      ^~~~
```
[R/FitLLPosCD4.R:1:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLPosCD4.R#L1) *style:* **Variable or function name should be snake_case.**
```r
FitLLPosCD4 <- function(
^~~~~~~~~~~
```
[R/FitLLPosCD4.R:2:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLPosCD4.R#L2) *style:* **Variable or function name should be snake_case.**
```r
  modelResults,
  ^~~~~~~~~~~~
```
[R/FitLLPosCD4.R:7:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLPosCD4.R#L7) *style:* **Variable or function name should be snake_case.**
```r
  VERY_LRG <- 1.0e10
  ^~~~~~~~
```
[R/FitLLPosCD4.R:8:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLPosCD4.R#L8) *style:* **Variable or function name should be snake_case.**
```r
  L_PosCD4 <- 0.0
  ^~~~~~~~
```
[R/FitLLPosCD4.R:10:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLPosCD4.R#L10) *style:* **Variable or function name should be snake_case.**
```r
  N_HIV_Stage_S_Obs <- sprintf('N_HIV_Stage_S_Obs_%d', group)
  ^~~~~~~~~~~~~~~~~
```
[R/FitLLPosCD4.R:11:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLPosCD4.R#L11) *style:* **Variable or function name should be snake_case.**
```r
  N_HIV_Stage <- sprintf('N_HIV_Stage_%d', group)
  ^~~~~~~~~~~
```
[R/FitLLPosCD4.R:12:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLPosCD4.R#L12) *style:* **Variable or function name should be snake_case.**
```r
  LL_PosCD4_Year <- sprintf('LL_PosCD4_Year_%d', group)
  ^~~~~~~~~~~~~~
```
[R/FitLLPosCD4.R:16:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLPosCD4.R#L16) *style:* **Variable or function name should be snake_case.**
```r
  totModels <- modelResults[[N_HIV_Stage_S_Obs]]
  ^~~~~~~~~
```
[R/FitLLPosCD4.R:17:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLPosCD4.R#L17) *style:* **Variable or function name should be snake_case.**
```r
  totDatas <- data[[N_HIV_Stage]]
  ^~~~~~~~
```
[R/FitLLPosCD4.R:36:5:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLPosCD4.R#L36) *style:* **Variable or function name should be snake_case.**
```r
    L_PosCD4 <- L_PosCD4 + modelResults[[LL_PosCD4_Year]][year]
    ^~~~~~~~
```
[R/FitLLPosCD4.R:38:7:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLPosCD4.R#L38) *style:* **Variable or function name should be snake_case.**
```r
      L_PosCD4 <- L_PosCD4 + VERY_LRG
      ^~~~~~~~
```
[R/FitLLTotal.R:1:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLTotal.R#L1) *style:* **Variable or function name should be snake_case.**
```r
FitLLTotal <- function(
^~~~~~~~~~
```
[R/FitLLTotal.R:3:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLTotal.R#L3) *style:* **Variable or function name should be snake_case.**
```r
  probSurv1996,
  ^~~~~~~~~~~~
```
[R/FitLLTotal.R:9:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLTotal.R#L9) *style:* **Variable or function name should be snake_case.**
```r
  Year <- NULL
  ^~~~
```
[R/FitLLTotal.R:11:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLTotal.R#L11) *style:* **Variable or function name should be snake_case.**
```r
  VERY_LRG <- 1e+10
  ^~~~~~~~
```
[R/FitLLTotal.R:12:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLTotal.R#L12) *style:* **Variable or function name should be snake_case.**
```r
  hMin <- 0
  ^~~~
```
[R/FitLLTotal.R:15:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLTotal.R#L15) *style:* **Variable or function name should be snake_case.**
```r
  bitSml <- 1e-6
  ^~~~~~
```
[R/FitLLTotal.R:20:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLTotal.R#L20) *style:* **Variable or function name should be snake_case.**
```r
  modelYears <- info$ModelMinYear:info$ModelMaxYear
  ^~~~~~~~~~
```
[R/FitLLTotal.R:22:9:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLTotal.R#L22) *style:* **Variable or function name should be snake_case.**
```r
  param$DeltaM <- GetParamDeltaM(p, param)
        ^~~~~~
```
[R/FitLLTotal.R:23:9:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLTotal.R#L23) *style:* **Variable or function name should be snake_case.**
```r
  param$Theta <- GetParamTheta(p, param, info)
        ^~~~~
```
[R/FitLLTotal.R:27:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLTotal.R#L27) *style:* **Variable or function name should be snake_case.**
```r
  modelResults <- matrix(0, info$ModelNoYears - 1, param$NoEq)
  ^~~~~~~~~~~~
```
[R/FitLLTotal.R:29:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLTotal.R#L29) *style:* **Variable or function name should be snake_case.**
```r
  minLambda <- VERY_LRG
  ^~~~~~~~~
```
[R/FitLLTotal.R:42:5:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLTotal.R#L42) *style:* **Variable or function name should be snake_case.**
```r
    minLambda <- min(minLambda,
    ^~~~~~~~~
```
[R/FitLLTotal.R:47:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLTotal.R#L47) *style:* **Variable or function name should be snake_case.**
```r
  modelResults <- as.data.table(modelResults)
  ^~~~~~~~~~~~
```
[R/FitLLTotal.R:48:18:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLTotal.R#L48) *style:* **Variable or function name should be snake_case.**
```r
  modelResults[, Year := modelYears[-length(modelYears)]]
                 ^~~~
```
[R/FitLLTotal.R:64:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLTotal.R#L64) *style:* **Variable or function name should be snake_case.**
```r
  lambdaPenalty <- ifelse(minLambda < 0,
  ^~~~~~~~~~~~~
```
[R/FitLLTotal.R:67:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/FitLLTotal.R#L67) *style:* **Variable or function name should be snake_case.**
```r
  llTotal <-
  ^~~~~~~
```
[R/GetBSpline.R:1:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetBSpline.R#L1) *style:* **Variable or function name should be snake_case.**
```r
GetBSpline <- function(
^~~~~~~~~~
```
[R/GetBSpline.R:6:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetBSpline.R#L6) *style:* **Variable or function name should be snake_case.**
```r
  kOrder <- info$SplineOrder
  ^~~~~~
```
[R/GetBSpline.R:7:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetBSpline.R#L7) *style:* **Variable or function name should be snake_case.**
```r
  myKnots <- info$MyKnots
  ^~~~~~~
```
[R/GetBSpline.R:9:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetBSpline.R#L9) *style:* **Variable or function name should be snake_case.**
```r
  bSpline <- matrix(0, info$ModelSplineN, kOrder)
  ^~~~~~~
```
[R/GetDelta.R:2:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetDelta.R#L2) *style:* **Variable or function name should be snake_case.**
```r
GetDelta <- function(
^~~~~~~~
```
[R/GetDelta.R:8:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetDelta.R#L8) *style:* **Variable or function name should be snake_case.**
```r
  deltaM <- param$DeltaM
  ^~~~~~
```
[R/GetDelta.R:9:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetDelta.R#L9) *style:* **Variable or function name should be snake_case.**
```r
  noStage <- param$NoStage
  ^~~~~~~
```
[R/GetDelta.R:13:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetDelta.R#L13) *style:* **Variable or function name should be snake_case.**
```r
  iTime <- 0
  ^~~~~
```
[R/GetDelta.R:16:5:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetDelta.R#L16) *style:* **Variable or function name should be snake_case.**
```r
    iTime <- iTime + 1
    ^~~~~
```
[R/GetDelta.R:19:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetDelta.R#L19) *style:* **Variable or function name should be snake_case.**
```r
  iTime <- iTime - 1
  ^~~~~
```
[R/GetInfoList.R:16:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetInfoList.R#L16) *style:* **Variable or function name should be snake_case.**
```r
GetInfoList <- function(
^~~~~~~~~~~
```
[R/GetInfoList.R:19:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetInfoList.R#L19) *style:* **Variable or function name should be snake_case.**
```r
  VERY_SML <- 1e-20
  ^~~~~~~~
```
[R/GetInfoList.R:21:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetInfoList.R#L21) *style:* **Variable or function name should be snake_case.**
```r
  incidenceParams <- context$Parameters$Models$INCIDENCE
  ^~~~~~~~~~~~~~~
```
[R/GetInfoList.R:53:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetInfoList.R#L53) *style:* **Variable or function name should be snake_case.**
```r
  knotsDistance <-
  ^~~~~~~~~~~~~
```
[R/GetInfoList.R:59:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetInfoList.R#L59) *style:* **Variable or function name should be snake_case.**
```r
  myKnots <- NULL
  ^~~~~~~
```
[R/GetInfoList.R:69:7:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetInfoList.R#L69) *style:* **Variable or function name should be snake_case.**
```r
      myKnots <- knots[k, seq_len(2 * info$SplineOrder + info$ModelNoKnots)]
      ^~~~~~~
```
[R/GetModelPop.R:16:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetModelPop.R#L16) *style:* **Variable or function name should be snake_case.**
```r
GetModelPop <- function(country = '')
^~~~~~~~~~~
```
[R/GetObjectDefinition.R:7:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetObjectDefinition.R#L7) *style:* **Lines should not be more than 80 characters.**
```r
#'   Default = \code{\link{system.file}('ObjectDefinitions', package = 'hivModelling')}.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/GetObjectDefinition.R:24:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetObjectDefinition.R#L24) *style:* **Variable or function name should be snake_case.**
```r
GetObjectDefinition <- function(
^~~~~~~~~~~~~~~~~~~
```
[R/GetObjectDefinition.R:25:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetObjectDefinition.R#L25) *style:* **Variable or function name should be snake_case.**
```r
  objectName,
  ^~~~~~~~~~
```
[R/GetObjectDefinition.R:28:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetObjectDefinition.R#L28) *style:* **Variable or function name should be snake_case.**
```r
  includeFileName = FALSE
  ^~~~~~~~~~~~~~~
```
[R/GetObjectDefinition.R:32:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetObjectDefinition.R#L32) *style:* **Variable or function name should be snake_case.**
```r
  fileName <- file.path(path,
  ^~~~~~~~
```
[R/GetObjectDefinition.R:36:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetObjectDefinition.R#L36) *style:* **Variable or function name should be snake_case.**
```r
  listObject <- eval(expr = parse(file = fileName))
  ^~~~~~~~~~
```
[R/GetObjectDefinition.R:38:16:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetObjectDefinition.R#L38) *style:* **Variable or function name should be snake_case.**
```r
    listObject$FileName <- fileName
               ^~~~~~~~
```
[R/GetObjectDefinition.R:44:7:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetObjectDefinition.R#L44) *style:* **Variable or function name should be snake_case.**
```r
      listObject <- listObject[[section]]
      ^~~~~~~~~~
```
[R/GetOutputArtifacts.R:16:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetOutputArtifacts.R#L16) *style:* **Variable or function name should be snake_case.**
```r
GetOutputArtifacts <- function(results)
^~~~~~~~~~~~~~~~~~
```
[R/GetParamDeltaM.R:1:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetParamDeltaM.R#L1) *style:* **Variable or function name should be snake_case.**
```r
GetParamDeltaM <- function(p, param) {
^~~~~~~~~~~~~~
```
[R/GetParamDeltaM.R:2:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetParamDeltaM.R#L2) *style:* **Variable or function name should be snake_case.**
```r
  deltaM <- param$DeltaM
  ^~~~~~
```
[R/GetParameterVector.R:18:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetParameterVector.R#L18) *style:* **Variable or function name should be snake_case.**
```r
GetParameterVector <- function(
^~~~~~~~~~~~~~~~~~
```
[R/GetParameterVector.R:20:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetParameterVector.R#L20) *style:* **Variable or function name should be snake_case.**
```r
  thetaF,
  ^~~~~~
```
[R/GetParamList.R:16:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetParamList.R#L16) *style:* **Variable or function name should be snake_case.**
```r
GetParamList <- function(
^~~~~~~~~~~~
```
[R/GetParamList.R:19:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetParamList.R#L19) *style:* **Variable or function name should be snake_case.**
```r
  incidenceParams <- context$Parameters$Models$INCIDENCE
  ^~~~~~~~~~~~~~~
```
[R/GetParamList.R:39:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetParamList.R#L39) *style:* **Variable or function name should be snake_case.**
```r
  deltaM <- matrix(0, param$NoStage, param$NoTime)
  ^~~~~~
```
[R/GetParamList.R:45:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetParamList.R#L45) *style:* **Variable or function name should be snake_case.**
```r
  deltaP <- matrix(0, param$NoStage, param$NoTime)
  ^~~~~~
```
[R/GetParamList.R:48:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetParamList.R#L48) *style:* **Variable or function name should be snake_case.**
```r
  thetaP <- rep(0, param$NoTheta + 2)
  ^~~~~~
```
[R/GetParamTheta.R:1:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetParamTheta.R#L1) *style:* **Variable or function name should be snake_case.**
```r
GetParamTheta <- function(
^~~~~~~~~~~~~
```
[R/GetProvSurv96.R:20:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetProvSurv96.R#L20) *style:* **Variable or function name should be snake_case.**
```r
GetProvSurv96 <- function(country, noStage, qoppa, modelMinYear, modelNoYears)
^~~~~~~~~~~~~
```
[R/GetProvSurv96.R:20:36:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetProvSurv96.R#L20) *style:* **Variable or function name should be snake_case.**
```r
GetProvSurv96 <- function(country, noStage, qoppa, modelMinYear, modelNoYears)
                                   ^~~~~~~
```
[R/GetProvSurv96.R:20:52:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetProvSurv96.R#L20) *style:* **Variable or function name should be snake_case.**
```r
GetProvSurv96 <- function(country, noStage, qoppa, modelMinYear, modelNoYears)
                                                   ^~~~~~~~~~~~
```
[R/GetProvSurv96.R:20:66:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetProvSurv96.R#L20) *style:* **Variable or function name should be snake_case.**
```r
GetProvSurv96 <- function(country, noStage, qoppa, modelMinYear, modelNoYears)
                                                                 ^~~~~~~~~~~~
```
[R/GetProvSurv96.R:22:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetProvSurv96.R#L22) *style:* **Variable or function name should be snake_case.**
```r
  probSurv1996 <- matrix(1, modelNoYears, noStage)
  ^~~~~~~~~~~~
```
[R/GetProvSurv96.R:33:5:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetProvSurv96.R#L33) *style:* **Variable or function name should be snake_case.**
```r
    qbarC <- lapply(seq(noStage), function(i) {
    ^~~~~
```
[R/GetProvSurv96.R:46:9:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetProvSurv96.R#L46) *style:* **Variable or function name should be snake_case.**
```r
        at96C <- exp(-at96)
        ^~~~~
```
[R/GetRunContext.R:15:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetRunContext.R#L15) *style:* **Variable or function name should be snake_case.**
```r
GetRunContext <- function(...)
^~~~~~~~~~~~~
```
[R/GetRunContext.R:24:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/GetRunContext.R#L24) *style:* **Variable or function name should be snake_case.**
```r
  defaultContext <- list(
  ^~~~~~~~~~~~~~
```
[R/ModelAnnualNumbers.R:1:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ModelAnnualNumbers.R#L1) *style:* **Variable or function name should be snake_case.**
```r
ModelAnnualNumbers <- function(
^~~~~~~~~~~~~~~~~~
```
[R/ModelAnnualNumbers.R:2:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ModelAnnualNumbers.R#L2) *style:* **Variable or function name should be snake_case.**
```r
  modelResults,
  ^~~~~~~~~~~~
```
[R/ModelAnnualNumbers.R:3:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ModelAnnualNumbers.R#L3) *style:* **Variable or function name should be snake_case.**
```r
  probSurv1996,
  ^~~~~~~~~~~~
```
[R/ModelAnnualNumbers.R:8:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ModelAnnualNumbers.R#L8) *style:* **Variable or function name should be snake_case.**
```r
  C_HIV_Stage_1 <- NULL
  ^~~~~~~~~~~~~
```
[R/ModelAnnualNumbers.R:9:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ModelAnnualNumbers.R#L9) *style:* **Variable or function name should be snake_case.**
```r
  C_HIV_Stage_2 <- NULL
  ^~~~~~~~~~~~~
```
[R/ModelAnnualNumbers.R:10:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ModelAnnualNumbers.R#L10) *style:* **Variable or function name should be snake_case.**
```r
  C_HIV_Stage_3 <- NULL
  ^~~~~~~~~~~~~
```
[R/ModelAnnualNumbers.R:11:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ModelAnnualNumbers.R#L11) *style:* **Variable or function name should be snake_case.**
```r
  C_HIV_Stage_4 <- NULL
  ^~~~~~~~~~~~~
```
[R/ModelAnnualNumbers.R:12:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ModelAnnualNumbers.R#L12) *style:* **Variable or function name should be snake_case.**
```r
  C_HIV_Stage_5 <- NULL
  ^~~~~~~~~~~~~
```
[R/ModelAnnualNumbers.R:13:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ModelAnnualNumbers.R#L13) *style:* **Variable or function name should be snake_case.**
```r
  N_HIV_Stage_1 <- NULL
  ^~~~~~~~~~~~~
```
[R/ModelAnnualNumbers.R:14:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ModelAnnualNumbers.R#L14) *style:* **Variable or function name should be snake_case.**
```r
  N_HIV_Stage_2 <- NULL
  ^~~~~~~~~~~~~
```
[R/ModelAnnualNumbers.R:15:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ModelAnnualNumbers.R#L15) *style:* **Variable or function name should be snake_case.**
```r
  N_HIV_Stage_3 <- NULL
  ^~~~~~~~~~~~~
```
[R/ModelAnnualNumbers.R:16:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ModelAnnualNumbers.R#L16) *style:* **Variable or function name should be snake_case.**
```r
  N_HIV_Stage_4 <- NULL
  ^~~~~~~~~~~~~
```
[R/ModelAnnualNumbers.R:17:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ModelAnnualNumbers.R#L17) *style:* **Variable or function name should be snake_case.**
```r
  N_HIV_Stage_5 <- NULL
  ^~~~~~~~~~~~~
```
[R/ModelAnnualNumbers.R:18:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ModelAnnualNumbers.R#L18) *style:* **Variable or function name should be snake_case.**
```r
  N_HIV_Stage_S_1 <- NULL
  ^~~~~~~~~~~~~~~
```
[R/ModelAnnualNumbers.R:19:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ModelAnnualNumbers.R#L19) *style:* **Variable or function name should be snake_case.**
```r
  N_HIV_Stage_S_2 <- NULL
  ^~~~~~~~~~~~~~~
```
[R/ModelAnnualNumbers.R:20:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ModelAnnualNumbers.R#L20) *style:* **Variable or function name should be snake_case.**
```r
  N_HIV_Stage_S_3 <- NULL
  ^~~~~~~~~~~~~~~
```
[R/ModelAnnualNumbers.R:21:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ModelAnnualNumbers.R#L21) *style:* **Variable or function name should be snake_case.**
```r
  N_HIV_Stage_S_4 <- NULL
  ^~~~~~~~~~~~~~~
```
[R/ModelAnnualNumbers.R:22:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ModelAnnualNumbers.R#L22) *style:* **Variable or function name should be snake_case.**
```r
  N_HIV_Stage_S_5 <- NULL
  ^~~~~~~~~~~~~~~
```
[R/ModelAnnualNumbers.R:23:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ModelAnnualNumbers.R#L23) *style:* **Variable or function name should be snake_case.**
```r
  N_HIV_S <- NULL
  ^~~~~~~
```
[R/ModelAnnualNumbers.R:24:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ModelAnnualNumbers.R#L24) *style:* **Variable or function name should be snake_case.**
```r
  C_AIDS <- NULL
  ^~~~~~
```
[R/ModelAnnualNumbers.R:25:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ModelAnnualNumbers.R#L25) *style:* **Variable or function name should be snake_case.**
```r
  C_Inf <- NULL
  ^~~~~
```
[R/ModelAnnualNumbers.R:26:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ModelAnnualNumbers.R#L26) *style:* **Variable or function name should be snake_case.**
```r
  C_Dead_U <- NULL
  ^~~~~~~~
```
[R/ModelAnnualNumbers.R:27:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ModelAnnualNumbers.R#L27) *style:* **Variable or function name should be snake_case.**
```r
  C_Dead_D <- NULL
  ^~~~~~~~
```
[R/odeint.R:3:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/odeint.R#L3) *style:* **Variable or function name should be snake_case.**
```r
  nVar,
  ^~~~
```
[R/odeint.R:8:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/odeint.R#L8) *style:* **Variable or function name should be snake_case.**
```r
  hMin,
  ^~~~
```
[R/odeint.R:13:5:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/odeint.R#L13) *style:* **Variable or function name should be snake_case.**
```r
    GetLambda <- GetBSpline_c
    ^~~~~~~~~
```
[R/odeint.R:23:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/odeint.R#L23) *style:* **Variable or function name should be snake_case.**
```r
  VERY_LRG <- 1e+10
  ^~~~~~~~
```
[R/odeint.R:24:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/odeint.R#L24) *style:* **Variable or function name should be snake_case.**
```r
  nBad <- 0
  ^~~~
```
[R/odeint.R:25:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/odeint.R#L25) *style:* **Variable or function name should be snake_case.**
```r
  nOk <- 0
  ^~~
```
[R/odeint.R:27:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/odeint.R#L27) *style:* **Variable or function name should be snake_case.**
```r
  MAXSTP <- 10e+5
  ^~~~~~
```
[R/odeint.R:28:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/odeint.R#L28) *style:* **Variable or function name should be snake_case.**
```r
  TINY <- 1e-30
  ^~~~
```
[R/odeint.R:38:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/odeint.R#L38) *style:* **Variable or function name should be snake_case.**
```r
  minLambda <- VERY_LRG
  ^~~~~~~~~
```
[R/odeint.R:41:5:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/odeint.R#L41) *style:* **Variable or function name should be snake_case.**
```r
    derivLambda <- GetLambda(time = x, param, info)
    ^~~~~~~~~~~
```
[R/odeint.R:55:5:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/odeint.R#L55) *style:* **Variable or function name should be snake_case.**
```r
    rkqsLambda <- res$MinLambda
    ^~~~~~~~~~
```
[R/odeint.R:57:5:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/odeint.R#L57) *style:* **Variable or function name should be snake_case.**
```r
    minLambda <- min(minLambda,
    ^~~~~~~~~
```
[R/odeint.R:62:7:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/odeint.R#L62) *style:* **Variable or function name should be snake_case.**
```r
      nOk <- nOk + 1
      ^~~
```
[R/odeint.R:64:7:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/odeint.R#L64) *style:* **Variable or function name should be snake_case.**
```r
      nBad <- nBad + 1
      ^~~~
```
[R/PerformBootstrapFits.R:18:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/PerformBootstrapFits.R#L18) *style:* **Variable or function name should be snake_case.**
```r
PerformBootstrapFits <- function(context, data, model)
^~~~~~~~~~~~~~~~~~~~
```
[R/PerformMainFit.R:23:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/PerformMainFit.R#L23) *style:* **Variable or function name should be snake_case.**
```r
PerformMainFit <- function(
^~~~~~~~~~~~~~
```
[R/PerformMainFit.R:26:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/PerformMainFit.R#L26) *style:* **Variable or function name should be snake_case.**
```r
  maxNoFit = 30,
  ^~~~~~~~
```
[R/PerformMainFit.R:34:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/PerformMainFit.R#L34) *style:* **Variable or function name should be snake_case.**
```r
  probSurv1996 <- GetProvSurv96(
  ^~~~~~~~~~~~
```
[R/PerformMainFit.R:44:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/PerformMainFit.R#L44) *style:* **Variable or function name should be snake_case.**
```r
  nParam <- param$NoDelta + param$NoTheta
  ^~~~~~
```
[R/PerformMainFit.R:45:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/PerformMainFit.R#L45) *style:* **Variable or function name should be snake_case.**
```r
  pParam <- rep(0, nParam)
  ^~~~~~
```
[R/PerformMainFit.R:49:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/PerformMainFit.R#L49) *style:* **Variable or function name should be snake_case.**
```r
  allResults <- list()
  ^~~~~~~~~~
```
[R/PerformMainFit.R:50:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/PerformMainFit.R#L50) *style:* **Variable or function name should be snake_case.**
```r
  llMin <- 1.0e+10
  ^~~~~
```
[R/PerformMainFit.R:54:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/PerformMainFit.R#L54) *style:* **Variable or function name should be snake_case.**
```r
  defNoCD4 <- 4
  ^~~~~~~~
```
[R/PerformMainFit.R:55:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/PerformMainFit.R#L55) *style:* **Variable or function name should be snake_case.**
```r
  iMax <- 5
  ^~~~
```
[R/PerformMainFit.R:56:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/PerformMainFit.R#L56) *style:* **Variable or function name should be snake_case.**
```r
  jMax <- 10
  ^~~~
```
[R/PerformMainFit.R:57:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/PerformMainFit.R#L57) *style:* **Variable or function name should be snake_case.**
```r
  startTime <- Sys.time()
  ^~~~~~~~~
```
[R/PerformMainFit.R:71:7:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/PerformMainFit.R#L71) *style:* **Variable or function name should be snake_case.**
```r
      thetaF <- rep((j + 1) * 10 ^ j, param$NoTheta)
      ^~~~~~
```
[R/PerformMainFit.R:79:9:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/PerformMainFit.R#L79) *style:* **Variable or function name should be snake_case.**
```r
        llMin <- ll
        ^~~~~
```
[R/PerformMainFit.R:80:9:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/PerformMainFit.R#L80) *style:* **Variable or function name should be snake_case.**
```r
        pParam <- p
        ^~~~~~
```
[R/PerformMainFit.R:93:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/PerformMainFit.R#L93) *style:* **Variable or function name should be snake_case.**
```r
  thetaF <- pParam[param$NoDelta + seq_len(param$NoTheta)]
  ^~~~~~
```
[R/PerformMainFit.R:96:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/PerformMainFit.R#L96) *style:* **Variable or function name should be snake_case.**
```r
  llOld <- 0
  ^~~~~
```
[R/PerformMainFit.R:104:5:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/PerformMainFit.R#L104) *style:* **Variable or function name should be snake_case.**
```r
    startTime <- Sys.time()
    ^~~~~~~~~
```
[R/PerformMainFit.R:113:5:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/PerformMainFit.R#L113) *style:* **Variable or function name should be snake_case.**
```r
    pParam <- res$P
    ^~~~~~
```
[R/PerformMainFit.R:115:5:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/PerformMainFit.R#L115) *style:* **Variable or function name should be snake_case.**
```r
    llOld <- allResults[[iter - 1]]$LLTotal
    ^~~~~
```
[R/RcppExports.R:4:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/RcppExports.R#L4) *style:* **Variable or function name should be snake_case.**
```r
GetBSpline_c <- function(time, param, info) {
^~~~~~~~~~~~
```
[R/RcppExports.R:8:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/RcppExports.R#L8) *style:* **Variable or function name should be snake_case.**
```r
GetDelta_c <- function(time, param) {
^~~~~~~~~~
```
[R/RcppExports.R:12:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/RcppExports.R#L12) *style:* **Variable or function name should be snake_case.**
```r
derivsFunc_c <- function(x, y, lambda, nVar, param) {
^~~~~~~~~~~~
```
[R/RcppExports.R:12:40:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/RcppExports.R#L12) *style:* **Variable or function name should be snake_case.**
```r
derivsFunc_c <- function(x, y, lambda, nVar, param) {
                                       ^~~~
```
[R/ReadInputData.R:16:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L16) *style:* **Variable or function name should be snake_case.**
```r
ReadInputData <- function(context)
^~~~~~~~~~~~~
```
[R/ReadInputData.R:19:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L19) *style:* **Variable or function name should be snake_case.**
```r
  Year <- NULL
  ^~~~
```
[R/ReadInputData.R:20:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L20) *style:* **Variable or function name should be snake_case.**
```r
  Count <- NULL
  ^~~~~
```
[R/ReadInputData.R:21:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L21) *style:* **Variable or function name should be snake_case.**
```r
  N_HIV <- NULL
  ^~~~~
```
[R/ReadInputData.R:22:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L22) *style:* **Variable or function name should be snake_case.**
```r
  N_HIV_Stage_1 <- NULL
  ^~~~~~~~~~~~~
```
[R/ReadInputData.R:23:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L23) *style:* **Variable or function name should be snake_case.**
```r
  N_HIV_Stage_2 <- NULL
  ^~~~~~~~~~~~~
```
[R/ReadInputData.R:24:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L24) *style:* **Variable or function name should be snake_case.**
```r
  N_HIV_Stage_3 <- NULL
  ^~~~~~~~~~~~~
```
[R/ReadInputData.R:25:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L25) *style:* **Variable or function name should be snake_case.**
```r
  N_HIV_Stage_4 <- NULL
  ^~~~~~~~~~~~~
```
[R/ReadInputData.R:26:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L26) *style:* **Variable or function name should be snake_case.**
```r
  N_HIV_Stage_5 <- NULL
  ^~~~~~~~~~~~~
```
[R/ReadInputData.R:27:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L27) *style:* **Variable or function name should be snake_case.**
```r
  N_AIDS <- NULL
  ^~~~~~
```
[R/ReadInputData.R:28:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L28) *style:* **Variable or function name should be snake_case.**
```r
  N_Dead <- NULL
  ^~~~~~
```
[R/ReadInputData.R:29:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L29) *style:* **Variable or function name should be snake_case.**
```r
  N_Inf <- NULL
  ^~~~~
```
[R/ReadInputData.R:30:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L30) *style:* **Variable or function name should be snake_case.**
```r
  N_Emig <- NULL
  ^~~~~~
```
[R/ReadInputData.R:31:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L31) *style:* **Variable or function name should be snake_case.**
```r
  N_Dead_U <- NULL
  ^~~~~~~~
```
[R/ReadInputData.R:32:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L32) *style:* **Variable or function name should be snake_case.**
```r
  `.` <- NULL
  ^~~
```
[R/ReadInputData.R:34:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L34) *style:* **Variable or function name should be snake_case.**
```r
  inputDataPath <- context$Settings$InputDataPath
  ^~~~~~~~~~~~~
```
[R/ReadInputData.R:36:5:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L36) *style:* **Variable or function name should be snake_case.**
```r
    fileNames <- list.files(inputDataPath, pattern = '.csv', full.names = TRUE,
    ^~~~~~~~~
```
[R/ReadInputData.R:38:5:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L38) *style:* **Variable or function name should be snake_case.**
```r
    inputData <- setNames(
    ^~~~~~~~~
```
[R/ReadInputData.R:43:5:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L43) *style:* **Variable or function name should be snake_case.**
```r
    inputData <- lapply(inputData, function(dataSet) {
    ^~~~~~~~~
```
[R/ReadInputData.R:43:45:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L43) *style:* **Variable or function name should be snake_case.**
```r
    inputData <- lapply(inputData, function(dataSet) {
                                            ^~~~~~~
```
[R/ReadInputData.R:52:5:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L52) *style:* **Variable or function name should be snake_case.**
```r
    inputData <- list()
    ^~~~~~~~~
```
[R/ReadInputData.R:74:29:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L74) *style:* **Variable or function name should be snake_case.**
```r
  data[inputData$HIV,       N_HIV         := Count, on = .(Year)]
                            ^~~~~
```
[R/ReadInputData.R:75:29:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L75) *style:* **Variable or function name should be snake_case.**
```r
  data[inputData$HIV_CD4_1, N_HIV_Stage_1 := Count, on = .(Year)]
                            ^~~~~~~~~~~~~
```
[R/ReadInputData.R:76:29:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L76) *style:* **Variable or function name should be snake_case.**
```r
  data[inputData$HIV_CD4_2, N_HIV_Stage_2 := Count, on = .(Year)]
                            ^~~~~~~~~~~~~
```
[R/ReadInputData.R:77:29:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L77) *style:* **Variable or function name should be snake_case.**
```r
  data[inputData$HIV_CD4_3, N_HIV_Stage_3 := Count, on = .(Year)]
                            ^~~~~~~~~~~~~
```
[R/ReadInputData.R:78:29:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L78) *style:* **Variable or function name should be snake_case.**
```r
  data[inputData$HIV_CD4_4, N_HIV_Stage_4 := Count, on = .(Year)]
                            ^~~~~~~~~~~~~
```
[R/ReadInputData.R:79:29:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L79) *style:* **Variable or function name should be snake_case.**
```r
  data[inputData$HIVAIDS,   N_HIV_Stage_5 := Count, on = .(Year)]
                            ^~~~~~~~~~~~~
```
[R/ReadInputData.R:80:29:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L80) *style:* **Variable or function name should be snake_case.**
```r
  data[inputData$AIDS,      N_AIDS        := Count, on = .(Year)]
                            ^~~~~~
```
[R/ReadInputData.R:81:29:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L81) *style:* **Variable or function name should be snake_case.**
```r
  data[inputData$Dead,      N_Dead        := Count, on = .(Year)]
                            ^~~~~~
```
[R/ReadInputData.R:84:27:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L84) *style:* **Variable or function name should be snake_case.**
```r
    data[inputData$`Inf`, N_Inf := Count, on = .(Year)]
                          ^~~~~
```
[R/ReadInputData.R:87:30:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L87) *style:* **Variable or function name should be snake_case.**
```r
    data[inputData$Dead_Und, N_Dead := Count, on = .(Year)]
                             ^~~~~~
```
[R/ReadInputData.R:90:36:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadInputData.R#L90) *style:* **Variable or function name should be snake_case.**
```r
    data[inputData$inputData$Emig, N_Emig := Count, on = .(Year)]
                                   ^~~~~~
```
[R/ReadModelFile.R:16:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/ReadModelFile.R#L16) *style:* **Variable or function name should be snake_case.**
```r
ReadModelFile <- function(context)
^~~~~~~~~~~~~
```
[R/rkck.R:10:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/rkck.R#L10) *style:* **Variable or function name should be snake_case.**
```r
  GetLambda
  ^~~~~~~~~
```
[R/rkck.R:81:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/rkck.R#L81) *style:* **Variable or function name should be snake_case.**
```r
  minLambda <- min(lambda2, lambda3, lambda4, lambda5, lambda6)
  ^~~~~~~~~
```
[R/rkqs.R:12:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/rkqs.R#L12) *style:* **Variable or function name should be snake_case.**
```r
  GetLambda
  ^~~~~~~~~
```
[R/rkqs.R:14:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/rkqs.R#L14) *style:* **Variable or function name should be snake_case.**
```r
  VERY_LRG <- 1e+10
  ^~~~~~~~
```
[R/rkqs.R:15:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/rkqs.R#L15) *style:* **Variable or function name should be snake_case.**
```r
  SAFETY <- 0.9
  ^~~~~~
```
[R/rkqs.R:16:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/rkqs.R#L16) *style:* **Variable or function name should be snake_case.**
```r
  PSHRNK <- -0.25
  ^~~~~~
```
[R/rkqs.R:17:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/rkqs.R#L17) *style:* **Variable or function name should be snake_case.**
```r
  ERRCON <- 1.89e-4
  ^~~~~~
```
[R/rkqs.R:18:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/rkqs.R#L18) *style:* **Variable or function name should be snake_case.**
```r
  PGROW <- -0.2
  ^~~~~
```
[R/rkqs.R:22:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/rkqs.R#L22) *style:* **Variable or function name should be snake_case.**
```r
  minLambda <- VERY_LRG
  ^~~~~~~~~
```
[R/rkqs.R:28:5:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/rkqs.R#L28) *style:* **Variable or function name should be snake_case.**
```r
    minLambda <- min(minLambda,
    ^~~~~~~~~
```
[R/rkqs.R:31:5:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/rkqs.R#L31) *style:* **Variable or function name should be snake_case.**
```r
    errMax <- max(abs(yerr / yscal), 0) / eps
    ^~~~~~
```
[R/rkqs.R:34:7:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/rkqs.R#L34) *style:* **Variable or function name should be snake_case.**
```r
      hTemp <- SAFETY * h * errMax ^ PSHRNK
      ^~~~~
```
[R/rkqs.R:38:7:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/rkqs.R#L38) *style:* **Variable or function name should be snake_case.**
```r
      hNext <- ifelse(errMax > ERRCON, SAFETY * h * errMax ^ PGROW, 5 * h)
      ^~~~~
```
[R/rkqs.R:39:7:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/rkqs.R#L39) *style:* **Variable or function name should be snake_case.**
```r
      hDid <- h
      ^~~~
```
[R/RunIncidenceModel.R:16:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/RunIncidenceModel.R#L16) *style:* **Variable or function name should be snake_case.**
```r
RunIncidenceModel <- function(...)
^~~~~~~~~~~~~~~~~
```
[R/RunModels.R:7:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/RunModels.R#L7) *style:* **Lines should not be more than 80 characters.**
```r
#' @param executionPlan Execution plan for the job planner (see package \pkg{future}).
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RunModels.R:17:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/RunModels.R#L17) *style:* **Variable or function name should be snake_case.**
```r
RunModels <- function(
^~~~~~~~~
```
[R/RunModels.R:18:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/RunModels.R#L18) *style:* **Variable or function name should be snake_case.**
```r
  argsList = NULL,
  ^~~~~~~~
```
[R/RunModels.R:19:3:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/RunModels.R#L19) *style:* **Variable or function name should be snake_case.**
```r
  executionPlan = future::sequential
  ^~~~~~~~~~~~~
```
[R/Sign.R:1:1:](https://github.com/nextpagesoft/hivModelling/blob/61ceb4dc6b2ddf28db02aeb30b278eb7fc473182/R/Sign.R#L1) *style:* **Variable or function name should be snake_case.**
```r
Sign <- function(a, b)
^~~~
```


@callzhang do you know by any chance why the test that you've originally created doesn't pass? You can see the problem on branch https://github.com/magicalpanda/MagicalRecord/compare/hotfix/testChainSave


Maybe you could cook something up that takes `metallic` into consideration and blends "smoothly" between fresnel for conductor and dielectric?

https://seblagarde.wordpress.com/2013/04/29/memo-on-fresnel-equations/


Why do we need this additional dependency on Windows in Core package?


여기에 .gitignore랑 .vscode도 같이 추가해서 .gitignore를 감췄으면 하는데 어떻게 생각하시나요


you can initialize that field here