forked from ccc1685/covid-19
-
Notifications
You must be signed in to change notification settings - Fork 3
/
.Rhistory
42 lines (42 loc) · 1.42 KB
/
.Rhistory
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
pars_ <- c(pars_, "wi", "vacfrac")
pars_ <-c('1','2','3')
is.element('1',pars_)
if (is.element('1',pars_)){}
if (is.element('1',pars_)){}
is.element('1',pars_)
if (TRUE){}
knitr::opts_chunk$set(echo = TRUE)
pars_ <-c('1','2','3')
if (is.element('1',pars_)){
print('TRUE)
}
pars_ <-c('1','2','3')
if (is.element('1',pars_)) == TRUE{
pars_ <-c('1','2','3')
if (is.element('1',pars_)) = TRUE{
pars_ <-c('1','2','3')
if (isTRUE(is.element('1',pars_))){
print('TRUE')
}
pars_ <-c('1','2','3')
if (isTRUE(is.element('4',pars_))){
print('TRUE')
}
models_with_wi <- c('DiscreteHierarchical', 'DiscreteHierarchicalV', 'DiscreteHierarchicalV1')
pars_ <- list("dI","car", "ir", "ifr", "Rt", "y_proj")
if (isTRUE(is.element("DiscreteHierarchical", models_with_wi))){ # If model has param "wi", add it to parameters printout
pars_ <- c(pars_, "wi")
}
pars_
models_with_wi <- c('DiscreteHierarchical', 'DiscreteHierarchicalV', 'DiscreteHierarchicalV1')
pars_ <- list("dI","car", "ir", "ifr", "Rt", "y_proj")
if (isTRUE(is.element("DiscreteHierarchical1", models_with_wi))){ # If model has param "wi", add it to parameters printout
pars_ <- c(pars_, "wi")
}
pars_
models_with_wi <- c('DiscreteHierarchical', 'DiscreteHierarchicalV', 'DiscreteHierarchicalV1')
pars_ <- list("dI","car", "ir", "ifr", "Rt", "y_proj")
if (isTRUE(is.element("DiscreteHierarchicalV", models_with_wi))){ # If model has param "wi", add it to parameters printout
pars_ <- c(pars_, "wi")
}
pars_