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

Change structure of experience

Browse Source
This commit is contained in:
Paul-Corbalan 2022-05-08 16:50:58 +02:00
parent 754faf74ac
commit c4d9a4db7c
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Comparaison_of_methods.rmd
View File

@ -363,17 +363,21 @@ LocalScoreMC <- function(lambda0, lambda1, NbSeq, T, X_seq, P_X, tbe0){
```{r} ```{r}
NbSeq = 10**2 NbSeq = 10**2
T = 10 T = 10
for (lambda0 in (2)){
list_of_lambda0 = c(2)
list_of_lambda1 = c(3)
for (lambda0 in list_of_lambda0){
Sensitivity = c() Sensitivity = c()
Specificity = c() Specificity = c()
accepted_lambda = c() accepted_lambda = c()
for (lambda1 in c(3)){ for (lambda1 in list_of_lambda1){
if (lambda0 < lambda1){ if (lambda0 < lambda1){
accepted_lambda = c(accepted_lambda,lambda1) accepted_lambda = c(accepted_lambda,lambda1)
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)