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 = "gamar"))
#> 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/gamar/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/gamar/inst/models/sir.gaml" 
#> 
#> 
#> $md5sum
#> /Users/mac/Desktop/gamar/inst/models/sir.gaml 
#>            "a1316e76832682f5ce9e89ee8e65e2a8" 
#> 
model(exp1) <-  system.file("models", "CopyOfsir.gaml",
                        package = "gamar")
model(exp1)
#> $path
#> [1] "/Users/mac/Desktop/gamar/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/gamar/inst/models/CopyOfsir.gaml" 
#> 
#> 
#> $md5sum
#> /Users/mac/Desktop/gamar/inst/models/CopyOfsir.gaml 
#>                  "a1316e76832682f5ce9e89ee8e65e2a8" 
#> 
exp1 <- load_experiment("sir", system.file("models", "sir.gaml",
                        package = "gamar"))
#> 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/gamar/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/gamar/inst/models/sir.gaml" 
#> 
#> 
#> $md5sum
#> /Users/mac/Desktop/gamar/inst/models/sir.gaml 
#>            "a1316e76832682f5ce9e89ee8e65e2a8" 
#> 
model(exp1) <-  system.file("models", "CopyOfsir.gaml",
                        package = "gamar")
model(exp1)
#> $path
#> [1] "/Users/mac/Desktop/gamar/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/gamar/inst/models/CopyOfsir.gaml" 
#> 
#> 
#> $md5sum
#> /Users/mac/Desktop/gamar/inst/models/CopyOfsir.gaml 
#>                  "a1316e76832682f5ce9e89ee8e65e2a8" 
#>