Change structure of experience
This commit is contained in:
parent
754faf74ac
commit
c4d9a4db7c
|
@ -363,12 +363,16 @@ 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)
|
||||||
|
|
Loading…
Reference in New Issue