Debug LocaScoreMC with daudin

This commit is contained in:
Paul-Corbalan 2022-04-12 10:27:23 +02:00
parent 99cb19a9d9
commit eb61523c3c
1 changed files with 0 additions and 6 deletions

View File

@ -255,12 +255,6 @@ ComputeE <- function(lambda0, lambda1){
} }
``` ```
for (i in 2:(n_sample)){
pp=PoissonProcess(lambda,T)
scan=rbind(scan,ScanStat(pp,T, tau)[2])
index=rbind(index,ScanStat(pp,T, tau)[1])
}
```{r} ```{r}
ScoreDistrib <- function(lambda0, lambda1, NbSeq, T){ ScoreDistrib <- function(lambda0, lambda1, NbSeq, T){
E = ComputeE(lambda0, lambda1) E = ComputeE(lambda0, lambda1)