-
Notifications
You must be signed in to change notification settings - Fork 9
/
Test.R
26 lines (22 loc) · 1.02 KB
/
Test.R
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
source("sourceASF.R")
sourceASF()
indexHerdFile<-read.table("IndexHerds.csv",sep=";")
optC<-ASFoptions(maxTime=16,n=1,indexHerdSelect=list(ID=indexHerdFile[[2]]),runID="TestSows1",Detailed=F,PCRTesting=c(1,5,6),seed=-10)
a<-ASF(optC)
source("sourceASF.R")
sourceASF()
indexHerdFile<-read.table("IndexHerds.csv",sep=";")
optC<-ASFoptions(maxTime=365,n=5,indexHerdSelect=list(ID=indexHerdFile[[2]]),Detailed=T,runID="TestSows3",
interventionFunctions=c("SurvDead(Zone=2)"),seed=-10)
a<-ASF(optC)
source("sourceASF.R")
sourceASF()
indexHerdFile<-read.table("IndexHerds.csv",sep=";")
optC<-ASFoptions(maxTime=365,n=5,indexHerdSelect=list(ID=indexHerdFile[[2]]),Detailed=T,runID="TestSows2",
interventionFunctions=c("CullRing(size=1,startCulling=1)"),seed=-10)
a<-ASF(optC)
source("sourceASF.R")
sourceASF()
indexHerdFile<-read.table("TestIndHerds.csv",sep=";")
optC<-ASFoptions(maxTime=365,n=10,indexHerdSelect=indexHerdFile,indexHerdFunction="selectIndHerdMore",Detailed=T,runID="Test",seed=-10)
a<-ASF(optC)