paul-corbalan
/
Scan-Statistics-Project-4Y-INSA
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Small corrections

This commit is contained in:
Paul-Corbalan 2022-05-08 19:11:11 +02:00
parent c4d9a4db7c
commit d98b5eb3c5
1 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Comparaison_of_methods.rmd
View File

@ -380,7 +380,7 @@ for (lambda0 in list_of_lambda0){
tbe0 = vector("list", length = NbSeq) tbe0 = vector("list", length = NbSeq)
pp0 = vector("list", length = NbSeq) pp0 = vector("list", length = NbSeq)
pp1 = vector("list", length = NbSeq) pp1 = vector("list", length = NbSeq)
tbe1 = vector("list", length = NbSeq) tbe1 = vector("list", length = NbSeq)
theoretical_results = c(rep(0,NbSeq), rep(1,NbSeq)) theoretical_results = c(rep(0,NbSeq), rep(1,NbSeq))
@ -456,13 +456,6 @@ for (lambda0 in list_of_lambda0){
} }
``` ```
```{r}
theo = c(0,0,0,1,1,1)
exp = c(0,1,1,1,1,0)
confusionMatrix(factor(exp), factor(theo), positive = '1') #prédiction puis théorique
```
```{r} ```{r}
NbSeq = 10**2 NbSeq = 10**2
T = 10 T = 10
@ -471,7 +464,7 @@ lambda1 = 5
n_sample=10**4 n_sample=10**4
cat("For T = ", T, ", Nb = ", NbSeq, ", lambda0 = ", lambda0, " and lambda1 = ", lambda1, ":\n", sep = "") cat("For T = ", T, ", Nb = ", NbSeq, ", lambda0 = ", lambda0, " and lambda1 = ", lambda1, ":\n", sep = "")
tbe0 = vector("list",length=NbSeq) tbe0 = vector("list", length = NbSeq)
pp0 = vector("list", length = NbSeq) pp0 = vector("list", length = NbSeq)
pp1 = vector("list", length = NbSeq) pp1 = vector("list", length = NbSeq)
tbe1 = vector("list", length = NbSeq) tbe1 = vector("list", length = NbSeq)