Старые файлы данных шар не удалялись и поэтому в основной папке хранился очень большой кусок цепи. Из-за этого открытие всех этих фалов одновременно в какой-то момент приводило к ошибке одновременного открытия слишком большого количества файлов.


Successfully deployed to following URLs:

* https://github-e2e-tests-dev-alias-v2-with-alias-5gq8fv8wg.now.sh
* https://z-github-e2e-tests-dev-alias-v2-with-alias.now.sh
* https://github-e2e-tests-dev-alias-v2-with-alias.zeit-github-test-dev1.now.sh
* https://github-e2e-tests-dev-alias-v2-with-alias-git-master.zeit-github-test-dev1.now.sh


Successfully deployed to following URLs:

* https://github-e2e-tests-dev-alias-v1-with-alias-quczydufox.now.sh
* https://z-github-e2e-tests-dev-only.now.sh


模拟：develop测试通过


@JuliaRegistrator register


Registration pull request updated: [JuliaRegistries/General/5975](https://github.com/JuliaRegistries/General/pull/5975)

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>" 8dc4d996cd2c002193a19b383bd7f377edad4e97
git push origin v0.3.0
```


Successfully deployed to following URLs:

* https://mcs-new-version-r4x0lifq7.now.sh
* https://mcs-new-version.m-c-s.now.sh
* https://mcs-new-version-git-master.m-c-s.now.sh


Try bolding a word.


谢谢大佬，已经ok了 components  万岁


Successfully deployed to following URLs:

* https://ecommerce-rencdeaof.now.sh
* https://ecommerce-chi-rosy.now.sh
* https://ecommerce.siddhantgoswami.now.sh
* https://ecommerce-git-master.siddhantgoswami.now.sh


Successfully deployed to following URLs:

* https://mcs-new-version-ldqa0ise2.now.sh
* https://mcs-new-version.m-c-s.now.sh
* https://mcs-new-version-git-master.m-c-s.now.sh


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`

{this-is-not-json}

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


This


Successfully deployed to following URLs:

* https://github-e2e-tests-dev-alias-v2-without-alias-9rw24m18k.now.sh
* https://github-e2e-tests-dev-alias-v2-without-alias.zeit-github-test-dev1.now.sh
* https://github-e2e-tests-dev-alias-v2-without-alias-git-master.zeit-github-test-dev1.now.sh


Successfully deployed to following URLs:

* https://github-e2e-tests-dev-alias-v2-with-alias-f0yra06dc.now.sh
* https://z-github-e2e-tests-dev-alias-v2-with-alias.now.sh
* https://github-e2e-tests-dev-alias-v2-with-alias.zeit-github-test-dev1.now.sh
* https://github-e2e-tests-dev-alias-v2-with-alias-git-master.zeit-github-test-dev1.now.sh


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):
~~~


Successfully deployed to following URLs:

* https://github-e2e-tests-dev-alias-v1-with-alias-reldibigfn.now.sh
* https://z-github-e2e-tests-dev-only.now.sh


Successfully deployed to following URLs:

* https://ccc-henq6snd3.now.sh
* https://ccc.zeit-github-test-dev1.now.sh
* https://ccc-git-master.zeit-github-test-dev1.now.sh


Successfully deployed to following URLs:

* https://web-dvv0esw2m.now.sh
* https://web-seven-nu.now.sh
* https://web.jblancogl1.now.sh
* https://web-git-master.jblancogl1.now.sh


No, this is a bug - `BPL_ERR_UNKNOWN` has to be 1 and `BPL_ERR_OPERATION_NOT_SUPPORTED` has to be 2


黄培展 2019011240
x <- matrix(c(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,25,20,6,1001,525,825,120,28,7,532,75,40,187,122,74,3547.49,896.34,750.32,2087.05,1639.31,3357.70,808.47,520.27,671.13,2863.32,1160.00,862.75,672.99,901.76,3546.18),15,3)
x
y <- c(553.96,208.55,3.10,2815.40,1052.12,3427.00,442.82,70.12,122.24,1400.00,464.00,7.50,224.18,538.94,2442.79)
y
xT <- t(x)
xT
xTx <- xT%*%x
library(MASS)
xTxsolve <- ginv(xTx) #求XTX的逆矩阵
xTxsolve
H<-x%*%xTxsolve%*%xT
hii <- numeric(15)
for(i in 1:15){
hii[i]<-H[i,i]
}
hii   #求得hii
number <- x[,2]
principal <- x[,3]
data <- data.frame(y,number,principal)
y.lm <- lm(y~number+principal,data=data)
e <- residuals(y.lm)
e
fit <- fitted(y.lm)
fit
sigma.estimate <- sqrt(sum(e^2)/12)
SRE <- e/sigma.estimate/sqrt(1-hii)
SRE.i <- SRE*sqrt(11/(12-SRE^2))
SRE.i#计算删除学生化残差
D=e^2*hii/3/sigma.estimate^2/(1-hii)^2
D#计算库克距离
ei <- e/(1-hii)
chii <- hii-1/15
result <- data.frame(number,principal,y,e,SRE,ei,SRE.i,chii,D)
result


NO consigo que se queden guardados el reduced name y el name de la nota, cuando se generan las notas


Eliminada.


oh cool ty


Isn't it missing the `apiVersion: 2` flag?


not OK, it is a bug, we rely on these to be 1 and 2 (I know it is ugly but that's how it is at the moment, we didn't change all of BPL to use the enum values). In any case the most trivial error codes should come first.


1.스피너 - 콤보박스


Successfully deployed to following URLs:

* https://mcs-new-version-5exy78rka.now.sh
* https://mcs-new-version.m-c-s.now.sh
* https://mcs-new-version-git-master.m-c-s.now.sh


Deployment failed with the following error:

~~~
The property `user` is not allowed in now.json when using Now 2.0 – please remove it.
~~~


Checkmarx scan results 28 Nov 2019 13:54 UTC +02:00

High
Medium
Low
Info

New
0
0
0
0

Recurrent
0
0
0
0

Fixed
0
0
0
0

 Open Viewer
Included commits

Commit ID	Owner

1e71c4b085217e0cab2013734fb62a6c80309419	@web-flow


> I'm wondering about this patch and I'm interested to know how you have been through this use case.

I got a file (I don't remember which one... but IIUC the sample provided has this issue too) with out of order values so I have to reorder before comparing, I just divide the chromaticity diagram in 3 arbitrary parts (more Red, more Green, more Blue) and assign a color to each of the 3 values (Blue if x and y are both less than 35%, else Green if  y > x, else Red; again, it is arbitrary but the 35% number is based on the white point location, and it works pretty well for all the know standards) before trying to match with a know color primaries standard.


2019011242   宋义都
library(MASS)
x1 <- c(25,20,6,1001,525,825,120,28,7,532,75,40,187,122,74)
x2 <- c(3547.79,896.34,750.32,2087.05,1639.31,3357.70,808.47,520.27,671.13,2863.32,1160.00,862.75,672.99,901.76,3546.18)
y <- c(553.96,208.55,3.10,2815.40,1052.12,3427.00,442.82,70.12,122.24,1400.00,464.00,7.50,224.18,538.94,2422.79)
#创建数据表格
mydata <- data.frame(x1,x2,y)
#y对x1,x2建立二元回归
huigui <- lm(y~x1+x2,data=mydata)
#查看回归的信息  其中Residual standard error: 472.4
summary(huigui)    #查看回归的信息  其中Residual standard error: 472.4
#调用回归系数计算残差
e <- y-(huigui$coefficients[1]+huigui$coefficients[2]*x1+huigui$coefficients[3]*x2)
#计算杠杆值
hii <-  hatvalues(huigui)
#计算删除残差
e1 <- e/(1-hii)
#学生化残差,发现所有的|SRE1|<3，根据学生化残差诊断认为数据不存在异常值
SRE1 <- e/(472.4*sqrt(1-hii))
#采用删除学生化残差方法(n=15,p=2)
SRE2 <- SRE1*sqrt((15-2-2)/(15-2-1-SRE1^2))
#得出SRE2[1]=-3.02  SRE2[15]=3.76  判定第1和15个数据是异常值
#计算中心化杠杆值
chii <- hii-1/15
#接下来用库克距离来判断,计算库克距离
Di <- cook_dist <- (e^2*hii)/((2+1)*472.4^2*(1-hii)^2)
#根据库克距离 D1=1.436>1 D15=1.537>1  认为1和15是异常值点
#作出最终表格
DATA <- data.frame(x1,x2,y,e,ei=e1,SRE=SRE1,SREi=SRE2,chii,Di)
DATA


Anonymous


Successfully deployed to following URLs:

* https://mcs-new-version-l8kxtusps.now.sh
* https://mcs-new-version.m-c-s.now.sh
* https://mcs-new-version-git-master.m-c-s.now.sh


@chandrakanthjava done with the suggested changes.


Successfully deployed to following URLs:

* https://zackkridacom-bf2nlrx80.now.sh
* https://zackkrida.com
* https://zackkridacom.zackkrida.now.sh
* https://zackkridacom-git-master.zackkrida.now.sh


Deployment failed with the following error:

~~~
Your `package.json` file is missing a `build` property inside the `script` property.
~~~


# 2019011266 孔祥源

# page120作业

# 线性模型
x1 <- c(25,20,6,1001,525,825,120,28,7,532,75,40,187,122,74)
x2 <- c(3547.79,896.34,750.32,2087.05,1639.31,3357.70,808.47,520.27,671.13,2863.32,1160.00,862.75,672.99,901.76,3546.18)
y <- c(553.96,208.55,3.10,2815.40,1052.12,3427.00,442.82,70.12,122.24,1400.00,464.00,7.50,224.18,538.94,2442.79)
model1 <- lm(y~x1+x2)
alf <- model1$coefficients[1]
beta1 <- model1$coefficients[2]
beta2 <- model1$coefficients[3]

# 普通残差
ei <- y-alf-beta1*x1-beta2*x2

# 利用帽子矩阵求杠杆值
x0 <- c(rep(1,15))
mat1 <- matrix(c(x0,x1,x2),15,3)
hat1 <- mat1%*%solve((t(mat1)%*%mat1))%*%t(mat1)
hii <- diag(hat1)
sigma <- summary(model1)[6]$sigma

# 学生化残差
srei <- ei/(sigma*(1-hii)^0.5)

# 删除残差
ei_d <- ei/(1-hii)

# 删除学生化残差
srei_d <- srei*((15-2-2)/(15-2-1-srei^2))^0.5

# 中心化杠杆值
chii <- hii-1/15

# 库克距离
di <- ei^2*hii/((2+1)*(sigma^2)*(1-hii)^2)


Successfully deployed to following URLs:

* https://mcs-new-version-36jc6zszi.now.sh
* https://mcs-new-version.m-c-s.now.sh
* https://mcs-new-version-git-master.m-c-s.now.sh


:white_check_mark: All Rules (3 / 3) Passed

      :crown: Good job! this pull request is aligned with your organization's best practices!

      :point_right: You can review your rules settings at smart policy management :point_left:

:point_right: click here to view a full list of the events :point_left:


这是第二次更新的东西


but how do you know it was out of order values ?


dims can be inferred from pad, stride etc, so it can be omitted.


Successfully deployed to following URLs:

* https://zackkridacom-99v9gbzd6.now.sh
* https://zackkrida.com
* https://zackkridacom.zackkrida.now.sh
* https://zackkridacom-git-master.zackkrida.now.sh


Hasan Basri ALTUNAY


We can define `loc` and `curr` as local variables without the `it` struct.


remove dims


Ok a little more info but I don't know what to do know...
All on latest dev branch WITH this commit acitve...
Here is the log of one advertisement received with "active: false":
```
[12:55:45][VV][esp32_ble_tracker:287]: Parse Result:
[12:55:45][VV][esp32_ble_tracker:304]:   Address: 58:2D:34:34:81:A8 (PUBLIC)
[12:55:45][VV][esp32_ble_tracker:306]:   RSSI: -67
[12:55:45][VV][esp32_ble_tracker:307]:   Name: ''
[12:55:45][VV][esp32_ble_tracker:315]:   Ad Flag: 6
[12:55:45][VV][esp32_ble_tracker:320]:   Manufacturer data: (0)
[12:55:46][VV][esp32_ble_tracker:321]:   Service data: 50.20.AA.01.F7.A8.81.34.34.2D.58.0D.10.04.D1.00.28.02 (18)
[12:55:46][VV][esp32_ble_tracker:324]:   Service Data UUID: FE:FE95
[12:55:46][VV][esp32_ble_tracker:330]: Adv data: 02.01.06.15.16.95.FE.50.20.AA.01.F7.A8.81.34.34.2D.58.0D.10.04.D1.00.28.02 (25)
[12:55:46][D][xiaomi_ble:158]: Got Xiaomi LYWSDCGQ (58:2D:34:34:81:A8):
[12:55:46][D][xiaomi_ble:161]:   Temperature: 20.9°C
[12:55:46][D][xiaomi_ble:164]:   Humidity: 55.2%
```
And this log is with "active: true"
```
[12:57:38][VV][esp32_ble_tracker:287]: Parse Result:
[12:57:38][VV][esp32_ble_tracker:304]:   Address: 58:2D:34:34:81:A8 (PUBLIC)
[12:57:38][VV][esp32_ble_tracker:306]:   RSSI: -77
[12:57:38][VV][esp32_ble_tracker:307]:   Name: 'MJ_HT_V1'
[12:57:38][VV][esp32_ble_tracker:315]:   Ad Flag: 6
[12:57:38][VV][esp32_ble_tracker:318]:   Service UUID: 18:180F
[12:57:38][VV][esp32_ble_tracker:318]:   Service UUID: 18:180A
[12:57:38][VV][esp32_ble_tracker:320]:   Manufacturer data: (0)
[12:57:38][VV][esp32_ble_tracker:321]:   Service data: FA.12.92.70.51.27 (6)
[12:57:38][VV][esp32_ble_tracker:324]:   Service Data UUID: FF:FFFF
[12:57:38][VV][esp32_ble_tracker:330]: Adv data: 02.01.06.15.16.95.FE.50.20.AA.01.2F.A8.81.34.34.2D.58.0D.10.04.DE.00.41.02.09.09.4D.4A.5F.48.54.5F.56.31.05.03.0F.18.0A.18.09.16.FF.FF.FA.12.92.70.51.27 (51)
```

Any ideas?


Successfully deployed to following URLs:

* https://vgweb-cj5xecne1.now.sh
* https://vgweb.now.sh
* https://vgweb.evenspompe.now.sh
* https://vgweb-git-master.evenspompe.now.sh


`asd`


@JuliaRegistrator register


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

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.1.1 -m "<description of version>" a164eb4b103b7c7d3d33e870019b24d162a2482e
git push origin v0.1.1
```


Hi Gzer,

How are things progressing with the code did you manage to have a look and
get something set up?

Really look forward to seeing the auto level work!

Regards

On Monday, November 25, 2019, GZer <notifications@github.com> wrote:

> Hi Gzer,
>
> I'm looking to set up a reset team using your autobuild but I cant work it
> out at all?
>
> I'm happy to ping some coins your way if you can put some time aside help
> me set it up / talk me through it?
>
> thanks
>
> I will try and get back into coding this tonight and let you know. Are you
> on some form of voice chat and do you speak english?
>
> —
> You are receiving this because you commented.
> Reply to this email directly, view it on GitHub
> <https://github.com/GZer/MyKolbot/commit/07859cc4357178a1976ee60d9a13b536c415ecdd?email_source=notifications&email_token=AN3MGANI23HEPJVYGCVLEYTQVQTUVA5CNFSM4JQ23DO2YY3PNVWWK3TUL52HS4DFVVBW63LNNF2EG33NNVSW45FKMNXW23LFNZ2F62LEZYBCOP4O#commitcomment-36126606>,
> or unsubscribe
> <https://github.com/notifications/unsubscribe-auth/AN3MGAMWGJJ62OQNGDJQJILQVQTUVANCNFSM4JQ23DOQ>
> .
>


> but how do you know it was out of order values ?

I don't, I reorder in any case, reordered values are just same as source values if order is the right one.


Successfully deployed to following URLs:

* https://cviceni-test-5bn3beogm.now.sh
* https://cviceni-test.historylab.now.sh
* https://cviceni-test-git-master.historylab.now.sh


Deployment failed with the following error:

~~~
Failed to validate now.json: Invalid request: builds[0] should have required property 'use'
~~~


remove 3


[R/download_classes.R:32:1:](https://github.com/russHyde/miiq/blob/0ba165391611767d30b063bde8f6f80284f8ffdc/R/download_classes.R#L32) *style:* **functions should have cyclomatic complexity of less than 15, this has 27.**
```r
.check_marray_dl_config <- function(
^
```
[R/list_manipulation.R:24:1:](https://github.com/russHyde/miiq/blob/0ba165391611767d30b063bde8f6f80284f8ffdc/R/list_manipulation.R#L24) *style:* **functions should have cyclomatic complexity of less than 15, this has 18.**
```r
get_or_else <- function(
^
```
[R/microarray_classes.R:201:1:](https://github.com/russHyde/miiq/blob/0ba165391611767d30b063bde8f6f80284f8ffdc/R/microarray_classes.R#L201) *style:* **Variable and function name style should be snake_case or CamelCase.**
```r
gld_fnBuilder_exptDesign <- function(
^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/microarray_classes.R:202:38:](https://github.com/russHyde/miiq/blob/0ba165391611767d30b063bde8f6f80284f8ffdc/R/microarray_classes.R#L202) *style:* **Variable and function name style should be snake_case or CamelCase.**
```r
                                     treatment.cols = NULL,
                                     ^~~~~~~~~~~~~~
```
[R/microarray_classes.R:203:38:](https://github.com/russHyde/miiq/blob/0ba165391611767d30b063bde8f6f80284f8ffdc/R/microarray_classes.R#L203) *style:* **Variable and function name style should be snake_case or CamelCase.**
```r
                                     design.fn = NULL) {
                                     ^~~~~~~~~
```
[R/microarray_classes.R:266:1:](https://github.com/russHyde/miiq/blob/0ba165391611767d30b063bde8f6f80284f8ffdc/R/microarray_classes.R#L266) *style:* **Variable and function name style should be snake_case or CamelCase.**
```r
gld_fnDefault_exptDesign <- gld_fnBuilder_exptDesign(
^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/microarray_classes.R:291:1:](https://github.com/russHyde/miiq/blob/0ba165391611767d30b063bde8f6f80284f8ffdc/R/microarray_classes.R#L291) *style:* **Variable and function name style should be snake_case or CamelCase.**
```r
gld_fnDefault_esetAnnotation <- function(
^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/microarray_classes.R:334:1:](https://github.com/russHyde/miiq/blob/0ba165391611767d30b063bde8f6f80284f8ffdc/R/microarray_classes.R#L334) *style:* **Variable and function name style should be snake_case or CamelCase.**
```r
gld_fnDefault_transformAndProbeFilter <- function(
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/microarray_functions.R:323:37:](https://github.com/russHyde/miiq/blob/0ba165391611767d30b063bde8f6f80284f8ffdc/R/microarray_functions.R#L323) *style:* **Variable and function name style should be snake_case or CamelCase.**
```r
                                    entrezgene.db) {
                                    ^~~~~~~~~~~~~
```
[R/microarray_functions.R:437:30:](https://github.com/russHyde/miiq/blob/0ba165391611767d30b063bde8f6f80284f8ffdc/R/microarray_functions.R#L437) *style:* **Variable and function name style should be snake_case or CamelCase.**
```r
    Biobase::featureData(es)$entrez.id <- es_entrez_id
                             ^~~~~~~~~
```
[R/preprocess_functions.R:19:30:](https://github.com/russHyde/miiq/blob/0ba165391611767d30b063bde8f6f80284f8ffdc/R/preprocess_functions.R#L19) *style:* **Variable and function name style should be snake_case or CamelCase.**
```r
  Biobase::featureData(gset)$entrez.id <- split_and_join(
                             ^~~~~~~~~
```
[tests/testthat/test-filter_functions.R:126:31:](https://github.com/russHyde/miiq/blob/0ba165391611767d30b063bde8f6f80284f8ffdc/tests/testthat/test-filter_functions.R#L126) *style:* **Variable and function name style should be snake_case or CamelCase.**
```r
  Biobase::fData(eset_entrez)$entrez.id <- c(NA, "", "12345", "12345///786")
                              ^~~~~~~~~
```


remove 2


Successfully deployed to following URLs:

* https://cloud-architecture-pg316u4tk.now.sh
* https://cloud-architecture-serverless-id.now.sh
* https://cloud-architecture.serverless.id
* https://talk.clasense4.now.sh
* https://talk.serverless.id
* https://cloud-architecture.clasense4.now.sh
* https://cloud-architecture-git-master.clasense4.now.sh


Спасибо,  что сделали коммит. Обычно их много :)


<img width="1431" alt="Screen Shot 2019-11-28 at 12 02 23" src="https://user-images.githubusercontent.com/32708814/69805002-a4475300-11d7-11ea-9bbf-595ebfc75c41.png">


pass by reference


Очень сложно смотреть код тогда


Successfully deployed to following URLs:

* https://convertmymoney-rlxealrga.now.sh
* https://convertmymoney-plum-kappa.now.sh
* https://convertmymoney.rafaelsdias.now.sh
* https://convertmymoney-git-master.rafaelsdias.now.sh


const


pass pad by std::vector and use pad.begin() and pad.end()


remove 4 and pass by reference


test 22222


Successfully deployed to following URLs:

* https://docspyvecorg-hfmuzhdmc.now.sh
* https://docspyvecorg.pyvec.now.sh
* https://docspyvecorg-git-master.pyvec.now.sh


Стили лучше выносить, но думаю это тут не критично :)


[R/download_classes.R:32:1:](https://github.com/russHyde/miiq/blob/bb90b438afd0b5cd1cd934ec4b290008b6808194/R/download_classes.R#L32) *style:* **functions should have cyclomatic complexity of less than 15, this has 27.**
```r
.check_marray_dl_config <- function(
^
```
[R/list_manipulation.R:24:1:](https://github.com/russHyde/miiq/blob/bb90b438afd0b5cd1cd934ec4b290008b6808194/R/list_manipulation.R#L24) *style:* **functions should have cyclomatic complexity of less than 15, this has 18.**
```r
get_or_else <- function(
^
```
[R/microarray_classes.R:201:1:](https://github.com/russHyde/miiq/blob/bb90b438afd0b5cd1cd934ec4b290008b6808194/R/microarray_classes.R#L201) *style:* **Variable and function name style should be snake_case or CamelCase.**
```r
gld_fnBuilder_exptDesign <- function(
^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/microarray_classes.R:202:38:](https://github.com/russHyde/miiq/blob/bb90b438afd0b5cd1cd934ec4b290008b6808194/R/microarray_classes.R#L202) *style:* **Variable and function name style should be snake_case or CamelCase.**
```r
                                     treatment.cols = NULL,
                                     ^~~~~~~~~~~~~~
```
[R/microarray_classes.R:203:38:](https://github.com/russHyde/miiq/blob/bb90b438afd0b5cd1cd934ec4b290008b6808194/R/microarray_classes.R#L203) *style:* **Variable and function name style should be snake_case or CamelCase.**
```r
                                     design.fn = NULL) {
                                     ^~~~~~~~~
```
[R/microarray_classes.R:266:1:](https://github.com/russHyde/miiq/blob/bb90b438afd0b5cd1cd934ec4b290008b6808194/R/microarray_classes.R#L266) *style:* **Variable and function name style should be snake_case or CamelCase.**
```r
gld_fnDefault_exptDesign <- gld_fnBuilder_exptDesign(
^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/microarray_classes.R:291:1:](https://github.com/russHyde/miiq/blob/bb90b438afd0b5cd1cd934ec4b290008b6808194/R/microarray_classes.R#L291) *style:* **Variable and function name style should be snake_case or CamelCase.**
```r
gld_fnDefault_esetAnnotation <- function(
^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/microarray_classes.R:334:1:](https://github.com/russHyde/miiq/blob/bb90b438afd0b5cd1cd934ec4b290008b6808194/R/microarray_classes.R#L334) *style:* **Variable and function name style should be snake_case or CamelCase.**
```r
gld_fnDefault_transformAndProbeFilter <- function(
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/microarray_functions.R:323:37:](https://github.com/russHyde/miiq/blob/bb90b438afd0b5cd1cd934ec4b290008b6808194/R/microarray_functions.R#L323) *style:* **Variable and function name style should be snake_case or CamelCase.**
```r
                                    entrezgene.db) {
                                    ^~~~~~~~~~~~~
```
[R/microarray_functions.R:437:30:](https://github.com/russHyde/miiq/blob/bb90b438afd0b5cd1cd934ec4b290008b6808194/R/microarray_functions.R#L437) *style:* **Variable and function name style should be snake_case or CamelCase.**
```r
    Biobase::featureData(es)$entrez.id <- es_entrez_id
                             ^~~~~~~~~
```
[R/preprocess_functions.R:19:30:](https://github.com/russHyde/miiq/blob/bb90b438afd0b5cd1cd934ec4b290008b6808194/R/preprocess_functions.R#L19) *style:* **Variable and function name style should be snake_case or CamelCase.**
```r
  Biobase::featureData(gset)$entrez.id <- split_and_join(
                             ^~~~~~~~~
```
[tests/testthat/test-filter_functions.R:126:31:](https://github.com/russHyde/miiq/blob/bb90b438afd0b5cd1cd934ec4b290008b6808194/tests/testthat/test-filter_functions.R#L126) *style:* **Variable and function name style should be snake_case or CamelCase.**
```r
  Biobase::fData(eset_entrez)$entrez.id <- c(NA, "", "12345", "12345///786")
                              ^~~~~~~~~
```


remove 2 and pass pad_v, stride_v by reference


const PORT = 8080
Костанты аппер кейсом лучше


I think we need PHP 5.5. for the password hashing, but can't remember if it's enforced or not. We're planning on phasing out PHPass if we can.


remove 2 and pass pad_v etc by reference


Successfully deployed to following URLs:

* https://countdown-front-f80tjkjkg.now.sh
* https://countdownwow.com
* https://countdown-front.andrewcodes404.now.sh
* https://countdown-front-git-master.andrewcodes404.now.sh


Successfully deployed to following URLs:

* https://verticalize-demo-nextjs-lcqysj5go.now.sh
* https://verticalize-demo-nextjs.now.sh
* https://verticalize-demo-nextjs.fgrandel.now.sh
* https://verticalize-demo-nextjs-git-master.fgrandel.now.sh


[R/calc_K.R:2:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calc_K.R#L2) *style:* **Lines should not be more than 80 characters.**
```r
#' @description Calculate the average number of junctions after an infinite number of generations, provided information on the initial heterozygosity, population size and the number of generations.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/calc_K.R:6:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calc_K.R#L6) *style:* **Lines should not be more than 80 characters.**
```r
#' @param C Mean number of crossovers per meiosis (e.g. size in Morgan of the chromosome)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/calc_K.R:11:20:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calc_K.R#L11) *style:* **Variable and function name style should be snake_case.**
```r
calc_k <- function(N = Inf,
                   ^
```
[R/calc_K.R:12:20:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calc_K.R#L12) *style:* **Variable and function name style should be snake_case.**
```r
                   R = Inf,
                   ^
```
[R/calc_K.R:13:20:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calc_K.R#L13) *style:* **Variable and function name style should be snake_case.**
```r
                   H_0 = 0.5,
                   ^~~
```
[R/calc_K.R:14:20:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calc_K.R#L14) *style:* **Variable and function name style should be snake_case.**
```r
                   C = 1) {
                   ^
```
[R/calc_K.R:16:3:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calc_K.R#L16) *style:* **Variable and function name style should be snake_case.**
```r
  K <- H_0 * C * 2 * N * R / (2 * N * C + R)
  ^
```
[R/calc_K.R:19:5:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calc_K.R#L19) *style:* **Variable and function name style should be snake_case.**
```r
    K <- H_0 * R
    ^
```
[R/calc_K.R:23:5:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calc_K.R#L23) *style:* **Variable and function name style should be snake_case.**
```r
    K <- H_0 * C * 2 * N
    ^
```
[R/calc_K.R:27:5:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calc_K.R#L27) *style:* **Variable and function name style should be snake_case.**
```r
    K <- Inf
    ^
```
[R/calculate_error.R:2:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calculate_error.R#L2) *style:* **Lines should not be more than 80 characters.**
```r
#' @description Calculate the error in the estimate of the onset of hybridisation, following Equations 3 & 4 in the Supplementary information of Janzen et al. 2018.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/calculate_error.R:7:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calculate_error.R#L7) *style:* **Lines should not be more than 80 characters.**
```r
#' @param C Mean number of crossovers per meiosis (e.g. size in Morgan of the chromosome)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/calculate_error.R:9:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calculate_error.R#L9) *style:* **Lines should not be more than 80 characters.**
```r
#' @param relative Boolean flag, if TRUE: return the relative error, if FALSE: return error in generations
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/calculate_error.R:15:24:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calculate_error.R#L15) *style:* **Variable and function name style should be snake_case.**
```r
time_error <- function(J = NA,
                       ^
```
[R/calculate_error.R:16:24:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calculate_error.R#L16) *style:* **Variable and function name style should be snake_case.**
```r
                       N = Inf,
                       ^
```
[R/calculate_error.R:17:24:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calculate_error.R#L17) *style:* **Variable and function name style should be snake_case.**
```r
                       R = Inf,
                       ^
```
[R/calculate_error.R:18:24:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calculate_error.R#L18) *style:* **Variable and function name style should be snake_case.**
```r
                       H_0 = 0.5,
                       ^~~
```
[R/calculate_error.R:19:24:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calculate_error.R#L19) *style:* **Variable and function name style should be snake_case.**
```r
                       C = 1,
                       ^
```
[R/calculate_error.R:24:3:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calculate_error.R#L24) *style:* **Variable and function name style should be snake_case.**
```r
  K <- junctions::calc_k(N, R, H_0, C)
  ^
```
[R/calculate_error.R:30:7:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calculate_error.R#L30) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  if ( relative) return(  error)
      ^
```
[R/calculate_error.R:30:25:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calculate_error.R#L30) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  if ( relative) return(  error)
                        ^
```
[R/calculate_MAT.R:2:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calculate_MAT.R#L2) *style:* **Lines should not be more than 80 characters.**
```r
#' @description Function that calculates the maximum time after hybridization after which the number of junctions can still be reliably used to estimate the onset of hybridization. This is following equation 15 in Janzen et al. 2018.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/calculate_MAT.R:6:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calculate_MAT.R#L6) *style:* **Lines should not be more than 80 characters.**
```r
#' @param C Mean number of crossovers per meiosis (e.g. size in Morgan of the chromosome)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/calculate_MAT.R:12:27:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calculate_MAT.R#L12) *style:* **Variable and function name style should be snake_case.**
```r
calculate_mat <- function(N = Inf,
                          ^
```
[R/calculate_MAT.R:13:27:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calculate_MAT.R#L13) *style:* **Variable and function name style should be snake_case.**
```r
                          R = Inf,
                          ^
```
[R/calculate_MAT.R:14:27:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calculate_MAT.R#L14) *style:* **Variable and function name style should be snake_case.**
```r
                          H_0 = 0.5,
                          ^~~
```
[R/calculate_MAT.R:15:27:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calculate_MAT.R#L15) *style:* **Variable and function name style should be snake_case.**
```r
                          C = 1) {
                          ^
```
[R/calculate_MAT.R:20:3:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calculate_MAT.R#L20) *style:* **Variable and function name style should be snake_case.**
```r
  K <- junctions::calc_k(N, R, H_0, C)
  ^
```
[R/calculate_time.R:1:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calculate_time.R#L1) *style:* **Lines should not be more than 80 characters.**
```r
#' Estimate the time since the onset of hybridization, using the number of junctions
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/calculate_time.R:2:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calculate_time.R#L2) *style:* **Lines should not be more than 80 characters.**
```r
#' @description Estimate the time since the onset of hybridization, following equation 14 in Janzen et al. 2018
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/calculate_time.R:7:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calculate_time.R#L7) *style:* **Lines should not be more than 80 characters.**
```r
#' @param C Mean number of crossovers per meiosis (e.g. size in Morgan of the chromosome)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/calculate_time.R:11:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calculate_time.R#L11) *style:* **Lines should not be more than 80 characters.**
```r
#' estimate_time(J = J, N = 100, R = 1000, H_0 = 0.5, C = 1)  # should be 200 again
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/calculate_time.R:13:27:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calculate_time.R#L13) *style:* **Variable and function name style should be snake_case.**
```r
estimate_time <- function(J = NA,
                          ^
```
[R/calculate_time.R:14:27:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calculate_time.R#L14) *style:* **Variable and function name style should be snake_case.**
```r
                          N = Inf,
                          ^
```
[R/calculate_time.R:15:27:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calculate_time.R#L15) *style:* **Variable and function name style should be snake_case.**
```r
                          R = Inf,
                          ^
```
[R/calculate_time.R:16:27:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calculate_time.R#L16) *style:* **Variable and function name style should be snake_case.**
```r
                          H_0 = 0.5,
                          ^~~
```
[R/calculate_time.R:17:27:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calculate_time.R#L17) *style:* **Variable and function name style should be snake_case.**
```r
                          C = 1) {
                          ^
```
[R/calculate_time.R:28:3:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/calculate_time.R#L28) *style:* **Variable and function name style should be snake_case.**
```r
  K <- junctions::calc_k(N, R, H_0, C)
  ^
```
[R/estimate_time_markers.R:1:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_markers.R#L1) *style:* **Lines should not be more than 80 characters.**
```r
#' Estimate the time since the onset of hybridization, using the observed number of junctions, taking into account the distribution of markers
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/estimate_time_markers.R:2:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_markers.R#L2) *style:* **Lines should not be more than 80 characters.**
```r
#' @description Estimate the time since the onset of hybridization, following equation 1 in Janzen et al. unpublished
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/estimate_time_markers.R:6:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_markers.R#L6) *style:* **Lines should not be more than 80 characters.**
```r
#' @param marker_distribution A vector containing the position of all markers in Morgan.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/estimate_time_markers.R:7:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_markers.R#L7) *style:* **Lines should not be more than 80 characters.**
```r
#' @param lower_lim lower limit of the optimization algorithm. Increase if the expected admixture time is relatively ancient
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/estimate_time_markers.R:8:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_markers.R#L8) *style:* **Lines should not be more than 80 characters.**
```r
#' @param upper_lim upper limit of hte optimization algorithm. If set too large, recent admixture events can be overlooked - best to set as low as possible.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/estimate_time_markers.R:12:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_markers.R#L12) *style:* **Lines should not be more than 80 characters.**
```r
#' J <- number_of_junctions_markers(N = 100, H_0 = 0.5, t = 200, marker_distribution = markers)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/estimate_time_markers.R:18:35:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_markers.R#L18) *style:* **Variable and function name style should be snake_case.**
```r
estimate_time_markers <- function(J = NA,
                                  ^
```
[R/estimate_time_markers.R:19:35:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_markers.R#L19) *style:* **Variable and function name style should be snake_case.**
```r
                                  N = Inf,
                                  ^
```
[R/estimate_time_markers.R:20:35:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_markers.R#L20) *style:* **Variable and function name style should be snake_case.**
```r
                                  H_0 = 0.5,
                                  ^~~
```
[R/estimate_time_markers.R:34:71:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_markers.R#L34) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  fitted <- stats::optimize(to_fit, interval = c(lower_lim, upper_lim) )
                                                                      ^
```
[R/estimate_time_phased.R:2:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_phased.R#L2) *style:* **functions should have cyclomatic complexity of less than 15, this has 49.**
```r
get_prob_from_matrix_phased <- function(left, right, p, P) {
^
```
[R/estimate_time_phased.R:2:57:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_phased.R#L2) *style:* **Variable and function name style should be snake_case.**
```r
get_prob_from_matrix_phased <- function(left, right, p, P) {
                                                        ^
```
[R/estimate_time_phased.R:9:19:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_phased.R#L9) *warning:* **no visible global function definition for ‘single_state_inf’**
```r
  seven_states <- single_state_inf(local_time, d = di)
                  ^~~~~~~~~~~~~~~~
```
[R/estimate_time_phased.R:10:19:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_phased.R#L10) *warning:* **no visible global function definition for ‘single_state’**
```r
  seven_states <- single_state(local_time, N = pop_size, d = di)
                  ^~~~~~~~~~~~
```
[R/estimate_time_phased.R:122:23:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_phased.R#L122) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    final_prob <- log( rel_prob )
                      ^
```
[R/estimate_time_phased.R:122:32:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_phased.R#L122) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    final_prob <- log( rel_prob )
                               ^
```
[R/estimate_time_phased.R:125:10:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_phased.R#L125) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  return( log(focal_prob))
         ^
```
[R/estimate_time_phased.R:129:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_phased.R#L129) *style:* **Variable and function names should not be longer than 30 characters.**
```r
get_cond_prob_vector_phased_inf <- function(info_vector,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/estimate_time_phased.R:151:23:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_phased.R#L151) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    final_prob <- log( rel_prob )
                      ^
```
[R/estimate_time_phased.R:151:32:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_phased.R#L151) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    final_prob <- log( rel_prob )
                               ^
```
[R/estimate_time_phased.R:154:10:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_phased.R#L154) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  return( log(focal_prob))
         ^
```
[R/estimate_time_phased.R:158:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_phased.R#L158) *style:* **Lines should not be more than 80 characters.**
```r
#' @description Calculates the time since admixture, given unphased ancestry data.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/estimate_time_phased.R:159:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_phased.R#L159) *style:* **Lines should not be more than 80 characters.**
```r
#' @param local_anc_matrix Local_anc can be provided as either matrix with two columns, where the first column represents ancestry on chromosome 1, and the second column represents ancestry on chromosome 2. Ancestry labels used should be [0, 1], where 0 indicates the first ancestor, and 1 indicates the second ancestor. Alternatively, the user can provide a vector using labels indicating whether at the specific marker, the focal individual is homozygous for the first ancestor (label = 1), homozygous for the second ancestor (label = 2), heterozygous [0,1] (label = 3) or heterozygous [1, 0] (label = 4).
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/estimate_time_phased.R:163:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_phased.R#L163) *style:* **Lines should not be more than 80 characters.**
```r
#' @param lower_lim lower limit of the optimization algorithm. Increase if the expected admixture time is relatively ancient
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/estimate_time_phased.R:164:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_phased.R#L164) *style:* **Lines should not be more than 80 characters.**
```r
#' @param upper_lim upper limit of hte optimization algorithm. If set too large, recent admixture events can be overlooked - best to set as low as possible.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/estimate_time_phased.R:165:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_phased.R#L165) *style:* **Lines should not be more than 80 characters.**
```r
#' @param optim_pop_size If TRUE, population size is also optimized. Starting point of the optimizaton will then be on the given population size, and half the maximum time.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/estimate_time_phased.R:200:11:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_phased.R#L200) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  if (sum( labels %in% 1:4) != length(labels)) {
          ^
```
[R/estimate_time_phased.R:207:58:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_phased.R#L207) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
                      local_anc[2:length(local_anc)]      )
                                                         ^
```
[R/estimate_time_phased.R:257:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_phased.R#L257) *style:* **Lines should not be more than 80 characters.**
```r
#' estimates the time since admixture, given unphased ancestry data and assuming infinite population size.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/estimate_time_phased.R:258:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_phased.R#L258) *style:* **Lines should not be more than 80 characters.**
```r
#' @description Calculates the time since admixture, given unphased ancestry data.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/estimate_time_phased.R:259:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_phased.R#L259) *style:* **Lines should not be more than 80 characters.**
```r
#' @param local_anc_matrix Local_anc can be provided as either matrix with two columns, where the first column represents ancestry on chromosome 1, and the second column represents ancestry on chromosome 2. Ancestry labels used should be [0, 1], where 0 indicates the first ancestor, and 1 indicates the second ancestor. Alternatively, the user can provide a vector using labels indicating whether at the specific marker, the focal individual is homozygous for the first ancestor (label = 1), homozygous for the second ancestor (label = 2), heterozygous [0,1] (label = 3) or heterozygous [1, 0] (label = 4).
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/estimate_time_phased.R:262:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_phased.R#L262) *style:* **Lines should not be more than 80 characters.**
```r
#' @param lower_lim lower limit of the optimization algorithm. Increase if the expected admixture time is relatively ancient
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/estimate_time_phased.R:263:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_phased.R#L263) *style:* **Lines should not be more than 80 characters.**
```r
#' @param upper_lim upper limit of hte optimization algorithm. If set too large, recent admixture events can be overlooked - best to set as low as possible.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/estimate_time_phased.R:296:11:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_phased.R#L296) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  if (sum( labels %in% 1:4) != length(labels)) {
          ^
```
[R/estimate_time_phased.R:303:58:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_phased.R#L303) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
                      local_anc[2:length(local_anc)]      )
                                                         ^
```
[R/estimate_time_unphased.R:2:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_unphased.R#L2) *style:* **functions should have cyclomatic complexity of less than 15, this has 28.**
```r
get_prob_from_matrix <- function(left, right, p, P) {
^
```
[R/estimate_time_unphased.R:2:50:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_unphased.R#L2) *style:* **Variable and function name style should be snake_case.**
```r
get_prob_from_matrix <- function(left, right, p, P) {
                                                 ^
```
[R/estimate_time_unphased.R:12:24:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_unphased.R#L12) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    prob <- (p ^ 2) * ( P[1] + P[4] + P[7] ) +
                       ^
```
[R/estimate_time_unphased.R:12:43:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_unphased.R#L12) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    prob <- (p ^ 2) * ( P[1] + P[4] + P[7] ) +
                                          ^
```
[R/estimate_time_unphased.R:18:22:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_unphased.R#L18) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    prob <- p * q * ( p * q * P[3] +
                     ^
```
[R/estimate_time_unphased.R:21:19:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_unphased.R#L21) *warning:* **no visible global function definition for ‘single_state’**
```r
  seven_states <- single_state(local_time, N = pop_size, d = di)
                  ^~~~~~~~~~~~
```
[R/estimate_time_unphased.R:35:24:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_unphased.R#L35) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    prob <- (q ^ 2) * ( P[1] + P[4] + P[7]) +
                       ^
```
[R/estimate_time_unphased.R:102:23:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_unphased.R#L102) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    final_prob <- log( rel_prob )
                      ^
```
[R/estimate_time_unphased.R:102:32:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_unphased.R#L102) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    final_prob <- log( rel_prob )
                               ^
```
[R/estimate_time_unphased.R:105:12:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_unphased.R#L105) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    return( log(focal_prob))
           ^
```
[R/estimate_time_unphased.R:160:11:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_unphased.R#L160) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  if (sum( labels %in% 1:3) != length(labels)) {
          ^
```
[R/estimate_time_unphased.R:167:58:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/estimate_time_unphased.R#L167) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
                      local_anc[2:length(local_anc)]      )
                                                         ^
```
[R/number_of_junctions_backcross.R:2:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/number_of_junctions_backcross.R#L2) *style:* **Lines should not be more than 80 characters.**
```r
#' @description Calculate the expected number of junctions after t generations, in a backcrossing mating scheme.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/number_of_junctions_backcross.R:4:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/number_of_junctions_backcross.R#L4) *style:* **Lines should not be more than 80 characters.**
```r
#' @param C Mean number of crossovers per meiosis (e.g. size in Morgan of the chromosome)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/number_of_junctions_backcross.R:10:43:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/number_of_junctions_backcross.R#L10) *style:* **Variable and function name style should be snake_case.**
```r
number_of_junctions_backcross <- function(H_0 = 0.5,
                                          ^~~
```
[R/number_of_junctions_backcross.R:11:43:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/number_of_junctions_backcross.R#L11) *style:* **Variable and function name style should be snake_case.**
```r
                                          C = 1,
                                          ^
```
[R/number_of_junctions_di.R:2:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/number_of_junctions_di.R#L2) *style:* **Lines should not be more than 80 characters.**
```r
#' Calculate the expected number of junctions between two markers separated by a given amount of recombination
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/number_of_junctions_di.R:3:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/number_of_junctions_di.R#L3) *style:* **Lines should not be more than 80 characters.**
```r
#' @description Calculate the expected number of junctions after t generations, provided information on the initial heterozygosity, population size, the number of generations since the onset of admixture and the distance between two markers.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/number_of_junctions_di.R:12:36:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/number_of_junctions_di.R#L12) *style:* **Variable and function name style should be snake_case.**
```r
number_of_junctions_di <- function(N = Inf,
                                   ^
```
[R/number_of_junctions_di.R:13:36:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/number_of_junctions_di.R#L13) *style:* **Variable and function name style should be snake_case.**
```r
                                   H_0 = 0.5,
                                   ^~~
```
[R/number_of_junctions_markers.R:1:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/number_of_junctions_markers.R#L1) *style:* **Lines should not be more than 80 characters.**
```r
#' Calculate the expected total number of junctions in a chromosome, given the distribution of markers
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/number_of_junctions_markers.R:2:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/number_of_junctions_markers.R#L2) *style:* **Lines should not be more than 80 characters.**
```r
#' @description Calculate the expected number of junctions after t generations, provided information on the initial heterozygosity, population size, the number of generations since the onset of admixture and the distribution of markers.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/number_of_junctions_markers.R:6:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/number_of_junctions_markers.R#L6) *style:* **Lines should not be more than 80 characters.**
```r
#' @param marker_distribution A vector containing the position of all markers in Morgan.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/number_of_junctions_markers.R:13:27:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/number_of_junctions_markers.R#L13) *warning:* **no visible global function definition for ‘number_of_junctions_di’**
```r
    expected_junctions <- number_of_junctions_di(N, H_0, t, di)
                          ^~~~~~~~~~~~~~~~~~~~~~
```
[R/number_of_junctions_markers.R:20:41:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/number_of_junctions_markers.R#L20) *style:* **Variable and function name style should be snake_case.**
```r
number_of_junctions_markers <- function(N = Inf,
                                        ^
```
[R/number_of_junctions_markers.R:21:41:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/number_of_junctions_markers.R#L21) *style:* **Variable and function name style should be snake_case.**
```r
                                        H_0 = 0.5,
                                        ^~~
```
[R/number_of_junctions.R:2:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/number_of_junctions.R#L2) *style:* **Lines should not be more than 80 characters.**
```r
#' @description Calculate the average number of junctions after t generations, provided information on the initial heterozygosity, population size and the number of generations.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/number_of_junctions.R:6:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/number_of_junctions.R#L6) *style:* **Lines should not be more than 80 characters.**
```r
#' @param C Mean number of crossovers per meiosis (e.g. size in Morgan of the chromosome)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/number_of_junctions.R:13:33:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/number_of_junctions.R#L13) *style:* **Variable and function name style should be snake_case.**
```r
number_of_junctions <- function(N = Inf,
                                ^
```
[R/number_of_junctions.R:14:33:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/number_of_junctions.R#L14) *style:* **Variable and function name style should be snake_case.**
```r
                                R = Inf,
                                ^
```
[R/number_of_junctions.R:15:33:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/number_of_junctions.R#L15) *style:* **Variable and function name style should be snake_case.**
```r
                                H_0 = 0.5,
                                ^~~
```
[R/number_of_junctions.R:16:33:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/number_of_junctions.R#L16) *style:* **Variable and function name style should be snake_case.**
```r
                                C = 1,
                                ^
```
[R/number_of_junctions.R:28:3:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/number_of_junctions.R#L28) *style:* **Variable and function name style should be snake_case.**
```r
  K <- junctions::calc_k(N, R, H_0, C)
  ^
```
[R/optim_limits.R:5:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/optim_limits.R#L5) *style:* **Lines should not be more than 80 characters.**
```r
#' @param calc_func function to calculate the time, should accept two arguments: upper, lower and should return a stats::optimize object with two properties: $minimum and $objective
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/optim_limits.R:6:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/optim_limits.R#L6) *style:* **Lines should not be more than 80 characters.**
```r
#' @param iterations number of times the boundaries should be adjusted to obtain an estimate that is not close to the boundaries. After this number of iterations is exceeded, NA is returned
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/phased_log_likelihood.R:2:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/phased_log_likelihood.R#L2) *style:* **Lines should not be more than 80 characters.**
```r
#' @description Calculates the log likelihood of observing the phased data, given the population size, initial heterozygosity and time since admixture
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/phased_log_likelihood.R:3:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/phased_log_likelihood.R#L3) *style:* **Lines should not be more than 80 characters.**
```r
#' @param local_anc_matrix Local_anc can be provided as either matrix with two columns, where the first column represents ancestry on chromosome 1, and the second column represents ancestry on chromosome 2. Ancestry labels used should be [0, 1], where 0 indicates the first ancestor, and 1 indicates the second ancestor. Alternatively, the user can provide a vector indicating whether at the specific marker, the focal individual is homozygous for the first ancestor (0), homozygous for the second ancestor (1) or heterozygous (2).
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/phased_log_likelihood.R:38:11:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/phased_log_likelihood.R#L38) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  if (sum( labels %in% 1:4) != length(labels)) {
          ^
```
[R/phased_log_likelihood.R:45:58:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/phased_log_likelihood.R#L45) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
                      local_anc[2:length(local_anc)]      )
                                                         ^
```
[R/sim_backcrossing.R:7:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/sim_backcrossing.R#L7) *style:* **Lines should not be more than 80 characters.**
```r
#' @param size_in_morgan Mean number of crossovers per meiosis (e.g. size in Morgan of the chromosome)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sim_backcrossing.R:11:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/sim_backcrossing.R#L11) *style:* **Lines should not be more than 80 characters.**
```r
#' recorded to be returned at the end of the simulation. If left at -1, ancestry is recorded at every generation (computationally heavy).
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sim_backcrossing.R:12:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/sim_backcrossing.R#L12) *style:* **Lines should not be more than 80 characters.**
```r
#' @return List with five entries: average_junctions: average number of junctions over time, detected_junctions: average number of detected junctions, given the markers. markers: vector with the locations of the molecular markers, junction_distribution: distribution of junctions per time step average_heterozygosity: average heterozygosity.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sim_fin_chrom.R:2:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/sim_fin_chrom.R#L2) *style:* **Lines should not be more than 80 characters.**
```r
#' @description Individual based simulation of the accumulation of junctions for a chromosome with regularly distributed markers.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sim_fin_chrom.R:5:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/sim_fin_chrom.R#L5) *style:* **Lines should not be more than 80 characters.**
```r
#' @param morgan Mean number of crossovers per meiosis (e.g. size in Morgan of the chromosome)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sim_fin_chrom.R:9:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/sim_fin_chrom.R#L9) *style:* **Lines should not be more than 80 characters.**
```r
#' @return \item{avgJunctions}{vector of the average number of junctions at time = [0, total_runtime]}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sim_fin_chrom.R:17:27:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/sim_fin_chrom.R#L17) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
sim_fin_chrom <- function (pop_size = 100,
                          ^
```
[R/sim_fin_chrom.R:22:28:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/sim_fin_chrom.R#L22) *style:* **Variable and function name style should be snake_case.**
```r
                           R = 100) {
                           ^
```
[R/sim_inf_chrom.R:2:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/sim_inf_chrom.R#L2) *style:* **Lines should not be more than 80 characters.**
```r
#' @description Individual based simulation of the accumulation of junctions for a chromosome with an infinite number of recombination sites.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sim_inf_chrom.R:6:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/sim_inf_chrom.R#L6) *style:* **Lines should not be more than 80 characters.**
```r
#' @param morgan Mean number of crossovers per meiosis (e.g. size in Morgan of the chromosome)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sim_inf_chrom.R:7:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/sim_inf_chrom.R#L7) *style:* **Lines should not be more than 80 characters.**
```r
#' @param markers The number of genetic markers superimposed on the chromosome. If markers is set to -1, no markers are superimposed (faster simulation)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sim_inf_chrom.R:9:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/sim_inf_chrom.R#L9) *style:* **Lines should not be more than 80 characters.**
```r
#' @return \item{avgJunctions}{vector of the average number of junctions at time = [0, total_runtime]}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sim_phased_unphased.R:2:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/sim_phased_unphased.R#L2) *style:* **Lines should not be more than 80 characters.**
```r
#' @description Individual based simulation of the accumulation of junctions, returning phased and unphased data. Ancestry on both chromosomes of 10 randomly sampled individuals per generations is returned.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sim_phased_unphased.R:6:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/sim_phased_unphased.R#L6) *style:* **Lines should not be more than 80 characters.**
```r
#' @param size_in_morgan Mean number of crossovers per meiosis (e.g. size in Morgan of the chromosome)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sim_phased_unphased.R:7:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/sim_phased_unphased.R#L7) *style:* **Lines should not be more than 80 characters.**
```r
#' @param number_of_markers The number of genetic markers superimposed on the chromosome.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sim_phased_unphased.R:8:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/sim_phased_unphased.R#L8) *style:* **Lines should not be more than 80 characters.**
```r
#' @param time_points vector with time points at which local ancestry has to be recorded to be returned at the end of the simulation. If left at -1, ancestry is recorded at every generation (computationally heavy).
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sim_phased_unphased.R:12:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/sim_phased_unphased.R#L12) *style:* **Lines should not be more than 80 characters.**
```r
#' @return a tibble with five columns: [time, individual, marker location, ancestry chromosome 1, ancestry chromosome 2]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sim_phased_with_error.R:1:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/sim_phased_with_error.R#L1) *style:* **Lines should not be more than 80 characters.**
```r
#' Individual Based Simulation of the accumulation of junctions, given phasing error
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sim_phased_with_error.R:2:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/sim_phased_with_error.R#L2) *style:* **Lines should not be more than 80 characters.**
```r
#' @description Individual based simulation of the accumulation of junctions, returning phased and unphased data. Phased data is
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sim_phased_with_error.R:3:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/sim_phased_with_error.R#L3) *style:* **Lines should not be more than 80 characters.**
```r
#' generated using a user-provided error rate. Ancestry on both chromosomes of 10 randomly sampled individuals per generations is
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sim_phased_with_error.R:8:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/sim_phased_with_error.R#L8) *style:* **Lines should not be more than 80 characters.**
```r
#' @param size_in_morgan Mean number of crossovers per meiosis (e.g. size in Morgan of the chromosome)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sim_phased_with_error.R:9:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/sim_phased_with_error.R#L9) *style:* **Lines should not be more than 80 characters.**
```r
#' @param number_of_markers The number of genetic markers superimposed on the chromosome.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sim_phased_with_error.R:10:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/sim_phased_with_error.R#L10) *style:* **Lines should not be more than 80 characters.**
```r
#' @param time_points vector with time points at which local ancestry has to be recorded to be returned at the end of the simulation. If left at -1, ancestry is recorded at every generation (computationally heavy).
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sim_phased_with_error.R:15:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/sim_phased_with_error.R#L15) *style:* **Lines should not be more than 80 characters.**
```r
#' @param error_rate fraction of markers that are erroneously phased (e.g. swapped)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sim_phased_with_error.R:16:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/sim_phased_with_error.R#L16) *style:* **Lines should not be more than 80 characters.**
```r
#' @return a tibble with five columns: [time, individual, marker location, ancestry chromosome 1, ancestry chromosome 2]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/unphased_log_likelihood.R:2:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/unphased_log_likelihood.R#L2) *style:* **Lines should not be more than 80 characters.**
```r
#' @description Calculates the log likelihood of observing the unphased data, given the population size, initial heterozygosity and time since admixture
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/unphased_log_likelihood.R:3:1:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/unphased_log_likelihood.R#L3) *style:* **Lines should not be more than 80 characters.**
```r
#' @param local_anc_matrix Local_anc can be provided as either matrix with two columns, where the first column represents ancestry on chromosome 1, and the second column represents ancestry on chromosome 2. Ancestry labels used should be [0, 1], where 0 indicates the first ancestor, and 1 indicates the second ancestor. Alternatively, the user can provide a vector indicating whether at the specific marker, the focal individual is homozygous for the first ancestor (0), homozygous for the second ancestor (1) or heterozygous (2).
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/unphased_log_likelihood.R:34:11:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/unphased_log_likelihood.R#L34) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  if (sum( labels %in% 1:3) != length(labels)) {
          ^
```
[R/unphased_log_likelihood.R:41:58:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/R/unphased_log_likelihood.R#L41) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
                      local_anc[2:length(local_anc)]      )
                                                         ^
```
[tests/testthat/test-equations.R:11:3:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/tests/testthat/test-equations.R#L11) *style:* **Variable and function name style should be snake_case.**
```r
  A <- is.infinite(v3)
  ^
```
[tests/testthat/test-equations.R:18:3:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/tests/testthat/test-equations.R#L18) *style:* **Variable and function name style should be snake_case.**
```r
  J <- junctions::number_of_junctions(N = 100, R = 1000,
  ^
```
[tests/testthat/test-marker_dist.R:4:3:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/tests/testthat/test-marker_dist.R#L4) *style:* **Variable and function name style should be snake_case.**
```r
  R <- 1000
  ^
```
[tests/testthat/test-marker_dist.R:16:3:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/tests/testthat/test-marker_dist.R#L16) *style:* **Variable and function name style should be snake_case.**
```r
  N <- 1e3
  ^
```
[tests/testthat/test-marker_dist.R:17:3:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/tests/testthat/test-marker_dist.R#L17) *style:* **Variable and function name style should be snake_case.**
```r
  R <- 1000
  ^
```
[tests/testthat/test-marker_dist.R:60:3:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/tests/testthat/test-marker_dist.R#L60) *style:* **Variable and function name style should be snake_case.**
```r
  N <- 1e3
  ^
```
[tests/testthat/test-marker_dist.R:61:3:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/tests/testthat/test-marker_dist.R#L61) *style:* **Variable and function name style should be snake_case.**
```r
  R <- 1000
  ^
```
[tests/testthat/test-phased-error.R:53:64:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/tests/testthat/test-phased-error.R#L53) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  expected_heterozygosity <- 2 * 0.5 * 0.5 * (1 - 1 / (2 * 100) ) ^ 200
                                                               ^
```
[tests/testthat/test-sims.R:4:3:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/tests/testthat/test-sims.R#L4) *style:* **Variable and function name style should be snake_case.**
```r
  R <- 100 #chromosome size
  ^
```
[tests/testthat/test-sims.R:5:3:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/tests/testthat/test-sims.R#L5) *style:* **Variable and function name style should be snake_case.**
```r
  N <- 100 #population size
  ^
```
[tests/testthat/test-sims.R:6:3:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/tests/testthat/test-sims.R#L6) *style:* **Variable and function name style should be snake_case.**
```r
  H_0 <- 0.5 #initial heterozygosity
  ^~~
```
[tests/testthat/test-sims.R:7:3:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/tests/testthat/test-sims.R#L7) *style:* **Variable and function name style should be snake_case.**
```r
  C <- 1 #number of recombinations per meiosis
  ^
```
[tests/testthat/test-sims.R:29:3:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/tests/testthat/test-sims.R#L29) *style:* **Variable and function name style should be snake_case.**
```r
  N <- 50 #population size
  ^
```
[tests/testthat/test-sims.R:30:3:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/tests/testthat/test-sims.R#L30) *style:* **Variable and function name style should be snake_case.**
```r
  H_0 <- 0.5 #initial heterozygosity
  ^~~
```
[tests/testthat/test-sims.R:31:3:](https://github.com/thijsjanzen/junctions/blob/d0bc6e6def93cb06defe3e797ab0b223b99072d7/tests/testthat/test-sims.R#L31) *style:* **Variable and function name style should be snake_case.**
```r
  C <- 1 #number of recombinations per meiosis
  ^
```


# NodeJS
## Aula 12 - CRUD

### Vamos terminar de fazer o crud

### Criando a busca

**routes.js**
- Rota que busca um usuário por 'id'
- Esse id(parâmetro) podemos buscar usando o ':' e o nome do parâmetro 'id'
`routes.get('/products/:id', ProductController.show);`

**ProductController.js**

      - Busca de usuário por 'ID'
      - Posso usar novamente o 'req'
`        const product = await Product.findById(req.params.id);`

### Buscando o produto

http://localhost:3001/api/products/5ddf201d76b35d2d78c4bf35

### Atualizando

- findByIdAndUpdate:
- Vou encontrar um produto e atualizar
```
const product = await Product.findByIdAndUpdate(req.params.id, req.body, { new: true });
```
- Vai pegar(req.params.id) e atualizar(req.body) - Como ser tiverssemos  unindo o 'show' e o 'store'
-  { new: true } - Moogose retorne o objeto atualizando para a variável product

**Rota**

- put - método de atualização
routes.put('/products/:id', ProductController.update);

Caminho:
Usando o verbo PUT

http://localhost:3001/api/products/5ddf201d76b35d2d78c4bf35

### Remover

async destroy(req, res) {
        await Product.findByIdAndRemove(req.params.id);

     - Retorna uma reposta de sucesso sem nenhum conteúdo
        return res.send();
    }

rota
routes.delete('/products/:id', ProductController.destroy);


![](https://github.trello.services/images/mini-trello-icon.png) [Codigo](https://trello.com/c/B5nBhu8E/2-codigo)


Thank you!


Maybe something about Prometheus AND/OR tracing?


Yep, for `array_column()` too. I would even prefer 5.6, but this can wait.


Successfully deployed to following URLs:

* https://mcs-new-version-51d5yry5q.now.sh
* https://mcs-new-version.m-c-s.now.sh
* https://mcs-new-version-git-master.m-c-s.now.sh


It seems that the behavior of some plugins in pillow has changed since 6.0.0 or 6.1.0, which caused dead lock in `reader.LockedFileIO`.
Now, the whole data of file is read with lock before sent to PIL, and should be released immediately after PIL finished working.

@emfox 这个更改应该能够修复 https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=945363 ，但是我不确定 https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=945493 是否也是由相同原因引起的。

@xinyazhang I have noticed your fork. `mcomix/lib/reader.py` was the module designed to do something with your aiming. I only make a internal lock for it since the tmpfs under linux is already 'in-memory', but you could make it a true 'reader' under windows.


Hi rohitcav,

The method of collecting the results now is only intended as a short term solution, See issue #22.

I had planned to export to a csv/tsv which would be easy to import into excel (issue #17), but i'm in two minds as to whether I should have an intensive reporting functionality within the gui or break it out to a seperate tool like LoadRunner does with LR Analysis? JMeter also seems to take this approach.
FYI - All the results are all stored in an SQLite3 database in the results directory (I just noticed a bug with the results folder name). the results table contains all the raw results and the summary view gives you the summary (minus the percentile), Also the agents table gives you the agent monitoring data. So if you are comfortable with SQL you can easily create your own custom reports from that, this will also be the data source if I decide to go with an external reporting tool.


Successfully deployed to following URLs:

* https://baza-dikws00wh.now.sh
* https://baza-tau-seven.now.sh
* https://baza.naumov.now.sh
* https://baza-git-gh-pages.naumov.now.sh


Let's use `_.take`


Successfully deployed to following URLs:

* https://kinonow-j4r35tzj6.now.sh
* https://kinonow.now.sh
* https://kinonow.trueycatdev.now.sh
* https://kinonow-git-master.trueycatdev.now.sh


Should we rebase and squash this into the previous commit?


Also please comment on the existing open issues and feel free to create new ones if you want. Comments on open issues will help me know what to prioritise fixing.


Abstands-Bemaßung


Successfully deployed to following URLs:

* https://hghfhgf-i3uqjmcuq.now.sh
* https://iosdev.cf
* https://hghfhgf.minopham.now.sh
* https://hghfhgf-git-master.minopham.now.sh


Another update and a comment on the logs...
Reverting this commit the logs just looks like the frist one no matter what active is set to...
The second log shows more information, the name is actually filled, more data is presented, more service UUIDs are there. I am not so much into BLE and didn't work through the code what that simple addition to the length results in, so no idea if this is basically correct (I think because of the additional data shown) but if there is something missing in the later process because the overall interpretation is so different...


 Items required: Electricity, Kettle, Toaster, Water , Milk, Bread , Plate , Cup, Spoon .

 Ordered Steps:

 Plug in Kettle.
 Plug in Toaster.
 Put water in kettle.
 Press button to start kettle.
 Put bread in toaster.
 Press button to start toaster.
 Put tea bag in cup.
 Add water to cup when water is boiled.
 Stir water and teabag with spoon.
 Remove teabag from cup.
 Put teabag in compost bin.
 Get milk from fridge.
 Pour into cup.
 Stir in milk.
 Put milk back in fridge.
 Remove toast from toaster.
 Put toast on plate.