noah/CS-7863-Sci-Stat-Proj-3
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Final changes prior to submission

Browse Source
This commit is contained in:
Noah L. Schrick 2023-02-16 00:00:17 -06:00
parent 7222500638
commit a3068ff812
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Schrick-Noah_Homework-3.R
View File

@ -282,11 +282,17 @@ legend(x = "topleft",
# c) Use k3=0.02
pp.params.c <- c(.01, .1, .02, .05)
pp.sol.c <- ode45(f = function(t,y){pp.f(t,y,k=pp.params)},
pp.sol.c <- ode45(f = function(t,y){pp.f(t,y,k=pp.params.c)},
y = c(prey0, pred0),
t0 = tmin, tfinal = tmax)
plot.pred.prey(pp.sol.c, "ODE45 with k3=0.02")
pp.params.c2 <- c(.01, .1, .02, .75)
pp.sol.c2 <- ode45(f = function(t,y){pp.f(t,y,k=pp.params.c2)},
y = c(prey0, pred0),
t0 = tmin, tfinal = tmax)
plot.pred.prey(pp.sol.c2, "ODE45 with k3=0.02, k4=0.75")
## 5. Solve SIR model numerically from t=0 -> 20
sir.f <- function(t, y, k) {
dS <- -k[1] * y[1] * y[2]