New_21_6

Scripts/dynamic.R

-#header #################################################################################
-#'Dynamic_model.R'
 
-#Title: MADRA
-#Project 1600001916: pid
-#Client: client
-#Author: <Eduardo> <Costa>, Wageningen Bioveterinary Research
-
-#Description: Multi-directional antimicrobial resistance modeling
-
-#Start date: 9/1/2020
-#Last Update: {6:date}
-
-#R version: r.version
-#Scriptversion: version
-
-#Dependencies
-#<-Downstream
-#->Upstream
-
-#Input:
-#-
-
-#Output:
-#-
-
-#Peer reviewer(s)
-
-#Please ensure directories are relative. Please comment code sufficiently.
-
-#Script start#############################################################################
 
 model<-function(iteraction,times,flocks,simtable){
 

main.R

-#header
+#header #################################################################################
+#'Dynamic_model.R'
 
+#Title: MADRA
+#Project 1600001916: pid
+#Client: client
+#Author: <Eduardo> <Costa>, Wageningen Bioveterinary Research
+
+#Description: Multi-directional antimicrobial resistance modeling
+
+#Start date: 9/1/2020
+#Last Update: {6:date}
+
+#R version: r.version
+#Scriptversion: version
+
+#Dependencies
+#<-Downstream
+#->Upstream
+
+#Input:
+#-
+
+#Output:
+#-
+
+#Peer reviewer(s)
+
+#Please ensure directories are relative. Please comment code sufficiently.
+
+#Script start#############################################################################
 
 rm(list=ls(all=T))
 set_wd <- function() {