Update CypAspatDemModel.R

cjabradshaw · Sep 15, 2023 · 8db7004 · 8db7004
1 parent 5c3bf2d
commit 8db7004
Showing 1 changed file with 0 additions and 9 deletions.
diff --git a/scripts/CypAspatDemModel.R b/scripts/CypAspatDemModel.R
@@ -268,15 +268,6 @@ lines(areaT.dat$age, areaT.dat$areaC.mn+areaT.dat$areaC.sd, lty=2, col="red")
 lines(areaT.dat$age, areaT.dat$areaC.mn-areaT.dat$areaC.sd, lty=2, col="red")
 par(mfrow=c(1,1))
 
-## alternative sl series
-slt <- read.table("~/data/seaLevel/sltimeseries.csv", sep=",", header=T)
-head(slt)
-
-plot(areaT.dat$age, areaT.dat$areaC.mn, type="l", xlab="age", ylab="area of Cyprus (km2)")
-lines(areaT.dat$age, areaT.dat$areaC.mn+areaT.dat$areaC.sd, lty=2, col="red")
-lines(areaT.dat$age, areaT.dat$areaC.mn-areaT.dat$areaC.sd, lty=2, col="red")
-lines(slt$age, slt$area, lwd=2, lty=2, col="blue")
-
 ## relative density, carrying capacity
 # npp to K
 hum.dens.med <- 6.022271e-02