Mentions légales du service

Skip to content
Snippets Groups Projects
Commit cda4cbcc authored by HARLE Remy's avatar HARLE Remy
Browse files

refactor : chgt settings + correction d'erreur script identifalpha et identifmu

parent fecc0d95
No related branches found
No related tags found
No related merge requests found
{
"analysis_name": "Identifi",
"r_script": "identifiabilite.R",
"r_script": "identif_alpha.R",
"py_env": "base",
"reticulate_env": "",
"logfile": "install.log",
......
......@@ -32,7 +32,7 @@ res <- foreach::foreach(i=1:100 , .packages = c("tidyverse","mechanisticModel"))
control$seed <- i
JD1 <- GDC(1000,22.38,1.33,exp(-6.34),exp(-26.8),0.542,1,0,20*365)
JD1 <- GDC(1000,22.38,1.33,exp(-6.34),exp(-26.8),0.05,1,0,20*365)
JD1 <- JD1 %>% filter(tps > 0)
......@@ -40,7 +40,7 @@ res <- foreach::foreach(i=1:100 , .packages = c("tidyverse","mechanisticModel"))
Surv(tps, event) ~ TTR(vdiag),
log(alpha) ~ 1, log(mu) ~ 1,
data = JD1,
alpha_0 = 0.001, mu_0 = 2e-12, sigma_0 = 0.05, omega_0 = c(3, 3),
alpha_0 = 0.001, mu_0 = 2e-12, sigma_0 = 0.05, omega_0 = c(1, 0),
beta_0 = list(alpha = numeric(), mu = numeric()),
options = control
)
......
......@@ -32,7 +32,7 @@ res <- foreach::foreach(i=1:100 , .packages = c("tidyverse","mechanisticModel"))
control$seed <- i
JD1 <- GDC(1000,22.38,1.33,exp(-6.34),exp(-26.8),0.542,0,1,20*365)
JD1 <- GDC(1000,22.38,1.33,exp(-6.34),exp(-26.8),0.05,0,1,20*365)
JD1 <- JD1 %>% filter(tps > 0)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment