The agentMatrix class

Author

Eliot McIntire

Examples

newAgent <- new("agentMatrix", coords = cbind(pxcor = c(1, 2, 5), pycor = c(3, 4, 6)), char = letters[c(1, 2, 6)], nums2 = c(4.5, 2.6, 2343), char2 = LETTERS[c(4, 24, 3)], nums = 5:7) # compare speeds -- about 5x faster if(require(microbenchmark)) { microbenchmark(times = 499, spdf = {SpatialPointsDataFrame( coords = cbind(pxcor = c(1, 2, 5), pycor = c(3, 4, 6)), data = data.frame( char = letters[c(1, 2, 6)], nums2 = c(4.5, 2.6, 2343), char2 = LETTERS[c(4, 24, 3)], nums = 5:7))}, agentMat = {agentMatrix( coords = cbind(pxcor = c(1, 2, 5), pycor = c(3, 4, 6)), char = letters[c(1, 2, 6)], nums2 = c(4.5, 2.6, 2343), char2 = LETTERS[c(4, 24, 3)], nums = 5:7)}, agentMatDirect = {new("agentMatrix", coords = cbind(pxcor = c(1, 2, 5), pycor = c(3, 4, 6)), char = letters[c(1, 2, 6)], nums2 = c(4.5, 2.6, 2343), char2 = LETTERS[c(4, 24, 3)], nums = 5:7)}) }
#> Loading required package: microbenchmark
#> Unit: microseconds #> expr min lq mean median uq max neval cld #> spdf 960.46 1006.591 1126.5090 1028.331 1214.046 8848.114 499 b #> agentMat 261.62 281.130 310.8245 294.750 345.140 576.180 499 a #> agentMatDirect 259.32 277.835 305.7987 291.040 340.100 587.160 499 a