length_obs_var.jl 402 Bytes
Newer Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

using MarkovProcesses

load_model("SIR")
σ = simulate(SIR)
test_1 = length_obs_var(σ) == 1

set_observed_var!(SIR, ["I", "R"])
σ = simulate(SIR)
test_2 = length_obs_var(σ) == 2

load_model("ER")
σ = simulate(ER)
test_3 = length_obs_var(σ) == 1

set_observed_var!(ER, ["P", "S", "ES"])
σ = simulate(ER)
test_4 = length_obs_var(σ) == 3

test = test_1 && test_2 && test_3 && test_4

return test