Get/Set the model of an experiment

These functions allow to get and set the path to the .gaml file that contains the model of an experiment object.

model(exp)

# S3 method for default
model(exp)

# S3 method for experiment
model(exp)

model(exp) <- value

# S3 method for default
model(exp) <- value

# S3 method for experiment
model(exp) <- value

Arguments

exp	An object of class experiment.
value	Path of new gaml model file

Value

The path to the .gaml file that contains the model definition.

Examples

exp1 <- load_experiment("sir", system.file("models", "sir.gaml",
                        package = "rama"))
#> Loading experiment "sir" from file "sir.gaml"...
#> 
#> Periods of observation ("obsrates") are converted into integers.
#> 
#> Final time step ("tmax") is converted into integer.
#> 
#> Seed is converted into numeric.
#> 
#> Parameters' types are cast according to model definition
#> 
model(exp1)
#> $path
#>                                     sourcePath 
#> "/Users/mac/Desktop/rama/inst/models/sir.gaml" 
#> 
#> $info
#> $info$Parameters
#> $info$Parameters$Parameter
#>  name  type value   var 
#>  "S0" "INT" "999"   "S" 
#> 
#> $info$Parameters$Parameter
#>  name  type value   var 
#>  "I0" "INT"   "1"   "I" 
#> 
#> $info$Parameters$Parameter
#>  name  type value   var 
#>  "R0" "INT"   "0"   "R" 
#> 
#> $info$Parameters$Parameter
#>    name    type   value     var 
#>  "beta" "FLOAT"   "1.5"  "beta" 
#> 
#> $info$Parameters$Parameter
#>    name    type   value     var 
#> "gamma" "FLOAT"  "0.15" "gamma" 
#> 
#> 
#> $info$Outputs
#> $info$Outputs$Output
#> framerate        id      name 
#>       "1"       "0"       "S" 
#> 
#> $info$Outputs$Output
#> framerate        id      name 
#>       "1"       "1"       "I" 
#> 
#> $info$Outputs$Output
#> framerate        id      name 
#>       "1"       "2"       "R" 
#> 
#> 
#> $info$.attrs
#>                                     experiment 
#>                                          "sir" 
#>                                      finalStep 
#>                                         "1000" 
#>                                             id 
#>                                            "0" 
#>                                           seed 
#>                                          "1.0" 
#>                                     sourcePath 
#> "/Users/mac/Desktop/rama/inst/models/sir.gaml" 
#> 
#> 
#> $md5sum
#> /Users/mac/Desktop/rama/inst/models/sir.gaml 
#>           "a1316e76832682f5ce9e89ee8e65e2a8" 
#> 
model(exp1) <-  system.file("models", "CopyOfsir.gaml",
                        package = "rama")
model(exp1)
#> $path
#> [1] "/Users/mac/Desktop/rama/inst/models/CopyOfsir.gaml"
#> 
#> $info
#> $info$Parameters
#> $info$Parameters$Parameter
#>  name  type value   var 
#>  "S0" "INT" "999"   "S" 
#> 
#> $info$Parameters$Parameter
#>  name  type value   var 
#>  "I0" "INT"   "1"   "I" 
#> 
#> $info$Parameters$Parameter
#>  name  type value   var 
#>  "R0" "INT"   "0"   "R" 
#> 
#> $info$Parameters$Parameter
#>    name    type   value     var 
#>  "beta" "FLOAT"   "1.5"  "beta" 
#> 
#> $info$Parameters$Parameter
#>    name    type   value     var 
#> "gamma" "FLOAT"  "0.15" "gamma" 
#> 
#> 
#> $info$Outputs
#> $info$Outputs$Output
#> framerate        id      name 
#>       "1"       "0"       "S" 
#> 
#> $info$Outputs$Output
#> framerate        id      name 
#>       "1"       "1"       "I" 
#> 
#> $info$Outputs$Output
#> framerate        id      name 
#>       "1"       "2"       "R" 
#> 
#> 
#> $info$.attrs
#>                                           experiment 
#>                                                "sir" 
#>                                            finalStep 
#>                                               "1000" 
#>                                                   id 
#>                                                  "0" 
#>                                                 seed 
#>                                                "1.0" 
#>                                           sourcePath 
#> "/Users/mac/Desktop/rama/inst/models/CopyOfsir.gaml" 
#> 
#> 
#> $md5sum
#> /Users/mac/Desktop/rama/inst/models/CopyOfsir.gaml 
#>                 "a1316e76832682f5ce9e89ee8e65e2a8" 
#> 
exp1 <- load_experiment("sir", system.file("models", "sir.gaml",
                        package = "rama"))
#> Loading experiment "sir" from file "sir.gaml"...
#> 
#> Periods of observation ("obsrates") are converted into integers.
#> 
#> Final time step ("tmax") is converted into integer.
#> 
#> Seed is converted into numeric.
#> 
#> Parameters' types are cast according to model definition
#> 
model(exp1)
#> $path
#>                                     sourcePath 
#> "/Users/mac/Desktop/rama/inst/models/sir.gaml" 
#> 
#> $info
#> $info$Parameters
#> $info$Parameters$Parameter
#>  name  type value   var 
#>  "S0" "INT" "999"   "S" 
#> 
#> $info$Parameters$Parameter
#>  name  type value   var 
#>  "I0" "INT"   "1"   "I" 
#> 
#> $info$Parameters$Parameter
#>  name  type value   var 
#>  "R0" "INT"   "0"   "R" 
#> 
#> $info$Parameters$Parameter
#>    name    type   value     var 
#>  "beta" "FLOAT"   "1.5"  "beta" 
#> 
#> $info$Parameters$Parameter
#>    name    type   value     var 
#> "gamma" "FLOAT"  "0.15" "gamma" 
#> 
#> 
#> $info$Outputs
#> $info$Outputs$Output
#> framerate        id      name 
#>       "1"       "0"       "S" 
#> 
#> $info$Outputs$Output
#> framerate        id      name 
#>       "1"       "1"       "I" 
#> 
#> $info$Outputs$Output
#> framerate        id      name 
#>       "1"       "2"       "R" 
#> 
#> 
#> $info$.attrs
#>                                     experiment 
#>                                          "sir" 
#>                                      finalStep 
#>                                         "1000" 
#>                                             id 
#>                                            "0" 
#>                                           seed 
#>                                          "1.0" 
#>                                     sourcePath 
#> "/Users/mac/Desktop/rama/inst/models/sir.gaml" 
#> 
#> 
#> $md5sum
#> /Users/mac/Desktop/rama/inst/models/sir.gaml 
#>           "a1316e76832682f5ce9e89ee8e65e2a8" 
#> 
model(exp1) <-  system.file("models", "CopyOfsir.gaml",
                        package = "rama")
model(exp1)
#> $path
#> [1] "/Users/mac/Desktop/rama/inst/models/CopyOfsir.gaml"
#> 
#> $info
#> $info$Parameters
#> $info$Parameters$Parameter
#>  name  type value   var 
#>  "S0" "INT" "999"   "S" 
#> 
#> $info$Parameters$Parameter
#>  name  type value   var 
#>  "I0" "INT"   "1"   "I" 
#> 
#> $info$Parameters$Parameter
#>  name  type value   var 
#>  "R0" "INT"   "0"   "R" 
#> 
#> $info$Parameters$Parameter
#>    name    type   value     var 
#>  "beta" "FLOAT"   "1.5"  "beta" 
#> 
#> $info$Parameters$Parameter
#>    name    type   value     var 
#> "gamma" "FLOAT"  "0.15" "gamma" 
#> 
#> 
#> $info$Outputs
#> $info$Outputs$Output
#> framerate        id      name 
#>       "1"       "0"       "S" 
#> 
#> $info$Outputs$Output
#> framerate        id      name 
#>       "1"       "1"       "I" 
#> 
#> $info$Outputs$Output
#> framerate        id      name 
#>       "1"       "2"       "R" 
#> 
#> 
#> $info$.attrs
#>                                           experiment 
#>                                                "sir" 
#>                                            finalStep 
#>                                               "1000" 
#>                                                   id 
#>                                                  "0" 
#>                                                 seed 
#>                                                "1.0" 
#>                                           sourcePath 
#> "/Users/mac/Desktop/rama/inst/models/CopyOfsir.gaml" 
#> 
#> 
#> $md5sum
#> /Users/mac/Desktop/rama/inst/models/CopyOfsir.gaml 
#>                 "a1316e76832682f5ce9e89ee8e65e2a8" 
#>