Generate Site Sizes for HumanPop

Site may be defined as a MICRO FeedingSite or a MACRO MacroPatch.

sitePops(N, siteSize = 10, siteMin = 2)

Arguments

N

number of sites (may refer to household or a MacroPatch patch)
siteSize

average size of population at sites
siteMin

minimum size of population at sites

Value

list:

  • nHumans: total human population size

  • sitePops: vector of population size at each site

  • siteHumanID: list of human IDs at each site

  • homeHumanID: vector of home site ID for each human

  • siteAges: list of human ages at each site; calculated from siteAges

Examples

sitePops(N = 10)
#> $nHumans
#> [1] 93
#> 
#> $sitePops
#>  [1]  9 10  7 14  5  6 10  7 10 15
#> 
#> $siteHumanID
#> $siteHumanID[[1]]
#> [1] 1 2 3 4 5 6 7 8 9
#> 
#> $siteHumanID[[2]]
#>  [1] 10 11 12 13 14 15 16 17 18 19
#> 
#> $siteHumanID[[3]]
#> [1] 20 21 22 23 24 25 26
#> 
#> $siteHumanID[[4]]
#>  [1] 27 28 29 30 31 32 33 34 35 36 37 38 39 40
#> 
#> $siteHumanID[[5]]
#> [1] 41 42 43 44 45
#> 
#> $siteHumanID[[6]]
#> [1] 46 47 48 49 50 51
#> 
#> $siteHumanID[[7]]
#>  [1] 52 53 54 55 56 57 58 59 60 61
#> 
#> $siteHumanID[[8]]
#> [1] 62 63 64 65 66 67 68
#> 
#> $siteHumanID[[9]]
#>  [1] 69 70 71 72 73 74 75 76 77 78
#> 
#> $siteHumanID[[10]]
#>  [1] 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93
#> 
#> 
#> $homeHumanID
#>  [1]  1  1  1  1  1  1  1  1  1  2  2  2  2  2  2  2  2  2  2  3  3  3  3  3  3
#> [26]  3  4  4  4  4  4  4  4  4  4  4  4  4  4  4  5  5  5  5  5  6  6  6  6  6
#> [51]  6  7  7  7  7  7  7  7  7  7  7  8  8  8  8  8  8  8  9  9  9  9  9  9  9
#> [76]  9  9  9 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10
#> 
#> $siteAges
#> $siteAges[[1]]
#> [1] 12247 10060  1713  4775  3680 11837  6582  1809 10298
#> 
#> $siteAges[[2]]
#>  [1] 11093 13286  1075  1877  5684  1145 10759  5516  5327 19608
#> 
#> $siteAges[[3]]
#> [1] 11825 10451  6886  2027   823  7064  5452
#> 
#> $siteAges[[4]]
#>  [1] 14546  4049  4368  7392  6164 20996   660 11096 16010  1007   470   563
#> [13]  1847  2101
#> 
#> $siteAges[[5]]
#> [1] 7338 4730 2522 2327 7241
#> 
#> $siteAges[[6]]
#> [1] 8032 6158 1735 1445 7852 1212
#> 
#> $siteAges[[7]]
#>  [1] 9698 8870 5866 1930 6672 5695 8705 8966 4766 8640
#> 
#> $siteAges[[8]]
#> [1] 13232  9220  5995  1301  3962 20814  1876
#> 
#> $siteAges[[9]]
#>  [1] 12980  6421  4200  2344 13074  7868  1735 10463  1604 15195
#> 
#> $siteAges[[10]]
#>  [1] 10833 11245   451  1432 10280  2116  9512  2585  8523 14157  9485  3643
#> [13]  2585  5834  7184
#> 
#>