# Single Species, Multi Season Occupancy analyais

#   Nighingale detection..
#   55 sites x 10 years x 8 visits/site
#   No covariates

# 2018-11-15 Code contributed by Carl James Schwarz (cschwarz.stat.sfu.cs@gmail.com)
#  RPresence package

library(readxl)
library(RPresence)
library(ggplot2)

# Get the RPResence additional functions 
source(file.path("..","..","..","AdditionalFunctions","Rpresence.additional.functions.R"))

# get the data read in
# Data for detections should be a data frame with rows corresponding to sites
# and columns to visits.
# The usual 1=detected; 0=not detected; NA=not visited is used.

input.data <- read.csv(file.path("..","nightingales.csv"), header=TRUE, as.is=TRUE, strip.white=TRUE)
head(input.data)
##   Site V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 V13 V14 V15 V16 V17 V18 V19
## 1    1  0  1  0  1  0  0  0  0  0   0   0   1   0   0   0   0   0   1   1
## 2    2  0  1  1  1  1  1  1  0  0   0   0   0   0   1   0   1   0   0   0
## 3    3  0  0  0  0  0  0  0  0  0   0   0   0   0   0   0   0   0   0   0
## 4    4  0  0  1  1  1  1  1  0  0   0   0   0   0   0   0   0   0   0   0
## 5    5  0  0  0  0  1  0  0  0  0   0   0   0   0   1   0   1   0   0   0
## 6    6  1  1  1  1  1  1  1  1  0   0   1   0   0   1   0   1   0   0   1
##   V20 V21 V22 V23 V24 V25 V26 V27 V28 V29 V30 V31 V32 V33 V34 V35 V36 V37
## 1   1   1   1   1   1   1   1   1   0   1   1   1   1   1   1   1   0   0
## 2   0   1   1   1   0   0   0   0   1   1   1   1   0   0   0   1   1   0
## 3   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 4   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 5   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   1   1   0
## 6   1   1   1   0   0   0   0   0   0   0   0   0   0   0   0   1   1   1
##   V38 V39 V40 V41 V42 V43 V44 V45 V46 V47 V48 V49 V50 V51 V52 V53 V54 V55
## 1   1   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 2   0   1   0   1   0   1   1   1   0   0   0   0   1   0   1   0   0   1
## 3   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 4   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 5   1   1   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 6   1   1   0   0   0   0   1   0   1   0   0   0   1   1   1   0   1   0
##   V56 V57 V58 V59 V60 V61 V62 V63 V64 V65 V66 V67 V68 V69 V70 V71 V72 V73
## 1   0   0   0   0   1   0   0   0   0   0   0   1   1   0   0   1   0   0
## 2   0   0   0   1   0   1   0   0   0   0   0   1   1   1   1   1   1   0
## 3   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 4   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 5   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 6   1   0   0   1   1   0   1   0   0   0   0   1   1   1   1   1   1   0
##   V74 V75 V76 V77 V78 V79 V80
## 1   0   1   0   0   0   0   0
## 2   0   0   0   0   0   0   0
## 3   0   1   0   0   1   0   0
## 4   0   0   0   0   0   0   0
## 5   0   0   0   0   0   0   0
## 6   0   1   1   1   1   0   0
input.history <- input.data[, -1]
head(input.history)
##   V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 V13 V14 V15 V16 V17 V18 V19 V20
## 1  0  1  0  1  0  0  0  0  0   0   0   1   0   0   0   0   0   1   1   1
## 2  0  1  1  1  1  1  1  0  0   0   0   0   0   1   0   1   0   0   0   0
## 3  0  0  0  0  0  0  0  0  0   0   0   0   0   0   0   0   0   0   0   0
## 4  0  0  1  1  1  1  1  0  0   0   0   0   0   0   0   0   0   0   0   0
## 5  0  0  0  0  1  0  0  0  0   0   0   0   0   1   0   1   0   0   0   0
## 6  1  1  1  1  1  1  1  1  0   0   1   0   0   1   0   1   0   0   1   1
##   V21 V22 V23 V24 V25 V26 V27 V28 V29 V30 V31 V32 V33 V34 V35 V36 V37 V38
## 1   1   1   1   1   1   1   1   0   1   1   1   1   1   1   1   0   0   1
## 2   1   1   1   0   0   0   0   1   1   1   1   0   0   0   1   1   0   0
## 3   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 4   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 5   0   0   0   0   0   0   0   0   0   0   0   0   0   0   1   1   0   1
## 6   1   1   0   0   0   0   0   0   0   0   0   0   0   0   1   1   1   1
##   V39 V40 V41 V42 V43 V44 V45 V46 V47 V48 V49 V50 V51 V52 V53 V54 V55 V56
## 1   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 2   1   0   1   0   1   1   1   0   0   0   0   1   0   1   0   0   1   0
## 3   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 4   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 5   1   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 6   1   0   0   0   0   1   0   1   0   0   0   1   1   1   0   1   0   1
##   V57 V58 V59 V60 V61 V62 V63 V64 V65 V66 V67 V68 V69 V70 V71 V72 V73 V74
## 1   0   0   0   1   0   0   0   0   0   0   1   1   0   0   1   0   0   0
## 2   0   0   1   0   1   0   0   0   0   0   1   1   1   1   1   1   0   0
## 3   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 4   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 5   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 6   0   0   1   1   0   1   0   0   0   0   1   1   1   1   1   1   0   0
##   V75 V76 V77 V78 V79 V80
## 1   1   0   0   0   0   0
## 2   0   0   0   0   0   0
## 3   1   0   0   1   0   0
## 4   0   0   0   0   0   0
## 5   0   0   0   0   0   0
## 6   1   1   1   1   0   0
# do some basic checks on your data 
# e.g. check number of sites; number of visits etc
nrow(input.history)
## [1] 55
ncol(input.history)
## [1] 80
range(input.history, na.rm=TRUE)
## [1] 0 1
sum(is.na(input.history))
## [1] 0
# site covariates - none.
#site.covar <- NULL





# Number of visits in each season
Nvisits.per.season  <- rep(8,10) 

# Create the *.pao file
nighingale.pao <- RPresence::createPao(input.history,
                                nsurveyseason=Nvisits.per.season,
                                #unitcov=site.covar,  # no site covariates
                                title='Nighingale SSMS')
nighingale.pao
## $nunits
## [1] 55
## 
## $nsurveys
## [1] 80
## 
## $nseasons
## [1] 10
## 
## $nmethods
## [1] 1
## 
## $det.data
##    V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 V13 V14 V15 V16 V17 V18 V19 V20
## 1   0  1  0  1  0  0  0  0  0   0   0   1   0   0   0   0   0   1   1   1
## 2   0  1  1  1  1  1  1  0  0   0   0   0   0   1   0   1   0   0   0   0
## 3   0  0  0  0  0  0  0  0  0   0   0   0   0   0   0   0   0   0   0   0
## 4   0  0  1  1  1  1  1  0  0   0   0   0   0   0   0   0   0   0   0   0
## 5   0  0  0  0  1  0  0  0  0   0   0   0   0   1   0   1   0   0   0   0
## 6   1  1  1  1  1  1  1  1  0   0   1   0   0   1   0   1   0   0   1   1
## 7   0  1  1  1  1  1  0  0  0   1   1   0   0   1   0   1   0   1   1   1
## 8   0  1  0  1  1  1  1  1  0   1   1   1   0   0   0   1   0   0   0   0
## 9   1  1  1  1  1  1  1  1  0   0   0   0   0   1   0   0   0   1   1   1
## 10  1  1  1  1  1  0  1  1  0   0   0   0   0   1   0   0   1   1   1   1
## 11  0  0  0  0  0  0  0  0  0   0   0   0   0   0   0   0   0   0   0   0
## 12  1  1  1  1  1  1  0  1  0   0   0   0   0   1   0   1   0   1   1   1
## 13  1  0  1  1  1  0  0  0  0   0   1   1   0   0   0   1   0   0   0   0
## 14  0  1  1  1  0  1  1  0  0   0   0   0   0   0   0   1   0   0   1   1
## 15  0  0  1  1  1  1  0  0  0   0   0   0   0   0   0   0   0   0   1   0
## 16  0  1  0  1  1  0  0  0  0   0   0   0   0   0   0   0   0   0   0   0
## 17  1  0  0  1  0  0  0  0  0   0   1   1   0   0   0   0   0   0   1   1
## 18  1  1  1  0  1  1  0  0  0   0   0   0   0   0   0   1   0   0   0   0
## 19  1  1  1  0  0  1  0  1  0   0   1   1   0   1   0   1   0   0   1   1
## 20  0  0  0  1  0  0  0  0  0   0   0   0   0   0   0   1   0   0   0   0
## 21  0  1  1  1  1  1  1  0  0   0   1   1   0   0   0   0   0   0   1   1
## 22  0  0  0  0  0  0  0  0  0   0   0   0   0   0   0   0   0   0   0   0
## 23  0  0  0  0  0  0  0  0  0   0   0   1   0   0   0   0   0   1   1   0
## 24  0  1  1  1  1  1  1  0  0   0   0   1   0   0   0   0   0   1   0   1
## 25  0  1  0  1  1  1  1  0  0   0   1   1   0   1   0   1   0   1   1   1
## 26  0  0  0  0  1  0  0  0  0   0   0   0   0   1   0   0   0   1   1   1
## 27  0  1  1  1  1  1  0  0  0   1   1   1   0   1   0   0   0   1   1   1
## 28  0  0  1  1  1  1  1  0  0   0   0   0   0   0   0   0   0   1   1   1
## 29  0  0  0  0  0  0  0  0  0   0   1   0   0   1   0   0   0   0   1   1
## 30  0  1  0  0  0  0  0  1  0   0   0   0   0   0   0   0   0   0   0   0
## 31  0  0  1  1  1  1  1  0  0   0   0   0   0   0   0   0   0   0   0   0
## 32  0  0  0  1  0  0  0  0  0   0   0   0   0   0   0   0   0   0   0   0
## 33  1  1  0  1  1  0  1  0  0   0   1   1   0   1   0   1   0   1   1   1
## 34  0  0  1  1  1  0  0  0  0   0   0   0   0   0   0   0   0   0   1   1
## 35  0  0  1  0  1  1  1  0  0   0   1   1   0   0   0   0   0   0   1   1
## 36  0  1  1  0  1  0  0  0  0   0   0   0   0   1   0   0   0   1   1   1
## 37  1  1  1  0  0  1  1  0  0   0   1   0   0   1   0   0   0   0   1   1
## 38  0  1  0  0  0  0  0  1  0   0   1   0   0   0   0   0   0   0   1   1
## 39  0  1  1  1  0  1  1  0  0   1   0   0   0   1   0   0   0   0   0   0
## 40  1  1  1  1  0  1  1  1  0   1   1   0   0   0   0   0   1   1   1   1
## 41  1  1  1  0  1  1  0  0  0   0   1   0   0   0   0   0   0   0   0   0
## 42  0  1  1  1  1  0  0  0  0   1   1   1   0   1   0   0   1   0   1   1
## 43  0  0  0  0  0  0  0  0  0   0   0   0   0   1   0   0   0   0   0   0
## 44  0  0  0  0  0  0  0  0  0   0   1   0   0   0   0   0   0   0   0   0
## 45  0  0  0  1  1  0  0  1  0   0   0   0   0   0   0   0   0   0   0   0
## 46  0  0  1  0  0  0  0  0  0   0   0   0   0   1   0   0   0   0   0   0
## 47  0  0  0  0  0  0  0  0  0   0   1   1   0   0   0   0   0   0   0   0
## 48  0  0  0  0  0  0  0  0  0   0   0   0   0   0   0   0   0   0   0   0
## 49  0  0  0  1  1  0  0  0  0   0   0   0   0   0   0   0   0   0   0   1
## 50  0  0  0  1  0  1  0  0  0   0   0   0   0   1   0   0   0   0   0   1
## 51  0  0  0  0  0  0  0  0  0   0   0   0   0   0   0   0   0   0   0   0
## 52  0  1  1  1  0  0  0  0  0   1   0   0   0   0   0   1   1   1   0   0
## 53  0  1  1  1  0  0  0  0  0   1   0   1   0   1   0   0   0   1   1   1
## 54  0  0  0  0  0  0  0  0  0   1   0   0   0   1   0   0   0   1   1   1
## 55  0  1  0  1  1  0  0  0  0   1   0   1   0   0   0   1   1   1   1   1
##    V21 V22 V23 V24 V25 V26 V27 V28 V29 V30 V31 V32 V33 V34 V35 V36 V37 V38
## 1    1   1   1   1   1   1   1   0   1   1   1   1   1   1   1   0   0   1
## 2    1   1   1   0   0   0   0   1   1   1   1   0   0   0   1   1   0   0
## 3    0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 4    0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 5    0   0   0   0   0   0   0   0   0   0   0   0   0   0   1   1   0   1
## 6    1   1   0   0   0   0   0   0   0   0   0   0   0   0   1   1   1   1
## 7    1   1   1   1   0   1   1   1   1   0   0   1   0   1   1   1   1   1
## 8    0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   1
## 9    1   1   1   1   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 10   1   1   1   1   1   1   1   0   1   1   0   0   0   1   1   1   1   1
## 11   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 12   1   1   1   1   0   0   0   0   0   0   0   0   0   0   1   1   1   1
## 13   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 14   1   1   1   1   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 15   1   1   1   1   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 16   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 17   1   1   1   1   0   1   1   0   1   1   0   0   0   0   0   0   0   0
## 18   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 19   1   1   1   1   1   1   1   0   1   1   1   1   0   0   0   0   1   0
## 20   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 21   1   1   1   0   0   0   1   0   0   1   0   0   0   1   0   0   1   0
## 22   0   1   1   1   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 23   1   0   1   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 24   1   1   1   1   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 25   1   1   1   1   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 26   1   1   1   1   0   0   0   0   0   0   0   0   1   0   0   1   0   0
## 27   1   1   1   1   0   1   1   0   1   1   1   1   0   0   1   0   0   1
## 28   1   1   1   0   0   1   1   1   1   1   1   1   1   0   1   0   0   0
## 29   1   1   1   1   0   1   1   1   1   1   1   1   1   1   1   1   0   0
## 30   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 31   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 32   0   0   0   0   0   1   1   1   1   0   0   0   1   0   0   1   0   1
## 33   1   1   1   1   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 34   0   1   1   1   1   1   1   1   1   1   1   1   0   1   1   0   0   1
## 35   1   1   1   1   0   1   0   0   1   1   1   1   0   0   0   1   1   1
## 36   1   1   1   1   1   1   1   1   0   1   1   1   0   1   0   1   0   1
## 37   1   1   1   1   1   1   1   1   1   1   1   1   0   1   1   1   0   0
## 38   1   1   0   1   1   1   1   1   1   1   1   1   0   1   0   0   0   0
## 39   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   1   1   0
## 40   1   1   1   1   1   1   1   1   1   1   1   0   0   1   1   1   0   1
## 41   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 42   1   1   1   1   0   1   1   1   1   1   1   1   0   0   0   1   1   1
## 43   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 44   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 45   1   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 46   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 47   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   1   0   0
## 48   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 49   1   1   1   1   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 50   1   1   1   1   0   1   1   1   1   1   0   1   1   1   1   0   0   0
## 51   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 52   1   1   1   1   1   1   1   0   1   0   0   0   0   1   1   0   1   1
## 53   1   1   1   1   1   1   1   1   1   1   1   1   0   1   1   1   1   1
## 54   1   1   1   1   1   1   1   1   1   1   1   1   0   0   0   0   0   0
## 55   1   1   1   1   1   1   1   0   1   1   1   0   0   1   0   1   1   0
##    V39 V40 V41 V42 V43 V44 V45 V46 V47 V48 V49 V50 V51 V52 V53 V54 V55 V56
## 1    0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 2    1   0   1   0   1   1   1   0   0   0   0   1   0   1   0   0   1   0
## 3    0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 4    0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 5    1   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 6    1   0   0   0   0   1   0   1   0   0   0   1   1   1   0   1   0   1
## 7    1   0   1   1   1   1   0   0   1   1   1   1   1   1   0   0   1   0
## 8    1   0   1   1   1   1   0   1   0   0   0   0   1   1   0   0   1   0
## 9    0   0   1   1   1   1   1   1   0   0   1   0   1   1   0   1   1   1
## 10   0   0   1   1   0   1   0   1   0   0   1   1   1   1   0   1   1   1
## 11   0   0   0   0   0   0   0   0   0   0   0   0   1   0   0   1   1   1
## 12   0   0   0   0   1   0   0   1   0   1   1   0   1   1   0   0   1   0
## 13   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 14   0   0   0   0   0   1   1   1   0   0   0   0   0   0   0   0   0   0
## 15   0   0   0   0   0   1   0   1   0   0   0   0   0   0   0   0   0   0
## 16   0   0   0   0   1   1   1   1   0   1   0   0   0   0   0   0   0   0
## 17   0   0   0   0   0   0   0   0   0   0   0   0   0   0   1   1   0   0
## 18   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 19   1   0   0   0   0   0   0   0   0   0   0   0   1   1   1   1   1   1
## 20   0   0   0   0   0   1   0   1   0   1   0   0   0   0   0   0   0   0
## 21   1   0   0   0   0   0   0   0   0   0   0   0   1   1   1   0   0   1
## 22   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 23   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 24   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 25   0   0   0   0   1   1   0   1   0   1   0   0   0   0   0   0   0   0
## 26   1   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 27   1   0   0   0   1   0   0   1   1   0   0   0   0   0   0   0   0   0
## 28   1   0   0   0   1   1   1   1   0   1   0   0   0   0   0   0   0   0
## 29   1   0   0   0   0   1   0   0   0   1   0   0   0   0   0   0   0   0
## 30   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 31   1   0   0   0   1   1   1   1   0   1   0   0   0   0   0   0   0   0
## 32   1   0   0   0   1   0   1   0   0   1   0   1   1   1   1   1   1   0
## 33   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 34   1   0   0   0   1   1   0   0   0   1   0   0   1   1   1   0   1   0
## 35   0   0   0   0   0   1   0   0   0   1   0   1   1   1   0   1   0   1
## 36   1   0   0   0   1   1   0   1   0   1   0   0   0   0   0   0   0   0
## 37   0   0   0   1   1   1   1   1   1   1   0   1   1   1   1   1   0   1
## 38   1   0   0   0   1   1   1   1   1   1   0   1   1   1   0   1   0   0
## 39   0   0   0   0   0   0   0   1   0   0   0   0   0   0   0   0   0   0
## 40   1   0   1   1   1   1   0   0   0   0   0   1   0   0   1   0   0   1
## 41   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 42   1   0   0   0   0   1   1   0   0   0   0   0   0   0   0   0   0   0
## 43   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 44   0   0   0   0   0   1   0   1   0   0   0   0   1   0   0   0   0   0
## 45   0   0   0   0   0   0   0   0   0   1   0   0   0   0   0   0   0   0
## 46   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   1   1   0
## 47   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 48   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 49   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 50   1   0   0   0   1   1   0   1   0   1   0   1   1   1   0   0   0   0
## 51   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 52   1   0   0   1   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 53   0   0   0   0   0   1   1   0   0   0   0   0   0   1   0   1   1   0
## 54   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 55   0   0   1   1   1   0   1   0   0   0   0   1   1   1   0   1   0   0
##    V57 V58 V59 V60 V61 V62 V63 V64 V65 V66 V67 V68 V69 V70 V71 V72 V73 V74
## 1    0   0   0   1   0   0   0   0   0   0   1   1   0   0   1   0   0   0
## 2    0   0   1   0   1   0   0   0   0   0   1   1   1   1   1   1   0   0
## 3    0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 4    0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 5    0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 6    0   0   1   1   0   1   0   0   0   0   1   1   1   1   1   1   0   0
## 7    0   0   1   1   0   0   0   0   1   0   0   1   0   1   0   0   0   0
## 8    0   0   1   1   0   1   0   0   1   0   1   0   0   0   0   0   0   1
## 9    0   1   1   1   1   1   0   0   0   0   0   1   0   1   1   0   0   1
## 10   0   0   0   0   0   0   0   0   1   0   1   1   1   1   0   0   1   1
## 11   0   0   0   1   1   0   0   0   0   0   0   0   0   0   0   0   0   1
## 12   0   1   1   1   0   0   0   0   1   0   1   1   1   1   1   0   1   1
## 13   0   0   0   0   0   0   0   0   0   0   0   1   0   0   0   0   1   1
## 14   0   0   0   0   0   0   0   0   0   0   1   1   1   0   1   0   0   1
## 15   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 16   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 17   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 18   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   1   1
## 19   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 20   0   0   1   0   1   1   0   0   0   0   0   0   0   0   0   0   0   0
## 21   0   0   1   1   1   1   0   0   0   0   0   0   0   0   0   0   0   0
## 22   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 23   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 24   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 25   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   1
## 26   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 27   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 28   0   0   1   0   1   0   1   0   0   0   0   0   0   0   0   0   1   1
## 29   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 30   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   1
## 31   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 32   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 33   0   1   1   0   0   0   0   0   1   0   1   1   0   1   1   1   0   0
## 34   0   0   0   0   0   0   0   0   0   1   1   1   1   1   1   1   1   1
## 35   0   0   0   1   1   0   0   0   1   0   0   0   1   1   1   0   0   0
## 36   0   0   0   0   0   0   0   0   0   0   1   1   0   1   1   1   0   0
## 37   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 38   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 39   0   0   1   0   1   0   0   0   0   0   1   1   1   1   1   1   1   1
## 40   0   1   1   0   0   0   0   0   0   0   0   0   1   0   1   0   0   0
## 41   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   1   1
## 42   0   0   0   0   0   0   0   0   0   0   1   0   1   0   0   0   0   0
## 43   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 44   0   0   0   0   0   0   0   0   0   1   1   0   0   0   0   0   0   0
## 45   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 46   0   0   0   1   0   0   0   0   0   0   0   1   1   0   0   0   0   0
## 47   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 48   0   0   0   0   0   1   0   0   0   0   0   0   0   0   0   0   0   0
## 49   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 50   0   0   1   0   1   0   0   0   0   0   0   0   0   0   0   0   0   0
## 51   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   1
## 52   0   0   1   0   0   0   0   0   0   1   1   0   0   0   1   0   0   1
## 53   0   0   0   0   0   0   0   0   0   1   0   0   1   1   1   0   0   0
## 54   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
## 55   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0
##    V75 V76 V77 V78 V79 V80
## 1    1   0   0   0   0   0
## 2    0   0   0   0   0   0
## 3    1   0   0   1   0   0
## 4    0   0   0   0   0   0
## 5    0   0   0   0   0   0
## 6    1   1   1   1   0   0
## 7    0   0   0   0   0   0
## 8    1   0   0   0   0   0
## 9    0   0   1   1   0   0
## 10   1   1   0   1   0   0
## 11   1   0   1   0   1   0
## 12   1   0   0   0   0   0
## 13   1   0   0   1   1   1
## 14   1   1   0   0   0   0
## 15   0   0   0   0   0   0
## 16   0   0   0   0   0   0
## 17   0   0   0   0   0   0
## 18   1   1   0   0   0   1
## 19   0   0   0   0   0   0
## 20   0   0   0   0   0   0
## 21   0   0   0   0   0   0
## 22   0   0   0   0   0   0
## 23   0   0   0   0   0   0
## 24   0   0   0   0   0   0
## 25   1   0   1   1   1   0
## 26   0   0   0   0   0   0
## 27   0   0   0   0   0   0
## 28   1   1   0   1   1   1
## 29   0   0   0   0   0   0
## 30   0   0   1   1   0   1
## 31   0   0   0   0   0   0
## 32   0   0   0   0   0   0
## 33   0   0   0   0   0   0
## 34   0   0   1   1   0   0
## 35   1   1   0   0   0   0
## 36   0   0   0   0   0   0
## 37   1   0   0   1   0   0
## 38   0   0   0   0   0   0
## 39   0   1   1   1   0   0
## 40   0   0   0   0   0   0
## 41   0   1   1   1   1   0
## 42   0   0   0   0   0   0
## 43   0   0   0   0   0   0
## 44   0   0   0   0   0   0
## 45   0   0   0   0   0   0
## 46   0   0   0   0   0   0
## 47   0   1   0   1   0   1
## 48   0   0   0   0   0   0
## 49   0   0   0   0   0   0
## 50   0   0   0   0   0   0
## 51   1   0   1   1   0   0
## 52   1   1   1   1   0   0
## 53   0   0   0   0   0   0
## 54   0   0   0   0   0   0
## 55   0   0   0   0   0   0
## 
## $nunitcov
## [1] 1
## 
## $unitcov
##    TEMP
## 1     1
## 2     2
## 3     3
## 4     4
## 5     5
## 6     6
## 7     7
## 8     8
## 9     9
## 10   10
## 11   11
## 12   12
## 13   13
## 14   14
## 15   15
## 16   16
## 17   17
## 18   18
## 19   19
## 20   20
## 21   21
## 22   22
## 23   23
## 24   24
## 25   25
## 26   26
## 27   27
## 28   28
## 29   29
## 30   30
## 31   31
## 32   32
## 33   33
## 34   34
## 35   35
## 36   36
## 37   37
## 38   38
## 39   39
## 40   40
## 41   41
## 42   42
## 43   43
## 44   44
## 45   45
## 46   46
## 47   47
## 48   48
## 49   49
## 50   50
## 51   51
## 52   52
## 53   53
## 54   54
## 55   55
## 
## $nsurvcov
## [1] 1
## 
## $survcov
##      SURVEY
## 1         1
## 2         1
## 3         1
## 4         1
## 5         1
## 6         1
## 7         1
## 8         1
## 9         1
## 10        1
## 11        1
## 12        1
## 13        1
## 14        1
## 15        1
## 16        1
## 17        1
## 18        1
## 19        1
## 20        1
## 21        1
## 22        1
## 23        1
## 24        1
## 25        1
## 26        1
## 27        1
## 28        1
## 29        1
## 30        1
## 31        1
## 32        1
## 33        1
## 34        1
## 35        1
## 36        1
## 37        1
## 38        1
## 39        1
## 40        1
## 41        1
## 42        1
## 43        1
## 44        1
## 45        1
## 46        1
## 47        1
## 48        1
## 49        1
## 50        1
## 51        1
## 52        1
## 53        1
## 54        1
## 55        1
## 56        2
## 57        2
## 58        2
## 59        2
## 60        2
## 61        2
## 62        2
## 63        2
## 64        2
## 65        2
## 66        2
## 67        2
## 68        2
## 69        2
## 70        2
## 71        2
## 72        2
## 73        2
## 74        2
## 75        2
## 76        2
## 77        2
## 78        2
## 79        2
## 80        2
## 81        2
## 82        2
## 83        2
## 84        2
## 85        2
## 86        2
## 87        2
## 88        2
## 89        2
## 90        2
## 91        2
## 92        2
## 93        2
## 94        2
## 95        2
## 96        2
## 97        2
## 98        2
## 99        2
## 100       2
## 101       2
## 102       2
## 103       2
## 104       2
## 105       2
## 106       2
## 107       2
## 108       2
## 109       2
## 110       2
## 111       3
## 112       3
## 113       3
## 114       3
## 115       3
## 116       3
## 117       3
## 118       3
## 119       3
## 120       3
## 121       3
## 122       3
## 123       3
## 124       3
## 125       3
## 126       3
## 127       3
## 128       3
## 129       3
## 130       3
## 131       3
## 132       3
## 133       3
## 134       3
## 135       3
## 136       3
## 137       3
## 138       3
## 139       3
## 140       3
## 141       3
## 142       3
## 143       3
## 144       3
## 145       3
## 146       3
## 147       3
## 148       3
## 149       3
## 150       3
## 151       3
## 152       3
## 153       3
## 154       3
## 155       3
## 156       3
## 157       3
## 158       3
## 159       3
## 160       3
## 161       3
## 162       3
## 163       3
## 164       3
## 165       3
## 166       4
## 167       4
## 168       4
## 169       4
## 170       4
## 171       4
## 172       4
## 173       4
## 174       4
## 175       4
## 176       4
## 177       4
## 178       4
## 179       4
## 180       4
## 181       4
## 182       4
## 183       4
## 184       4
## 185       4
## 186       4
## 187       4
## 188       4
## 189       4
## 190       4
## 191       4
## 192       4
## 193       4
## 194       4
## 195       4
## 196       4
## 197       4
## 198       4
## 199       4
## 200       4
## 201       4
## 202       4
## 203       4
## 204       4
## 205       4
## 206       4
## 207       4
## 208       4
## 209       4
## 210       4
## 211       4
## 212       4
## 213       4
## 214       4
## 215       4
## 216       4
## 217       4
## 218       4
## 219       4
## 220       4
## 221       5
## 222       5
## 223       5
## 224       5
## 225       5
## 226       5
## 227       5
## 228       5
## 229       5
## 230       5
## 231       5
## 232       5
## 233       5
## 234       5
## 235       5
## 236       5
## 237       5
## 238       5
## 239       5
## 240       5
## 241       5
## 242       5
## 243       5
## 244       5
## 245       5
## 246       5
## 247       5
## 248       5
## 249       5
## 250       5
## 251       5
## 252       5
## 253       5
## 254       5
## 255       5
## 256       5
## 257       5
## 258       5
## 259       5
## 260       5
## 261       5
## 262       5
## 263       5
## 264       5
## 265       5
## 266       5
## 267       5
## 268       5
## 269       5
## 270       5
## 271       5
## 272       5
## 273       5
## 274       5
## 275       5
## 276       6
## 277       6
## 278       6
## 279       6
## 280       6
## 281       6
## 282       6
## 283       6
## 284       6
## 285       6
## 286       6
## 287       6
## 288       6
## 289       6
## 290       6
## 291       6
## 292       6
## 293       6
## 294       6
## 295       6
## 296       6
## 297       6
## 298       6
## 299       6
## 300       6
## 301       6
## 302       6
## 303       6
## 304       6
## 305       6
## 306       6
## 307       6
## 308       6
## 309       6
## 310       6
## 311       6
## 312       6
## 313       6
## 314       6
## 315       6
## 316       6
## 317       6
## 318       6
## 319       6
## 320       6
## 321       6
## 322       6
## 323       6
## 324       6
## 325       6
## 326       6
## 327       6
## 328       6
## 329       6
## 330       6
## 331       7
## 332       7
## 333       7
## 334       7
## 335       7
## 336       7
## 337       7
## 338       7
## 339       7
## 340       7
## 341       7
## 342       7
## 343       7
## 344       7
## 345       7
## 346       7
## 347       7
## 348       7
## 349       7
## 350       7
## 351       7
## 352       7
## 353       7
## 354       7
## 355       7
## 356       7
## 357       7
## 358       7
## 359       7
## 360       7
## 361       7
## 362       7
## 363       7
## 364       7
## 365       7
## 366       7
## 367       7
## 368       7
## 369       7
## 370       7
## 371       7
## 372       7
## 373       7
## 374       7
## 375       7
## 376       7
## 377       7
## 378       7
## 379       7
## 380       7
## 381       7
## 382       7
## 383       7
## 384       7
## 385       7
## 386       8
## 387       8
## 388       8
## 389       8
## 390       8
## 391       8
## 392       8
## 393       8
## 394       8
## 395       8
## 396       8
## 397       8
## 398       8
## 399       8
## 400       8
## 401       8
## 402       8
## 403       8
## 404       8
## 405       8
## 406       8
## 407       8
## 408       8
## 409       8
## 410       8
## 411       8
## 412       8
## 413       8
## 414       8
## 415       8
## 416       8
## 417       8
## 418       8
## 419       8
## 420       8
## 421       8
## 422       8
## 423       8
## 424       8
## 425       8
## 426       8
## 427       8
## 428       8
## 429       8
## 430       8
## 431       8
## 432       8
## 433       8
## 434       8
## 435       8
## 436       8
## 437       8
## 438       8
## 439       8
## 440       8
## 441       9
## 442       9
## 443       9
## 444       9
## 445       9
## 446       9
## 447       9
## 448       9
## 449       9
## 450       9
## 451       9
## 452       9
## 453       9
## 454       9
## 455       9
## 456       9
## 457       9
## 458       9
## 459       9
## 460       9
## 461       9
## 462       9
## 463       9
## 464       9
## 465       9
## 466       9
## 467       9
## 468       9
## 469       9
## 470       9
## 471       9
## 472       9
## 473       9
## 474       9
## 475       9
## 476       9
## 477       9
## 478       9
## 479       9
## 480       9
## 481       9
## 482       9
## 483       9
## 484       9
## 485       9
## 486       9
## 487       9
## 488       9
## 489       9
## 490       9
## 491       9
## 492       9
## 493       9
## 494       9
## 495       9
## 496      10
## 497      10
## 498      10
## 499      10
## 500      10
## 501      10
## 502      10
## 503      10
## 504      10
## 505      10
## 506      10
## 507      10
## 508      10
## 509      10
## 510      10
## 511      10
## 512      10
## 513      10
## 514      10
## 515      10
## 516      10
## 517      10
## 518      10
## 519      10
## 520      10
## 521      10
## 522      10
## 523      10
## 524      10
## 525      10
## 526      10
## 527      10
## 528      10
## 529      10
## 530      10
## 531      10
## 532      10
## 533      10
## 534      10
## 535      10
## 536      10
## 537      10
## 538      10
## 539      10
## 540      10
## 541      10
## 542      10
## 543      10
## 544      10
## 545      10
## 546      10
## 547      10
## 548      10
## 549      10
## 550      10
## 551      11
## 552      11
## 553      11
## 554      11
## 555      11
## 556      11
## 557      11
## 558      11
## 559      11
## 560      11
## 561      11
## 562      11
## 563      11
## 564      11
## 565      11
## 566      11
## 567      11
## 568      11
## 569      11
## 570      11
## 571      11
## 572      11
## 573      11
## 574      11
## 575      11
## 576      11
## 577      11
## 578      11
## 579      11
## 580      11
## 581      11
## 582      11
## 583      11
## 584      11
## 585      11
## 586      11
## 587      11
## 588      11
## 589      11
## 590      11
## 591      11
## 592      11
## 593      11
## 594      11
## 595      11
## 596      11
## 597      11
## 598      11
## 599      11
## 600      11
## 601      11
## 602      11
## 603      11
## 604      11
## 605      11
## 606      12
## 607      12
## 608      12
## 609      12
## 610      12
## 611      12
## 612      12
## 613      12
## 614      12
## 615      12
## 616      12
## 617      12
## 618      12
## 619      12
## 620      12
## 621      12
## 622      12
## 623      12
## 624      12
## 625      12
## 626      12
## 627      12
## 628      12
## 629      12
## 630      12
## 631      12
## 632      12
## 633      12
## 634      12
## 635      12
## 636      12
## 637      12
## 638      12
## 639      12
## 640      12
## 641      12
## 642      12
## 643      12
## 644      12
## 645      12
## 646      12
## 647      12
## 648      12
## 649      12
## 650      12
## 651      12
## 652      12
## 653      12
## 654      12
## 655      12
## 656      12
## 657      12
## 658      12
## 659      12
## 660      12
## 661      13
## 662      13
## 663      13
## 664      13
## 665      13
## 666      13
## 667      13
## 668      13
## 669      13
## 670      13
## 671      13
## 672      13
## 673      13
## 674      13
## 675      13
## 676      13
## 677      13
## 678      13
## 679      13
## 680      13
## 681      13
## 682      13
## 683      13
## 684      13
## 685      13
## 686      13
## 687      13
## 688      13
## 689      13
## 690      13
## 691      13
## 692      13
## 693      13
## 694      13
## 695      13
## 696      13
## 697      13
## 698      13
## 699      13
## 700      13
## 701      13
## 702      13
## 703      13
## 704      13
## 705      13
## 706      13
## 707      13
## 708      13
## 709      13
## 710      13
## 711      13
## 712      13
## 713      13
## 714      13
## 715      13
## 716      14
## 717      14
## 718      14
## 719      14
## 720      14
## 721      14
## 722      14
## 723      14
## 724      14
## 725      14
## 726      14
## 727      14
## 728      14
## 729      14
## 730      14
## 731      14
## 732      14
## 733      14
## 734      14
## 735      14
## 736      14
## 737      14
## 738      14
## 739      14
## 740      14
## 741      14
## 742      14
## 743      14
## 744      14
## 745      14
## 746      14
## 747      14
## 748      14
## 749      14
## 750      14
## 751      14
## 752      14
## 753      14
## 754      14
## 755      14
## 756      14
## 757      14
## 758      14
## 759      14
## 760      14
## 761      14
## 762      14
## 763      14
## 764      14
## 765      14
## 766      14
## 767      14
## 768      14
## 769      14
## 770      14
## 771      15
## 772      15
## 773      15
## 774      15
## 775      15
## 776      15
## 777      15
## 778      15
## 779      15
## 780      15
## 781      15
## 782      15
## 783      15
## 784      15
## 785      15
## 786      15
## 787      15
## 788      15
## 789      15
## 790      15
## 791      15
## 792      15
## 793      15
## 794      15
## 795      15
## 796      15
## 797      15
## 798      15
## 799      15
## 800      15
## 801      15
## 802      15
## 803      15
## 804      15
## 805      15
## 806      15
## 807      15
## 808      15
## 809      15
## 810      15
## 811      15
## 812      15
## 813      15
## 814      15
## 815      15
## 816      15
## 817      15
## 818      15
## 819      15
## 820      15
## 821      15
## 822      15
## 823      15
## 824      15
## 825      15
## 826      16
## 827      16
## 828      16
## 829      16
## 830      16
## 831      16
## 832      16
## 833      16
## 834      16
## 835      16
## 836      16
## 837      16
## 838      16
## 839      16
## 840      16
## 841      16
## 842      16
## 843      16
## 844      16
## 845      16
## 846      16
## 847      16
## 848      16
## 849      16
## 850      16
## 851      16
## 852      16
## 853      16
## 854      16
## 855      16
## 856      16
## 857      16
## 858      16
## 859      16
## 860      16
## 861      16
## 862      16
## 863      16
## 864      16
## 865      16
## 866      16
## 867      16
## 868      16
## 869      16
## 870      16
## 871      16
## 872      16
## 873      16
## 874      16
## 875      16
## 876      16
## 877      16
## 878      16
## 879      16
## 880      16
## 881      17
## 882      17
## 883      17
## 884      17
## 885      17
## 886      17
## 887      17
## 888      17
## 889      17
## 890      17
## 891      17
## 892      17
## 893      17
## 894      17
## 895      17
## 896      17
## 897      17
## 898      17
## 899      17
## 900      17
## 901      17
## 902      17
## 903      17
## 904      17
## 905      17
## 906      17
## 907      17
## 908      17
## 909      17
## 910      17
## 911      17
## 912      17
## 913      17
## 914      17
## 915      17
## 916      17
## 917      17
## 918      17
## 919      17
## 920      17
## 921      17
## 922      17
## 923      17
## 924      17
## 925      17
## 926      17
## 927      17
## 928      17
## 929      17
## 930      17
## 931      17
## 932      17
## 933      17
## 934      17
## 935      17
## 936      18
## 937      18
## 938      18
## 939      18
## 940      18
## 941      18
## 942      18
## 943      18
## 944      18
## 945      18
## 946      18
## 947      18
## 948      18
## 949      18
## 950      18
## 951      18
## 952      18
## 953      18
## 954      18
## 955      18
## 956      18
## 957      18
## 958      18
## 959      18
## 960      18
## 961      18
## 962      18
## 963      18
## 964      18
## 965      18
## 966      18
## 967      18
## 968      18
## 969      18
## 970      18
## 971      18
## 972      18
## 973      18
## 974      18
## 975      18
## 976      18
## 977      18
## 978      18
## 979      18
## 980      18
## 981      18
## 982      18
## 983      18
## 984      18
## 985      18
## 986      18
## 987      18
## 988      18
## 989      18
## 990      18
## 991      19
## 992      19
## 993      19
## 994      19
## 995      19
## 996      19
## 997      19
## 998      19
## 999      19
## 1000     19
## 1001     19
## 1002     19
## 1003     19
## 1004     19
## 1005     19
## 1006     19
## 1007     19
## 1008     19
## 1009     19
## 1010     19
## 1011     19
## 1012     19
## 1013     19
## 1014     19
## 1015     19
## 1016     19
## 1017     19
## 1018     19
## 1019     19
## 1020     19
## 1021     19
## 1022     19
## 1023     19
## 1024     19
## 1025     19
## 1026     19
## 1027     19
## 1028     19
## 1029     19
## 1030     19
## 1031     19
## 1032     19
## 1033     19
## 1034     19
## 1035     19
## 1036     19
## 1037     19
## 1038     19
## 1039     19
## 1040     19
## 1041     19
## 1042     19
## 1043     19
## 1044     19
## 1045     19
## 1046     20
## 1047     20
## 1048     20
## 1049     20
## 1050     20
## 1051     20
## 1052     20
## 1053     20
## 1054     20
## 1055     20
## 1056     20
## 1057     20
## 1058     20
## 1059     20
## 1060     20
## 1061     20
## 1062     20
## 1063     20
## 1064     20
## 1065     20
## 1066     20
## 1067     20
## 1068     20
## 1069     20
## 1070     20
## 1071     20
## 1072     20
## 1073     20
## 1074     20
## 1075     20
## 1076     20
## 1077     20
## 1078     20
## 1079     20
## 1080     20
## 1081     20
## 1082     20
## 1083     20
## 1084     20
## 1085     20
## 1086     20
## 1087     20
## 1088     20
## 1089     20
## 1090     20
## 1091     20
## 1092     20
## 1093     20
## 1094     20
## 1095     20
## 1096     20
## 1097     20
## 1098     20
## 1099     20
## 1100     20
## 1101     21
## 1102     21
## 1103     21
## 1104     21
## 1105     21
## 1106     21
## 1107     21
## 1108     21
## 1109     21
## 1110     21
## 1111     21
## 1112     21
## 1113     21
## 1114     21
## 1115     21
## 1116     21
## 1117     21
## 1118     21
## 1119     21
## 1120     21
## 1121     21
## 1122     21
## 1123     21
## 1124     21
## 1125     21
## 1126     21
## 1127     21
## 1128     21
## 1129     21
## 1130     21
## 1131     21
## 1132     21
## 1133     21
## 1134     21
## 1135     21
## 1136     21
## 1137     21
## 1138     21
## 1139     21
## 1140     21
## 1141     21
## 1142     21
## 1143     21
## 1144     21
## 1145     21
## 1146     21
## 1147     21
## 1148     21
## 1149     21
## 1150     21
## 1151     21
## 1152     21
## 1153     21
## 1154     21
## 1155     21
## 1156     22
## 1157     22
## 1158     22
## 1159     22
## 1160     22
## 1161     22
## 1162     22
## 1163     22
## 1164     22
## 1165     22
## 1166     22
## 1167     22
## 1168     22
## 1169     22
## 1170     22
## 1171     22
## 1172     22
## 1173     22
## 1174     22
## 1175     22
## 1176     22
## 1177     22
## 1178     22
## 1179     22
## 1180     22
## 1181     22
## 1182     22
## 1183     22
## 1184     22
## 1185     22
## 1186     22
## 1187     22
## 1188     22
## 1189     22
## 1190     22
## 1191     22
## 1192     22
## 1193     22
## 1194     22
## 1195     22
## 1196     22
## 1197     22
## 1198     22
## 1199     22
## 1200     22
## 1201     22
## 1202     22
## 1203     22
## 1204     22
## 1205     22
## 1206     22
## 1207     22
## 1208     22
## 1209     22
## 1210     22
## 1211     23
## 1212     23
## 1213     23
## 1214     23
## 1215     23
## 1216     23
## 1217     23
## 1218     23
## 1219     23
## 1220     23
## 1221     23
## 1222     23
## 1223     23
## 1224     23
## 1225     23
## 1226     23
## 1227     23
## 1228     23
## 1229     23
## 1230     23
## 1231     23
## 1232     23
## 1233     23
## 1234     23
## 1235     23
## 1236     23
## 1237     23
## 1238     23
## 1239     23
## 1240     23
## 1241     23
## 1242     23
## 1243     23
## 1244     23
## 1245     23
## 1246     23
## 1247     23
## 1248     23
## 1249     23
## 1250     23
## 1251     23
## 1252     23
## 1253     23
## 1254     23
## 1255     23
## 1256     23
## 1257     23
## 1258     23
## 1259     23
## 1260     23
## 1261     23
## 1262     23
## 1263     23
## 1264     23
## 1265     23
## 1266     24
## 1267     24
## 1268     24
## 1269     24
## 1270     24
## 1271     24
## 1272     24
## 1273     24
## 1274     24
## 1275     24
## 1276     24
## 1277     24
## 1278     24
## 1279     24
## 1280     24
## 1281     24
## 1282     24
## 1283     24
## 1284     24
## 1285     24
## 1286     24
## 1287     24
## 1288     24
## 1289     24
## 1290     24
## 1291     24
## 1292     24
## 1293     24
## 1294     24
## 1295     24
## 1296     24
## 1297     24
## 1298     24
## 1299     24
## 1300     24
## 1301     24
## 1302     24
## 1303     24
## 1304     24
## 1305     24
## 1306     24
## 1307     24
## 1308     24
## 1309     24
## 1310     24
## 1311     24
## 1312     24
## 1313     24
## 1314     24
## 1315     24
## 1316     24
## 1317     24
## 1318     24
## 1319     24
## 1320     24
## 1321     25
## 1322     25
## 1323     25
## 1324     25
## 1325     25
## 1326     25
## 1327     25
## 1328     25
## 1329     25
## 1330     25
## 1331     25
## 1332     25
## 1333     25
## 1334     25
## 1335     25
## 1336     25
## 1337     25
## 1338     25
## 1339     25
## 1340     25
## 1341     25
## 1342     25
## 1343     25
## 1344     25
## 1345     25
## 1346     25
## 1347     25
## 1348     25
## 1349     25
## 1350     25
## 1351     25
## 1352     25
## 1353     25
## 1354     25
## 1355     25
## 1356     25
## 1357     25
## 1358     25
## 1359     25
## 1360     25
## 1361     25
## 1362     25
## 1363     25
## 1364     25
## 1365     25
## 1366     25
## 1367     25
## 1368     25
## 1369     25
## 1370     25
## 1371     25
## 1372     25
## 1373     25
## 1374     25
## 1375     25
## 1376     26
## 1377     26
## 1378     26
## 1379     26
## 1380     26
## 1381     26
## 1382     26
## 1383     26
## 1384     26
## 1385     26
## 1386     26
## 1387     26
## 1388     26
## 1389     26
## 1390     26
## 1391     26
## 1392     26
## 1393     26
## 1394     26
## 1395     26
## 1396     26
## 1397     26
## 1398     26
## 1399     26
## 1400     26
## 1401     26
## 1402     26
## 1403     26
## 1404     26
## 1405     26
## 1406     26
## 1407     26
## 1408     26
## 1409     26
## 1410     26
## 1411     26
## 1412     26
## 1413     26
## 1414     26
## 1415     26
## 1416     26
## 1417     26
## 1418     26
## 1419     26
## 1420     26
## 1421     26
## 1422     26
## 1423     26
## 1424     26
## 1425     26
## 1426     26
## 1427     26
## 1428     26
## 1429     26
## 1430     26
## 1431     27
## 1432     27
## 1433     27
## 1434     27
## 1435     27
## 1436     27
## 1437     27
## 1438     27
## 1439     27
## 1440     27
## 1441     27
## 1442     27
## 1443     27
## 1444     27
## 1445     27
## 1446     27
## 1447     27
## 1448     27
## 1449     27
## 1450     27
## 1451     27
## 1452     27
## 1453     27
## 1454     27
## 1455     27
## 1456     27
## 1457     27
## 1458     27
## 1459     27
## 1460     27
## 1461     27
## 1462     27
## 1463     27
## 1464     27
## 1465     27
## 1466     27
## 1467     27
## 1468     27
## 1469     27
## 1470     27
## 1471     27
## 1472     27
## 1473     27
## 1474     27
## 1475     27
## 1476     27
## 1477     27
## 1478     27
## 1479     27
## 1480     27
## 1481     27
## 1482     27
## 1483     27
## 1484     27
## 1485     27
## 1486     28
## 1487     28
## 1488     28
## 1489     28
## 1490     28
## 1491     28
## 1492     28
## 1493     28
## 1494     28
## 1495     28
## 1496     28
## 1497     28
## 1498     28
## 1499     28
## 1500     28
## 1501     28
## 1502     28
## 1503     28
## 1504     28
## 1505     28
## 1506     28
## 1507     28
## 1508     28
## 1509     28
## 1510     28
## 1511     28
## 1512     28
## 1513     28
## 1514     28
## 1515     28
## 1516     28
## 1517     28
## 1518     28
## 1519     28
## 1520     28
## 1521     28
## 1522     28
## 1523     28
## 1524     28
## 1525     28
## 1526     28
## 1527     28
## 1528     28
## 1529     28
## 1530     28
## 1531     28
## 1532     28
## 1533     28
## 1534     28
## 1535     28
## 1536     28
## 1537     28
## 1538     28
## 1539     28
## 1540     28
## 1541     29
## 1542     29
## 1543     29
## 1544     29
## 1545     29
## 1546     29
## 1547     29
## 1548     29
## 1549     29
## 1550     29
## 1551     29
## 1552     29
## 1553     29
## 1554     29
## 1555     29
## 1556     29
## 1557     29
## 1558     29
## 1559     29
## 1560     29
## 1561     29
## 1562     29
## 1563     29
## 1564     29
## 1565     29
## 1566     29
## 1567     29
## 1568     29
## 1569     29
## 1570     29
## 1571     29
## 1572     29
## 1573     29
## 1574     29
## 1575     29
## 1576     29
## 1577     29
## 1578     29
## 1579     29
## 1580     29
## 1581     29
## 1582     29
## 1583     29
## 1584     29
## 1585     29
## 1586     29
## 1587     29
## 1588     29
## 1589     29
## 1590     29
## 1591     29
## 1592     29
## 1593     29
## 1594     29
## 1595     29
## 1596     30
## 1597     30
## 1598     30
## 1599     30
## 1600     30
## 1601     30
## 1602     30
## 1603     30
## 1604     30
## 1605     30
## 1606     30
## 1607     30
## 1608     30
## 1609     30
## 1610     30
## 1611     30
## 1612     30
## 1613     30
## 1614     30
## 1615     30
## 1616     30
## 1617     30
## 1618     30
## 1619     30
## 1620     30
## 1621     30
## 1622     30
## 1623     30
## 1624     30
## 1625     30
## 1626     30
## 1627     30
## 1628     30
## 1629     30
## 1630     30
## 1631     30
## 1632     30
## 1633     30
## 1634     30
## 1635     30
## 1636     30
## 1637     30
## 1638     30
## 1639     30
## 1640     30
## 1641     30
## 1642     30
## 1643     30
## 1644     30
## 1645     30
## 1646     30
## 1647     30
## 1648     30
## 1649     30
## 1650     30
## 1651     31
## 1652     31
## 1653     31
## 1654     31
## 1655     31
## 1656     31
## 1657     31
## 1658     31
## 1659     31
## 1660     31
## 1661     31
## 1662     31
## 1663     31
## 1664     31
## 1665     31
## 1666     31
## 1667     31
## 1668     31
## 1669     31
## 1670     31
## 1671     31
## 1672     31
## 1673     31
## 1674     31
## 1675     31
## 1676     31
## 1677     31
## 1678     31
## 1679     31
## 1680     31
## 1681     31
## 1682     31
## 1683     31
## 1684     31
## 1685     31
## 1686     31
## 1687     31
## 1688     31
## 1689     31
## 1690     31
## 1691     31
## 1692     31
## 1693     31
## 1694     31
## 1695     31
## 1696     31
## 1697     31
## 1698     31
## 1699     31
## 1700     31
## 1701     31
## 1702     31
## 1703     31
## 1704     31
## 1705     31
## 1706     32
## 1707     32
## 1708     32
## 1709     32
## 1710     32
## 1711     32
## 1712     32
## 1713     32
## 1714     32
## 1715     32
## 1716     32
## 1717     32
## 1718     32
## 1719     32
## 1720     32
## 1721     32
## 1722     32
## 1723     32
## 1724     32
## 1725     32
## 1726     32
## 1727     32
## 1728     32
## 1729     32
## 1730     32
## 1731     32
## 1732     32
## 1733     32
## 1734     32
## 1735     32
## 1736     32
## 1737     32
## 1738     32
## 1739     32
## 1740     32
## 1741     32
## 1742     32
## 1743     32
## 1744     32
## 1745     32
## 1746     32
## 1747     32
## 1748     32
## 1749     32
## 1750     32
## 1751     32
## 1752     32
## 1753     32
## 1754     32
## 1755     32
## 1756     32
## 1757     32
## 1758     32
## 1759     32
## 1760     32
## 1761     33
## 1762     33
## 1763     33
## 1764     33
## 1765     33
## 1766     33
## 1767     33
## 1768     33
## 1769     33
## 1770     33
## 1771     33
## 1772     33
## 1773     33
## 1774     33
## 1775     33
## 1776     33
## 1777     33
## 1778     33
## 1779     33
## 1780     33
## 1781     33
## 1782     33
## 1783     33
## 1784     33
## 1785     33
## 1786     33
## 1787     33
## 1788     33
## 1789     33
## 1790     33
## 1791     33
## 1792     33
## 1793     33
## 1794     33
## 1795     33
## 1796     33
## 1797     33
## 1798     33
## 1799     33
## 1800     33
## 1801     33
## 1802     33
## 1803     33
## 1804     33
## 1805     33
## 1806     33
## 1807     33
## 1808     33
## 1809     33
## 1810     33
## 1811     33
## 1812     33
## 1813     33
## 1814     33
## 1815     33
## 1816     34
## 1817     34
## 1818     34
## 1819     34
## 1820     34
## 1821     34
## 1822     34
## 1823     34
## 1824     34
## 1825     34
## 1826     34
## 1827     34
## 1828     34
## 1829     34
## 1830     34
## 1831     34
## 1832     34
## 1833     34
## 1834     34
## 1835     34
## 1836     34
## 1837     34
## 1838     34
## 1839     34
## 1840     34
## 1841     34
## 1842     34
## 1843     34
## 1844     34
## 1845     34
## 1846     34
## 1847     34
## 1848     34
## 1849     34
## 1850     34
## 1851     34
## 1852     34
## 1853     34
## 1854     34
## 1855     34
## 1856     34
## 1857     34
## 1858     34
## 1859     34
## 1860     34
## 1861     34
## 1862     34
## 1863     34
## 1864     34
## 1865     34
## 1866     34
## 1867     34
## 1868     34
## 1869     34
## 1870     34
## 1871     35
## 1872     35
## 1873     35
## 1874     35
## 1875     35
## 1876     35
## 1877     35
## 1878     35
## 1879     35
## 1880     35
## 1881     35
## 1882     35
## 1883     35
## 1884     35
## 1885     35
## 1886     35
## 1887     35
## 1888     35
## 1889     35
## 1890     35
## 1891     35
## 1892     35
## 1893     35
## 1894     35
## 1895     35
## 1896     35
## 1897     35
## 1898     35
## 1899     35
## 1900     35
## 1901     35
## 1902     35
## 1903     35
## 1904     35
## 1905     35
## 1906     35
## 1907     35
## 1908     35
## 1909     35
## 1910     35
## 1911     35
## 1912     35
## 1913     35
## 1914     35
## 1915     35
## 1916     35
## 1917     35
## 1918     35
## 1919     35
## 1920     35
## 1921     35
## 1922     35
## 1923     35
## 1924     35
## 1925     35
## 1926     36
## 1927     36
## 1928     36
## 1929     36
## 1930     36
## 1931     36
## 1932     36
## 1933     36
## 1934     36
## 1935     36
## 1936     36
## 1937     36
## 1938     36
## 1939     36
## 1940     36
## 1941     36
## 1942     36
## 1943     36
## 1944     36
## 1945     36
## 1946     36
## 1947     36
## 1948     36
## 1949     36
## 1950     36
## 1951     36
## 1952     36
## 1953     36
## 1954     36
## 1955     36
## 1956     36
## 1957     36
## 1958     36
## 1959     36
## 1960     36
## 1961     36
## 1962     36
## 1963     36
## 1964     36
## 1965     36
## 1966     36
## 1967     36
## 1968     36
## 1969     36
## 1970     36
## 1971     36
## 1972     36
## 1973     36
## 1974     36
## 1975     36
## 1976     36
## 1977     36
## 1978     36
## 1979     36
## 1980     36
## 1981     37
## 1982     37
## 1983     37
## 1984     37
## 1985     37
## 1986     37
## 1987     37
## 1988     37
## 1989     37
## 1990     37
## 1991     37
## 1992     37
## 1993     37
## 1994     37
## 1995     37
## 1996     37
## 1997     37
## 1998     37
## 1999     37
## 2000     37
## 2001     37
## 2002     37
## 2003     37
## 2004     37
## 2005     37
## 2006     37
## 2007     37
## 2008     37
## 2009     37
## 2010     37
## 2011     37
## 2012     37
## 2013     37
## 2014     37
## 2015     37
## 2016     37
## 2017     37
## 2018     37
## 2019     37
## 2020     37
## 2021     37
## 2022     37
## 2023     37
## 2024     37
## 2025     37
## 2026     37
## 2027     37
## 2028     37
## 2029     37
## 2030     37
## 2031     37
## 2032     37
## 2033     37
## 2034     37
## 2035     37
## 2036     38
## 2037     38
## 2038     38
## 2039     38
## 2040     38
## 2041     38
## 2042     38
## 2043     38
## 2044     38
## 2045     38
## 2046     38
## 2047     38
## 2048     38
## 2049     38
## 2050     38
## 2051     38
## 2052     38
## 2053     38
## 2054     38
## 2055     38
## 2056     38
## 2057     38
## 2058     38
## 2059     38
## 2060     38
## 2061     38
## 2062     38
## 2063     38
## 2064     38
## 2065     38
## 2066     38
## 2067     38
## 2068     38
## 2069     38
## 2070     38
## 2071     38
## 2072     38
## 2073     38
## 2074     38
## 2075     38
## 2076     38
## 2077     38
## 2078     38
## 2079     38
## 2080     38
## 2081     38
## 2082     38
## 2083     38
## 2084     38
## 2085     38
## 2086     38
## 2087     38
## 2088     38
## 2089     38
## 2090     38
## 2091     39
## 2092     39
## 2093     39
## 2094     39
## 2095     39
## 2096     39
## 2097     39
## 2098     39
## 2099     39
## 2100     39
## 2101     39
## 2102     39
## 2103     39
## 2104     39
## 2105     39
## 2106     39
## 2107     39
## 2108     39
## 2109     39
## 2110     39
## 2111     39
## 2112     39
## 2113     39
## 2114     39
## 2115     39
## 2116     39
## 2117     39
## 2118     39
## 2119     39
## 2120     39
## 2121     39
## 2122     39
## 2123     39
## 2124     39
## 2125     39
## 2126     39
## 2127     39
## 2128     39
## 2129     39
## 2130     39
## 2131     39
## 2132     39
## 2133     39
## 2134     39
## 2135     39
## 2136     39
## 2137     39
## 2138     39
## 2139     39
## 2140     39
## 2141     39
## 2142     39
## 2143     39
## 2144     39
## 2145     39
## 2146     40
## 2147     40
## 2148     40
## 2149     40
## 2150     40
## 2151     40
## 2152     40
## 2153     40
## 2154     40
## 2155     40
## 2156     40
## 2157     40
## 2158     40
## 2159     40
## 2160     40
## 2161     40
## 2162     40
## 2163     40
## 2164     40
## 2165     40
## 2166     40
## 2167     40
## 2168     40
## 2169     40
## 2170     40
## 2171     40
## 2172     40
## 2173     40
## 2174     40
## 2175     40
## 2176     40
## 2177     40
## 2178     40
## 2179     40
## 2180     40
## 2181     40
## 2182     40
## 2183     40
## 2184     40
## 2185     40
## 2186     40
## 2187     40
## 2188     40
## 2189     40
## 2190     40
## 2191     40
## 2192     40
## 2193     40
## 2194     40
## 2195     40
## 2196     40
## 2197     40
## 2198     40
## 2199     40
## 2200     40
## 2201     41
## 2202     41
## 2203     41
## 2204     41
## 2205     41
## 2206     41
## 2207     41
## 2208     41
## 2209     41
## 2210     41
## 2211     41
## 2212     41
## 2213     41
## 2214     41
## 2215     41
## 2216     41
## 2217     41
## 2218     41
## 2219     41
## 2220     41
## 2221     41
## 2222     41
## 2223     41
## 2224     41
## 2225     41
## 2226     41
## 2227     41
## 2228     41
## 2229     41
## 2230     41
## 2231     41
## 2232     41
## 2233     41
## 2234     41
## 2235     41
## 2236     41
## 2237     41
## 2238     41
## 2239     41
## 2240     41
## 2241     41
## 2242     41
## 2243     41
## 2244     41
## 2245     41
## 2246     41
## 2247     41
## 2248     41
## 2249     41
## 2250     41
## 2251     41
## 2252     41
## 2253     41
## 2254     41
## 2255     41
## 2256     42
## 2257     42
## 2258     42
## 2259     42
## 2260     42
## 2261     42
## 2262     42
## 2263     42
## 2264     42
## 2265     42
## 2266     42
## 2267     42
## 2268     42
## 2269     42
## 2270     42
## 2271     42
## 2272     42
## 2273     42
## 2274     42
## 2275     42
## 2276     42
## 2277     42
## 2278     42
## 2279     42
## 2280     42
## 2281     42
## 2282     42
## 2283     42
## 2284     42
## 2285     42
## 2286     42
## 2287     42
## 2288     42
## 2289     42
## 2290     42
## 2291     42
## 2292     42
## 2293     42
## 2294     42
## 2295     42
## 2296     42
## 2297     42
## 2298     42
## 2299     42
## 2300     42
## 2301     42
## 2302     42
## 2303     42
## 2304     42
## 2305     42
## 2306     42
## 2307     42
## 2308     42
## 2309     42
## 2310     42
## 2311     43
## 2312     43
## 2313     43
## 2314     43
## 2315     43
## 2316     43
## 2317     43
## 2318     43
## 2319     43
## 2320     43
## 2321     43
## 2322     43
## 2323     43
## 2324     43
## 2325     43
## 2326     43
## 2327     43
## 2328     43
## 2329     43
## 2330     43
## 2331     43
## 2332     43
## 2333     43
## 2334     43
## 2335     43
## 2336     43
## 2337     43
## 2338     43
## 2339     43
## 2340     43
## 2341     43
## 2342     43
## 2343     43
## 2344     43
## 2345     43
## 2346     43
## 2347     43
## 2348     43
## 2349     43
## 2350     43
## 2351     43
## 2352     43
## 2353     43
## 2354     43
## 2355     43
## 2356     43
## 2357     43
## 2358     43
## 2359     43
## 2360     43
## 2361     43
## 2362     43
## 2363     43
## 2364     43
## 2365     43
## 2366     44
## 2367     44
## 2368     44
## 2369     44
## 2370     44
## 2371     44
## 2372     44
## 2373     44
## 2374     44
## 2375     44
## 2376     44
## 2377     44
## 2378     44
## 2379     44
## 2380     44
## 2381     44
## 2382     44
## 2383     44
## 2384     44
## 2385     44
## 2386     44
## 2387     44
## 2388     44
## 2389     44
## 2390     44
## 2391     44
## 2392     44
## 2393     44
## 2394     44
## 2395     44
## 2396     44
## 2397     44
## 2398     44
## 2399     44
## 2400     44
## 2401     44
## 2402     44
## 2403     44
## 2404     44
## 2405     44
## 2406     44
## 2407     44
## 2408     44
## 2409     44
## 2410     44
## 2411     44
## 2412     44
## 2413     44
## 2414     44
## 2415     44
## 2416     44
## 2417     44
## 2418     44
## 2419     44
## 2420     44
## 2421     45
## 2422     45
## 2423     45
## 2424     45
## 2425     45
## 2426     45
## 2427     45
## 2428     45
## 2429     45
## 2430     45
## 2431     45
## 2432     45
## 2433     45
## 2434     45
## 2435     45
## 2436     45
## 2437     45
## 2438     45
## 2439     45
## 2440     45
## 2441     45
## 2442     45
## 2443     45
## 2444     45
## 2445     45
## 2446     45
## 2447     45
## 2448     45
## 2449     45
## 2450     45
## 2451     45
## 2452     45
## 2453     45
## 2454     45
## 2455     45
## 2456     45
## 2457     45
## 2458     45
## 2459     45
## 2460     45
## 2461     45
## 2462     45
## 2463     45
## 2464     45
## 2465     45
## 2466     45
## 2467     45
## 2468     45
## 2469     45
## 2470     45
## 2471     45
## 2472     45
## 2473     45
## 2474     45
## 2475     45
## 2476     46
## 2477     46
## 2478     46
## 2479     46
## 2480     46
## 2481     46
## 2482     46
## 2483     46
## 2484     46
## 2485     46
## 2486     46
## 2487     46
## 2488     46
## 2489     46
## 2490     46
## 2491     46
## 2492     46
## 2493     46
## 2494     46
## 2495     46
## 2496     46
## 2497     46
## 2498     46
## 2499     46
## 2500     46
## 2501     46
## 2502     46
## 2503     46
## 2504     46
## 2505     46
## 2506     46
## 2507     46
## 2508     46
## 2509     46
## 2510     46
## 2511     46
## 2512     46
## 2513     46
## 2514     46
## 2515     46
## 2516     46
## 2517     46
## 2518     46
## 2519     46
## 2520     46
## 2521     46
## 2522     46
## 2523     46
## 2524     46
## 2525     46
## 2526     46
## 2527     46
## 2528     46
## 2529     46
## 2530     46
## 2531     47
## 2532     47
## 2533     47
## 2534     47
## 2535     47
## 2536     47
## 2537     47
## 2538     47
## 2539     47
## 2540     47
## 2541     47
## 2542     47
## 2543     47
## 2544     47
## 2545     47
## 2546     47
## 2547     47
## 2548     47
## 2549     47
## 2550     47
## 2551     47
## 2552     47
## 2553     47
## 2554     47
## 2555     47
## 2556     47
## 2557     47
## 2558     47
## 2559     47
## 2560     47
## 2561     47
## 2562     47
## 2563     47
## 2564     47
## 2565     47
## 2566     47
## 2567     47
## 2568     47
## 2569     47
## 2570     47
## 2571     47
## 2572     47
## 2573     47
## 2574     47
## 2575     47
## 2576     47
## 2577     47
## 2578     47
## 2579     47
## 2580     47
## 2581     47
## 2582     47
## 2583     47
## 2584     47
## 2585     47
## 2586     48
## 2587     48
## 2588     48
## 2589     48
## 2590     48
## 2591     48
## 2592     48
## 2593     48
## 2594     48
## 2595     48
## 2596     48
## 2597     48
## 2598     48
## 2599     48
## 2600     48
## 2601     48
## 2602     48
## 2603     48
## 2604     48
## 2605     48
## 2606     48
## 2607     48
## 2608     48
## 2609     48
## 2610     48
## 2611     48
## 2612     48
## 2613     48
## 2614     48
## 2615     48
## 2616     48
## 2617     48
## 2618     48
## 2619     48
## 2620     48
## 2621     48
## 2622     48
## 2623     48
## 2624     48
## 2625     48
## 2626     48
## 2627     48
## 2628     48
## 2629     48
## 2630     48
## 2631     48
## 2632     48
## 2633     48
## 2634     48
## 2635     48
## 2636     48
## 2637     48
## 2638     48
## 2639     48
## 2640     48
## 2641     49
## 2642     49
## 2643     49
## 2644     49
## 2645     49
## 2646     49
## 2647     49
## 2648     49
## 2649     49
## 2650     49
## 2651     49
## 2652     49
## 2653     49
## 2654     49
## 2655     49
## 2656     49
## 2657     49
## 2658     49
## 2659     49
## 2660     49
## 2661     49
## 2662     49
## 2663     49
## 2664     49
## 2665     49
## 2666     49
## 2667     49
## 2668     49
## 2669     49
## 2670     49
## 2671     49
## 2672     49
## 2673     49
## 2674     49
## 2675     49
## 2676     49
## 2677     49
## 2678     49
## 2679     49
## 2680     49
## 2681     49
## 2682     49
## 2683     49
## 2684     49
## 2685     49
## 2686     49
## 2687     49
## 2688     49
## 2689     49
## 2690     49
## 2691     49
## 2692     49
## 2693     49
## 2694     49
## 2695     49
## 2696     50
## 2697     50
## 2698     50
## 2699     50
## 2700     50
## 2701     50
## 2702     50
## 2703     50
## 2704     50
## 2705     50
## 2706     50
## 2707     50
## 2708     50
## 2709     50
## 2710     50
## 2711     50
## 2712     50
## 2713     50
## 2714     50
## 2715     50
## 2716     50
## 2717     50
## 2718     50
## 2719     50
## 2720     50
## 2721     50
## 2722     50
## 2723     50
## 2724     50
## 2725     50
## 2726     50
## 2727     50
## 2728     50
## 2729     50
## 2730     50
## 2731     50
## 2732     50
## 2733     50
## 2734     50
## 2735     50
## 2736     50
## 2737     50
## 2738     50
## 2739     50
## 2740     50
## 2741     50
## 2742     50
## 2743     50
## 2744     50
## 2745     50
## 2746     50
## 2747     50
## 2748     50
## 2749     50
## 2750     50
## 2751     51
## 2752     51
## 2753     51
## 2754     51
## 2755     51
## 2756     51
## 2757     51
## 2758     51
## 2759     51
## 2760     51
## 2761     51
## 2762     51
## 2763     51
## 2764     51
## 2765     51
## 2766     51
## 2767     51
## 2768     51
## 2769     51
## 2770     51
## 2771     51
## 2772     51
## 2773     51
## 2774     51
## 2775     51
## 2776     51
## 2777     51
## 2778     51
## 2779     51
## 2780     51
## 2781     51
## 2782     51
## 2783     51
## 2784     51
## 2785     51
## 2786     51
## 2787     51
## 2788     51
## 2789     51
## 2790     51
## 2791     51
## 2792     51
## 2793     51
## 2794     51
## 2795     51
## 2796     51
## 2797     51
## 2798     51
## 2799     51
## 2800     51
## 2801     51
## 2802     51
## 2803     51
## 2804     51
## 2805     51
## 2806     52
## 2807     52
## 2808     52
## 2809     52
## 2810     52
## 2811     52
## 2812     52
## 2813     52
## 2814     52
## 2815     52
## 2816     52
## 2817     52
## 2818     52
## 2819     52
## 2820     52
## 2821     52
## 2822     52
## 2823     52
## 2824     52
## 2825     52
## 2826     52
## 2827     52
## 2828     52
## 2829     52
## 2830     52
## 2831     52
## 2832     52
## 2833     52
## 2834     52
## 2835     52
## 2836     52
## 2837     52
## 2838     52
## 2839     52
## 2840     52
## 2841     52
## 2842     52
## 2843     52
## 2844     52
## 2845     52
## 2846     52
## 2847     52
## 2848     52
## 2849     52
## 2850     52
## 2851     52
## 2852     52
## 2853     52
## 2854     52
## 2855     52
## 2856     52
## 2857     52
## 2858     52
## 2859     52
## 2860     52
## 2861     53
## 2862     53
## 2863     53
## 2864     53
## 2865     53
## 2866     53
## 2867     53
## 2868     53
## 2869     53
## 2870     53
## 2871     53
## 2872     53
## 2873     53
## 2874     53
## 2875     53
## 2876     53
## 2877     53
## 2878     53
## 2879     53
## 2880     53
## 2881     53
## 2882     53
## 2883     53
## 2884     53
## 2885     53
## 2886     53
## 2887     53
## 2888     53
## 2889     53
## 2890     53
## 2891     53
## 2892     53
## 2893     53
## 2894     53
## 2895     53
## 2896     53
## 2897     53
## 2898     53
## 2899     53
## 2900     53
## 2901     53
## 2902     53
## 2903     53
## 2904     53
## 2905     53
## 2906     53
## 2907     53
## 2908     53
## 2909     53
## 2910     53
## 2911     53
## 2912     53
## 2913     53
## 2914     53
## 2915     53
## 2916     54
## 2917     54
## 2918     54
## 2919     54
## 2920     54
## 2921     54
## 2922     54
## 2923     54
## 2924     54
## 2925     54
## 2926     54
## 2927     54
## 2928     54
## 2929     54
## 2930     54
## 2931     54
## 2932     54
## 2933     54
## 2934     54
## 2935     54
## 2936     54
## 2937     54
## 2938     54
## 2939     54
## 2940     54
## 2941     54
## 2942     54
## 2943     54
## 2944     54
## 2945     54
## 2946     54
## 2947     54
## 2948     54
## 2949     54
## 2950     54
## 2951     54
## 2952     54
## 2953     54
## 2954     54
## 2955     54
## 2956     54
## 2957     54
## 2958     54
## 2959     54
## 2960     54
## 2961     54
## 2962     54
## 2963     54
## 2964     54
## 2965     54
## 2966     54
## 2967     54
## 2968     54
## 2969     54
## 2970     54
## 2971     55
## 2972     55
## 2973     55
## 2974     55
## 2975     55
## 2976     55
## 2977     55
## 2978     55
## 2979     55
## 2980     55
## 2981     55
## 2982     55
## 2983     55
## 2984     55
## 2985     55
## 2986     55
## 2987     55
## 2988     55
## 2989     55
## 2990     55
## 2991     55
## 2992     55
## 2993     55
## 2994     55
## 2995     55
## 2996     55
## 2997     55
## 2998     55
## 2999     55
## 3000     55
## 3001     55
## 3002     55
## 3003     55
## 3004     55
## 3005     55
## 3006     55
## 3007     55
## 3008     55
## 3009     55
## 3010     55
## 3011     55
## 3012     55
## 3013     55
## 3014     55
## 3015     55
## 3016     55
## 3017     55
## 3018     55
## 3019     55
## 3020     55
## 3021     55
## 3022     55
## 3023     55
## 3024     55
## 3025     55
## 3026     56
## 3027     56
## 3028     56
## 3029     56
## 3030     56
## 3031     56
## 3032     56
## 3033     56
## 3034     56
## 3035     56
## 3036     56
## 3037     56
## 3038     56
## 3039     56
## 3040     56
## 3041     56
## 3042     56
## 3043     56
## 3044     56
## 3045     56
## 3046     56
## 3047     56
## 3048     56
## 3049     56
## 3050     56
## 3051     56
## 3052     56
## 3053     56
## 3054     56
## 3055     56
## 3056     56
## 3057     56
## 3058     56
## 3059     56
## 3060     56
## 3061     56
## 3062     56
## 3063     56
## 3064     56
## 3065     56
## 3066     56
## 3067     56
## 3068     56
## 3069     56
## 3070     56
## 3071     56
## 3072     56
## 3073     56
## 3074     56
## 3075     56
## 3076     56
## 3077     56
## 3078     56
## 3079     56
## 3080     56
## 3081     57
## 3082     57
## 3083     57
## 3084     57
## 3085     57
## 3086     57
## 3087     57
## 3088     57
## 3089     57
## 3090     57
## 3091     57
## 3092     57
## 3093     57
## 3094     57
## 3095     57
## 3096     57
## 3097     57
## 3098     57
## 3099     57
## 3100     57
## 3101     57
## 3102     57
## 3103     57
## 3104     57
## 3105     57
## 3106     57
## 3107     57
## 3108     57
## 3109     57
## 3110     57
## 3111     57
## 3112     57
## 3113     57
## 3114     57
## 3115     57
## 3116     57
## 3117     57
## 3118     57
## 3119     57
## 3120     57
## 3121     57
## 3122     57
## 3123     57
## 3124     57
## 3125     57
## 3126     57
## 3127     57
## 3128     57
## 3129     57
## 3130     57
## 3131     57
## 3132     57
## 3133     57
## 3134     57
## 3135     57
## 3136     58
## 3137     58
## 3138     58
## 3139     58
## 3140     58
## 3141     58
## 3142     58
## 3143     58
## 3144     58
## 3145     58
## 3146     58
## 3147     58
## 3148     58
## 3149     58
## 3150     58
## 3151     58
## 3152     58
## 3153     58
## 3154     58
## 3155     58
## 3156     58
## 3157     58
## 3158     58
## 3159     58
## 3160     58
## 3161     58
## 3162     58
## 3163     58
## 3164     58
## 3165     58
## 3166     58
## 3167     58
## 3168     58
## 3169     58
## 3170     58
## 3171     58
## 3172     58
## 3173     58
## 3174     58
## 3175     58
## 3176     58
## 3177     58
## 3178     58
## 3179     58
## 3180     58
## 3181     58
## 3182     58
## 3183     58
## 3184     58
## 3185     58
## 3186     58
## 3187     58
## 3188     58
## 3189     58
## 3190     58
## 3191     59
## 3192     59
## 3193     59
## 3194     59
## 3195     59
## 3196     59
## 3197     59
## 3198     59
## 3199     59
## 3200     59
## 3201     59
## 3202     59
## 3203     59
## 3204     59
## 3205     59
## 3206     59
## 3207     59
## 3208     59
## 3209     59
## 3210     59
## 3211     59
## 3212     59
## 3213     59
## 3214     59
## 3215     59
## 3216     59
## 3217     59
## 3218     59
## 3219     59
## 3220     59
## 3221     59
## 3222     59
## 3223     59
## 3224     59
## 3225     59
## 3226     59
## 3227     59
## 3228     59
## 3229     59
## 3230     59
## 3231     59
## 3232     59
## 3233     59
## 3234     59
## 3235     59
## 3236     59
## 3237     59
## 3238     59
## 3239     59
## 3240     59
## 3241     59
## 3242     59
## 3243     59
## 3244     59
## 3245     59
## 3246     60
## 3247     60
## 3248     60
## 3249     60
## 3250     60
## 3251     60
## 3252     60
## 3253     60
## 3254     60
## 3255     60
## 3256     60
## 3257     60
## 3258     60
## 3259     60
## 3260     60
## 3261     60
## 3262     60
## 3263     60
## 3264     60
## 3265     60
## 3266     60
## 3267     60
## 3268     60
## 3269     60
## 3270     60
## 3271     60
## 3272     60
## 3273     60
## 3274     60
## 3275     60
## 3276     60
## 3277     60
## 3278     60
## 3279     60
## 3280     60
## 3281     60
## 3282     60
## 3283     60
## 3284     60
## 3285     60
## 3286     60
## 3287     60
## 3288     60
## 3289     60
## 3290     60
## 3291     60
## 3292     60
## 3293     60
## 3294     60
## 3295     60
## 3296     60
## 3297     60
## 3298     60
## 3299     60
## 3300     60
## 3301     61
## 3302     61
## 3303     61
## 3304     61
## 3305     61
## 3306     61
## 3307     61
## 3308     61
## 3309     61
## 3310     61
## 3311     61
## 3312     61
## 3313     61
## 3314     61
## 3315     61
## 3316     61
## 3317     61
## 3318     61
## 3319     61
## 3320     61
## 3321     61
## 3322     61
## 3323     61
## 3324     61
## 3325     61
## 3326     61
## 3327     61
## 3328     61
## 3329     61
## 3330     61
## 3331     61
## 3332     61
## 3333     61
## 3334     61
## 3335     61
## 3336     61
## 3337     61
## 3338     61
## 3339     61
## 3340     61
## 3341     61
## 3342     61
## 3343     61
## 3344     61
## 3345     61
## 3346     61
## 3347     61
## 3348     61
## 3349     61
## 3350     61
## 3351     61
## 3352     61
## 3353     61
## 3354     61
## 3355     61
## 3356     62
## 3357     62
## 3358     62
## 3359     62
## 3360     62
## 3361     62
## 3362     62
## 3363     62
## 3364     62
## 3365     62
## 3366     62
## 3367     62
## 3368     62
## 3369     62
## 3370     62
## 3371     62
## 3372     62
## 3373     62
## 3374     62
## 3375     62
## 3376     62
## 3377     62
## 3378     62
## 3379     62
## 3380     62
## 3381     62
## 3382     62
## 3383     62
## 3384     62
## 3385     62
## 3386     62
## 3387     62
## 3388     62
## 3389     62
## 3390     62
## 3391     62
## 3392     62
## 3393     62
## 3394     62
## 3395     62
## 3396     62
## 3397     62
## 3398     62
## 3399     62
## 3400     62
## 3401     62
## 3402     62
## 3403     62
## 3404     62
## 3405     62
## 3406     62
## 3407     62
## 3408     62
## 3409     62
## 3410     62
## 3411     63
## 3412     63
## 3413     63
## 3414     63
## 3415     63
## 3416     63
## 3417     63
## 3418     63
## 3419     63
## 3420     63
## 3421     63
## 3422     63
## 3423     63
## 3424     63
## 3425     63
## 3426     63
## 3427     63
## 3428     63
## 3429     63
## 3430     63
## 3431     63
## 3432     63
## 3433     63
## 3434     63
## 3435     63
## 3436     63
## 3437     63
## 3438     63
## 3439     63
## 3440     63
## 3441     63
## 3442     63
## 3443     63
## 3444     63
## 3445     63
## 3446     63
## 3447     63
## 3448     63
## 3449     63
## 3450     63
## 3451     63
## 3452     63
## 3453     63
## 3454     63
## 3455     63
## 3456     63
## 3457     63
## 3458     63
## 3459     63
## 3460     63
## 3461     63
## 3462     63
## 3463     63
## 3464     63
## 3465     63
## 3466     64
## 3467     64
## 3468     64
## 3469     64
## 3470     64
## 3471     64
## 3472     64
## 3473     64
## 3474     64
## 3475     64
## 3476     64
## 3477     64
## 3478     64
## 3479     64
## 3480     64
## 3481     64
## 3482     64
## 3483     64
## 3484     64
## 3485     64
## 3486     64
## 3487     64
## 3488     64
## 3489     64
## 3490     64
## 3491     64
## 3492     64
## 3493     64
## 3494     64
## 3495     64
## 3496     64
## 3497     64
## 3498     64
## 3499     64
## 3500     64
## 3501     64
## 3502     64
## 3503     64
## 3504     64
## 3505     64
## 3506     64
## 3507     64
## 3508     64
## 3509     64
## 3510     64
## 3511     64
## 3512     64
## 3513     64
## 3514     64
## 3515     64
## 3516     64
## 3517     64
## 3518     64
## 3519     64
## 3520     64
## 3521     65
## 3522     65
## 3523     65
## 3524     65
## 3525     65
## 3526     65
## 3527     65
## 3528     65
## 3529     65
## 3530     65
## 3531     65
## 3532     65
## 3533     65
## 3534     65
## 3535     65
## 3536     65
## 3537     65
## 3538     65
## 3539     65
## 3540     65
## 3541     65
## 3542     65
## 3543     65
## 3544     65
## 3545     65
## 3546     65
## 3547     65
## 3548     65
## 3549     65
## 3550     65
## 3551     65
## 3552     65
## 3553     65
## 3554     65
## 3555     65
## 3556     65
## 3557     65
## 3558     65
## 3559     65
## 3560     65
## 3561     65
## 3562     65
## 3563     65
## 3564     65
## 3565     65
## 3566     65
## 3567     65
## 3568     65
## 3569     65
## 3570     65
## 3571     65
## 3572     65
## 3573     65
## 3574     65
## 3575     65
## 3576     66
## 3577     66
## 3578     66
## 3579     66
## 3580     66
## 3581     66
## 3582     66
## 3583     66
## 3584     66
## 3585     66
## 3586     66
## 3587     66
## 3588     66
## 3589     66
## 3590     66
## 3591     66
## 3592     66
## 3593     66
## 3594     66
## 3595     66
## 3596     66
## 3597     66
## 3598     66
## 3599     66
## 3600     66
## 3601     66
## 3602     66
## 3603     66
## 3604     66
## 3605     66
## 3606     66
## 3607     66
## 3608     66
## 3609     66
## 3610     66
## 3611     66
## 3612     66
## 3613     66
## 3614     66
## 3615     66
## 3616     66
## 3617     66
## 3618     66
## 3619     66
## 3620     66
## 3621     66
## 3622     66
## 3623     66
## 3624     66
## 3625     66
## 3626     66
## 3627     66
## 3628     66
## 3629     66
## 3630     66
## 3631     67
## 3632     67
## 3633     67
## 3634     67
## 3635     67
## 3636     67
## 3637     67
## 3638     67
## 3639     67
## 3640     67
## 3641     67
## 3642     67
## 3643     67
## 3644     67
## 3645     67
## 3646     67
## 3647     67
## 3648     67
## 3649     67
## 3650     67
## 3651     67
## 3652     67
## 3653     67
## 3654     67
## 3655     67
## 3656     67
## 3657     67
## 3658     67
## 3659     67
## 3660     67
## 3661     67
## 3662     67
## 3663     67
## 3664     67
## 3665     67
## 3666     67
## 3667     67
## 3668     67
## 3669     67
## 3670     67
## 3671     67
## 3672     67
## 3673     67
## 3674     67
## 3675     67
## 3676     67
## 3677     67
## 3678     67
## 3679     67
## 3680     67
## 3681     67
## 3682     67
## 3683     67
## 3684     67
## 3685     67
## 3686     68
## 3687     68
## 3688     68
## 3689     68
## 3690     68
## 3691     68
## 3692     68
## 3693     68
## 3694     68
## 3695     68
## 3696     68
## 3697     68
## 3698     68
## 3699     68
## 3700     68
## 3701     68
## 3702     68
## 3703     68
## 3704     68
## 3705     68
## 3706     68
## 3707     68
## 3708     68
## 3709     68
## 3710     68
## 3711     68
## 3712     68
## 3713     68
## 3714     68
## 3715     68
## 3716     68
## 3717     68
## 3718     68
## 3719     68
## 3720     68
## 3721     68
## 3722     68
## 3723     68
## 3724     68
## 3725     68
## 3726     68
## 3727     68
## 3728     68
## 3729     68
## 3730     68
## 3731     68
## 3732     68
## 3733     68
## 3734     68
## 3735     68
## 3736     68
## 3737     68
## 3738     68
## 3739     68
## 3740     68
## 3741     69
## 3742     69
## 3743     69
## 3744     69
## 3745     69
## 3746     69
## 3747     69
## 3748     69
## 3749     69
## 3750     69
## 3751     69
## 3752     69
## 3753     69
## 3754     69
## 3755     69
## 3756     69
## 3757     69
## 3758     69
## 3759     69
## 3760     69
## 3761     69
## 3762     69
## 3763     69
## 3764     69
## 3765     69
## 3766     69
## 3767     69
## 3768     69
## 3769     69
## 3770     69
## 3771     69
## 3772     69
## 3773     69
## 3774     69
## 3775     69
## 3776     69
## 3777     69
## 3778     69
## 3779     69
## 3780     69
## 3781     69
## 3782     69
## 3783     69
## 3784     69
## 3785     69
## 3786     69
## 3787     69
## 3788     69
## 3789     69
## 3790     69
## 3791     69
## 3792     69
## 3793     69
## 3794     69
## 3795     69
## 3796     70
## 3797     70
## 3798     70
## 3799     70
## 3800     70
## 3801     70
## 3802     70
## 3803     70
## 3804     70
## 3805     70
## 3806     70
## 3807     70
## 3808     70
## 3809     70
## 3810     70
## 3811     70
## 3812     70
## 3813     70
## 3814     70
## 3815     70
## 3816     70
## 3817     70
## 3818     70
## 3819     70
## 3820     70
## 3821     70
## 3822     70
## 3823     70
## 3824     70
## 3825     70
## 3826     70
## 3827     70
## 3828     70
## 3829     70
## 3830     70
## 3831     70
## 3832     70
## 3833     70
## 3834     70
## 3835     70
## 3836     70
## 3837     70
## 3838     70
## 3839     70
## 3840     70
## 3841     70
## 3842     70
## 3843     70
## 3844     70
## 3845     70
## 3846     70
## 3847     70
## 3848     70
## 3849     70
## 3850     70
## 3851     71
## 3852     71
## 3853     71
## 3854     71
## 3855     71
## 3856     71
## 3857     71
## 3858     71
## 3859     71
## 3860     71
## 3861     71
## 3862     71
## 3863     71
## 3864     71
## 3865     71
## 3866     71
## 3867     71
## 3868     71
## 3869     71
## 3870     71
## 3871     71
## 3872     71
## 3873     71
## 3874     71
## 3875     71
## 3876     71
## 3877     71
## 3878     71
## 3879     71
## 3880     71
## 3881     71
## 3882     71
## 3883     71
## 3884     71
## 3885     71
## 3886     71
## 3887     71
## 3888     71
## 3889     71
## 3890     71
## 3891     71
## 3892     71
## 3893     71
## 3894     71
## 3895     71
## 3896     71
## 3897     71
## 3898     71
## 3899     71
## 3900     71
## 3901     71
## 3902     71
## 3903     71
## 3904     71
## 3905     71
## 3906     72
## 3907     72
## 3908     72
## 3909     72
## 3910     72
## 3911     72
## 3912     72
## 3913     72
## 3914     72
## 3915     72
## 3916     72
## 3917     72
## 3918     72
## 3919     72
## 3920     72
## 3921     72
## 3922     72
## 3923     72
## 3924     72
## 3925     72
## 3926     72
## 3927     72
## 3928     72
## 3929     72
## 3930     72
## 3931     72
## 3932     72
## 3933     72
## 3934     72
## 3935     72
## 3936     72
## 3937     72
## 3938     72
## 3939     72
## 3940     72
## 3941     72
## 3942     72
## 3943     72
## 3944     72
## 3945     72
## 3946     72
## 3947     72
## 3948     72
## 3949     72
## 3950     72
## 3951     72
## 3952     72
## 3953     72
## 3954     72
## 3955     72
## 3956     72
## 3957     72
## 3958     72
## 3959     72
## 3960     72
## 3961     73
## 3962     73
## 3963     73
## 3964     73
## 3965     73
## 3966     73
## 3967     73
## 3968     73
## 3969     73
## 3970     73
## 3971     73
## 3972     73
## 3973     73
## 3974     73
## 3975     73
## 3976     73
## 3977     73
## 3978     73
## 3979     73
## 3980     73
## 3981     73
## 3982     73
## 3983     73
## 3984     73
## 3985     73
## 3986     73
## 3987     73
## 3988     73
## 3989     73
## 3990     73
## 3991     73
## 3992     73
## 3993     73
## 3994     73
## 3995     73
## 3996     73
## 3997     73
## 3998     73
## 3999     73
## 4000     73
## 4001     73
## 4002     73
## 4003     73
## 4004     73
## 4005     73
## 4006     73
## 4007     73
## 4008     73
## 4009     73
## 4010     73
## 4011     73
## 4012     73
## 4013     73
## 4014     73
## 4015     73
## 4016     74
## 4017     74
## 4018     74
## 4019     74
## 4020     74
## 4021     74
## 4022     74
## 4023     74
## 4024     74
## 4025     74
## 4026     74
## 4027     74
## 4028     74
## 4029     74
## 4030     74
## 4031     74
## 4032     74
## 4033     74
## 4034     74
## 4035     74
## 4036     74
## 4037     74
## 4038     74
## 4039     74
## 4040     74
## 4041     74
## 4042     74
## 4043     74
## 4044     74
## 4045     74
## 4046     74
## 4047     74
## 4048     74
## 4049     74
## 4050     74
## 4051     74
## 4052     74
## 4053     74
## 4054     74
## 4055     74
## 4056     74
## 4057     74
## 4058     74
## 4059     74
## 4060     74
## 4061     74
## 4062     74
## 4063     74
## 4064     74
## 4065     74
## 4066     74
## 4067     74
## 4068     74
## 4069     74
## 4070     74
## 4071     75
## 4072     75
## 4073     75
## 4074     75
## 4075     75
## 4076     75
## 4077     75
## 4078     75
## 4079     75
## 4080     75
## 4081     75
## 4082     75
## 4083     75
## 4084     75
## 4085     75
## 4086     75
## 4087     75
## 4088     75
## 4089     75
## 4090     75
## 4091     75
## 4092     75
## 4093     75
## 4094     75
## 4095     75
## 4096     75
## 4097     75
## 4098     75
## 4099     75
## 4100     75
## 4101     75
## 4102     75
## 4103     75
## 4104     75
## 4105     75
## 4106     75
## 4107     75
## 4108     75
## 4109     75
## 4110     75
## 4111     75
## 4112     75
## 4113     75
## 4114     75
## 4115     75
## 4116     75
## 4117     75
## 4118     75
## 4119     75
## 4120     75
## 4121     75
## 4122     75
## 4123     75
## 4124     75
## 4125     75
## 4126     76
## 4127     76
## 4128     76
## 4129     76
## 4130     76
## 4131     76
## 4132     76
## 4133     76
## 4134     76
## 4135     76
## 4136     76
## 4137     76
## 4138     76
## 4139     76
## 4140     76
## 4141     76
## 4142     76
## 4143     76
## 4144     76
## 4145     76
## 4146     76
## 4147     76
## 4148     76
## 4149     76
## 4150     76
## 4151     76
## 4152     76
## 4153     76
## 4154     76
## 4155     76
## 4156     76
## 4157     76
## 4158     76
## 4159     76
## 4160     76
## 4161     76
## 4162     76
## 4163     76
## 4164     76
## 4165     76
## 4166     76
## 4167     76
## 4168     76
## 4169     76
## 4170     76
## 4171     76
## 4172     76
## 4173     76
## 4174     76
## 4175     76
## 4176     76
## 4177     76
## 4178     76
## 4179     76
## 4180     76
## 4181     77
## 4182     77
## 4183     77
## 4184     77
## 4185     77
## 4186     77
## 4187     77
## 4188     77
## 4189     77
## 4190     77
## 4191     77
## 4192     77
## 4193     77
## 4194     77
## 4195     77
## 4196     77
## 4197     77
## 4198     77
## 4199     77
## 4200     77
## 4201     77
## 4202     77
## 4203     77
## 4204     77
## 4205     77
## 4206     77
## 4207     77
## 4208     77
## 4209     77
## 4210     77
## 4211     77
## 4212     77
## 4213     77
## 4214     77
## 4215     77
## 4216     77
## 4217     77
## 4218     77
## 4219     77
## 4220     77
## 4221     77
## 4222     77
## 4223     77
## 4224     77
## 4225     77
## 4226     77
## 4227     77
## 4228     77
## 4229     77
## 4230     77
## 4231     77
## 4232     77
## 4233     77
## 4234     77
## 4235     77
## 4236     78
## 4237     78
## 4238     78
## 4239     78
## 4240     78
## 4241     78
## 4242     78
## 4243     78
## 4244     78
## 4245     78
## 4246     78
## 4247     78
## 4248     78
## 4249     78
## 4250     78
## 4251     78
## 4252     78
## 4253     78
## 4254     78
## 4255     78
## 4256     78
## 4257     78
## 4258     78
## 4259     78
## 4260     78
## 4261     78
## 4262     78
## 4263     78
## 4264     78
## 4265     78
## 4266     78
## 4267     78
## 4268     78
## 4269     78
## 4270     78
## 4271     78
## 4272     78
## 4273     78
## 4274     78
## 4275     78
## 4276     78
## 4277     78
## 4278     78
## 4279     78
## 4280     78
## 4281     78
## 4282     78
## 4283     78
## 4284     78
## 4285     78
## 4286     78
## 4287     78
## 4288     78
## 4289     78
## 4290     78
## 4291     79
## 4292     79
## 4293     79
## 4294     79
## 4295     79
## 4296     79
## 4297     79
## 4298     79
## 4299     79
## 4300     79
## 4301     79
## 4302     79
## 4303     79
## 4304     79
## 4305     79
## 4306     79
## 4307     79
## 4308     79
## 4309     79
## 4310     79
## 4311     79
## 4312     79
## 4313     79
## 4314     79
## 4315     79
## 4316     79
## 4317     79
## 4318     79
## 4319     79
## 4320     79
## 4321     79
## 4322     79
## 4323     79
## 4324     79
## 4325     79
## 4326     79
## 4327     79
## 4328     79
## 4329     79
## 4330     79
## 4331     79
## 4332     79
## 4333     79
## 4334     79
## 4335     79
## 4336     79
## 4337     79
## 4338     79
## 4339     79
## 4340     79
## 4341     79
## 4342     79
## 4343     79
## 4344     79
## 4345     79
## 4346     80
## 4347     80
## 4348     80
## 4349     80
## 4350     80
## 4351     80
## 4352     80
## 4353     80
## 4354     80
## 4355     80
## 4356     80
## 4357     80
## 4358     80
## 4359     80
## 4360     80
## 4361     80
## 4362     80
## 4363     80
## 4364     80
## 4365     80
## 4366     80
## 4367     80
## 4368     80
## 4369     80
## 4370     80
## 4371     80
## 4372     80
## 4373     80
## 4374     80
## 4375     80
## 4376     80
## 4377     80
## 4378     80
## 4379     80
## 4380     80
## 4381     80
## 4382     80
## 4383     80
## 4384     80
## 4385     80
## 4386     80
## 4387     80
## 4388     80
## 4389     80
## 4390     80
## 4391     80
## 4392     80
## 4393     80
## 4394     80
## 4395     80
## 4396     80
## 4397     80
## 4398     80
## 4399     80
## 4400     80
## 
## $nsurveyseason
##  [1] 8 8 8 8 8 8 8 8 8 8
## 
## $title
## [1] "Nighingale SSMS"
## 
## $unitnames
##  [1] "unit1"  "unit2"  "unit3"  "unit4"  "unit5"  "unit6"  "unit7" 
##  [8] "unit8"  "unit9"  "unit10" "unit11" "unit12" "unit13" "unit14"
## [15] "unit15" "unit16" "unit17" "unit18" "unit19" "unit20" "unit21"
## [22] "unit22" "unit23" "unit24" "unit25" "unit26" "unit27" "unit28"
## [29] "unit29" "unit30" "unit31" "unit32" "unit33" "unit34" "unit35"
## [36] "unit36" "unit37" "unit38" "unit39" "unit40" "unit41" "unit42"
## [43] "unit43" "unit44" "unit45" "unit46" "unit47" "unit48" "unit49"
## [50] "unit50" "unit51" "unit52" "unit53" "unit54" "unit55"
## 
## $surveynames
##  [1] "1-1"  "1-2"  "1-3"  "1-4"  "1-5"  "1-6"  "1-7"  "1-8"  "2-1"  "2-2" 
## [11] "2-3"  "2-4"  "2-5"  "2-6"  "2-7"  "2-8"  "3-1"  "3-2"  "3-3"  "3-4" 
## [21] "3-5"  "3-6"  "3-7"  "3-8"  "4-1"  "4-2"  "4-3"  "4-4"  "4-5"  "4-6" 
## [31] "4-7"  "4-8"  "5-1"  "5-2"  "5-3"  "5-4"  "5-5"  "5-6"  "5-7"  "5-8" 
## [41] "6-1"  "6-2"  "6-3"  "6-4"  "6-5"  "6-6"  "6-7"  "6-8"  "7-1"  "7-2" 
## [51] "7-3"  "7-4"  "7-5"  "7-6"  "7-7"  "7-8"  "8-1"  "8-2"  "8-3"  "8-4" 
## [61] "8-5"  "8-6"  "8-7"  "8-8"  "9-1"  "9-2"  "9-3"  "9-4"  "9-5"  "9-6" 
## [71] "9-7"  "9-8"  "10-1" "10-2" "10-3" "10-4" "10-5" "10-6" "10-7" "10-8"
## 
## $paoname
## [1] "pres.pao"
## 
## $frq
##  [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [36] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## 
## attr(,"class")
## [1] "pao"
summary(nighingale.pao)
## paoname=pres.pao
## title=Nighingale SSMS
## Naive occ=1
##                nunits              nsurveys              nseasons 
##                  "55"                  "80"                  "10" 
##         nsurveyseason              nmethods              nunitcov 
## "8,8,8,8,8,8,8,8,8,8"                   "1"                   "1" 
##              nsurvcov 
##                   "1" 
## unit covariates  : TEMP 
## survey covariates: SURVEY
# Define the models.
#    model.type do.1 is dynamic occupancy first parameterization
#               do.4 is dynamic occupancy 4th   parameterization (random occupancy)
# Random occupancy are fit using type="do.4" in the call.
#     Parameters are psi,  p with gamma=1-epsilon enforced internally

model.list.csv <- textConnection("
p,               psi,          gamma,      epsilon,  model.type
~1,              ~1,              ~1,           ~1,       do.1
~SEASON,         ~1,              ~1,           ~1,       do.1
~SEASON,         ~1,              ~SEASON,      ~SEASON,  do.1")



model.list <- read.csv(model.list.csv, header=TRUE, as.is=TRUE, strip.white=TRUE)
model.list
##         p psi   gamma epsilon model.type
## 1      ~1  ~1      ~1      ~1       do.1
## 2 ~SEASON  ~1      ~1      ~1       do.1
## 3 ~SEASON  ~1 ~SEASON ~SEASON       do.1
# fit the model
model.fits <- plyr::alply(model.list, 1, function(x,detect.pao){
    cat("\n\n***** Starting ", unlist(x), "\n")
    if(x$model.type == 'do.1'){
       fit <- RPresence::occMod(model=list(as.formula(paste("psi",x$psi)),
                                        as.formula(paste("p"  ,x$p  )),
                                        as.formula(paste("gamma",x$gamma)),
                                        as.formula(paste("epsilon",x$epsilon))),
              data=detect.pao,type="do.1")
    }
    if(x$model.type == 'do.4'){
       fit <- RPresence::occMod(model=list(as.formula(paste("psi",x$psi)),
                                        as.formula(paste("p"  ,x$p  ))),
              data=detect.pao,type="do.4")
    }
    fit <- RPresence.add.derived(fit)
    fit

},detect.pao=nighingale.pao)
## 
## 
## ***** Starting  ~1 ~1 ~1 ~1 do.1 
## PRESENCE Version 2.12.21.
## Loading required package: plyr
## 
## 
## ***** Starting  ~SEASON ~1 ~1 ~1 do.1 
## PRESENCE Version 2.12.21.
## 
## 
## ***** Starting  ~SEASON ~1 ~SEASON ~SEASON do.1 
## PRESENCE Version 2.12.21.
# Look at output from a specified model
model.number <- 2


names(model.fits[[model.number]])
##  [1] "modname"     "model"       "dmat"        "data"        "outfile"    
##  [6] "neg2loglike" "aic"         "npar"        "beta"        "real"       
## [11] "derived"     "gof"         "warnings"    "version"
names(model.fits[[model.number]]$real)
## [1] "psi"     "gamma"   "epsilon" "p"       "theta"   "th0pi"
model.fits[[model.number]]$beta
## $psi
##   psi.coeff
## 1  1.417196
## 
## $psi.VC
## [1] 0.119573
## 
## $gamma
##   gamma.coeff
## 1   -1.126984
## 
## $gamma.VC
## [1] 0.025656
## 
## $epsilon
##   epsilon.coeff
## 1     -0.921775
## 
## $epsilon.VC
## [1] 0.020099
## 
## $p
##      p.coeff
## 1   0.033009
## 2  -1.191609
## 3   1.009219
## 4   1.124369
## 5  -0.282558
## 6  -0.306108
## 7  -0.001993
## 8  -1.118839
## 9  -0.094218
## 10 -0.115418
## 
## $p.VC
##            D1        D2        D3        D4        D5        D6        D7
## D1   0.011893 -0.011875 -0.011892 -0.011892 -0.011893 -0.011891 -0.011890
## D2  -0.011875  0.029880  0.011875  0.011875  0.011874  0.011889  0.011893
## D3  -0.011892  0.011875  0.030425  0.011892  0.011893  0.011891  0.011890
## D4  -0.011892  0.011875  0.011892  0.041774  0.011893  0.011891  0.011890
## D5  -0.011893  0.011874  0.011893  0.011893  0.029769  0.011895  0.011890
## D6  -0.011891  0.011889  0.011891  0.011891  0.011895  0.028955  0.011895
## D7  -0.011890  0.011893  0.011890  0.011890  0.011890  0.011895  0.035836
## D8  -0.011882  0.012007  0.011882  0.011882  0.011882  0.011906  0.011974
## D9  -0.011891  0.011887  0.011891  0.011891  0.011891  0.011892  0.011892
## D10 -0.011892  0.011885  0.011892  0.011892  0.011893  0.011893  0.011893
##            D8        D9       D10
## D1  -0.011882 -0.011891 -0.011892
## D2   0.012007  0.011887  0.011885
## D3   0.011882  0.011891  0.011892
## D4   0.011882  0.011891  0.011892
## D5   0.011882  0.011891  0.011893
## D6   0.011906  0.011892  0.011893
## D7   0.011974  0.011892  0.011893
## D8   0.052647  0.011962  0.011903
## D9   0.011962  0.036838  0.011896
## D10  0.011903  0.011896  0.035771
## 
## $VC
##            A1        B1        C1        D1        D2        D3        D4
## A1   0.119573 -0.000550 -0.000154 -0.001505  0.001460  0.001505  0.001505
## B1  -0.000550  0.025656  0.001467  0.000218  0.000521 -0.000219 -0.000218
## C1  -0.000154  0.001467  0.020099  0.000061  0.001150 -0.000061 -0.000060
## D1  -0.001505  0.000218  0.000061  0.011893 -0.011875 -0.011892 -0.011892
## D2   0.001460  0.000521  0.001150 -0.011875  0.029880  0.011875  0.011875
## D3   0.001505 -0.000219 -0.000061 -0.011892  0.011875  0.030425  0.011892
## D4   0.001505 -0.000218 -0.000060 -0.011892  0.011875  0.011892  0.041774
## D5   0.001506 -0.000292 -0.000048 -0.011893  0.011874  0.011893  0.011893
## D6   0.001501 -0.000110  0.000161 -0.011891  0.011889  0.011891  0.011891
## D7   0.001499 -0.000056  0.000228 -0.011890  0.011893  0.011890  0.011890
## D8   0.001478  0.000418  0.002112 -0.011882  0.012007  0.011882  0.011882
## D9   0.001502 -0.000149  0.000144 -0.011891  0.011887  0.011891  0.011891
## D10  0.001505 -0.000301  0.000153 -0.011892  0.011885  0.011892  0.011892
##            D5        D6        D7        D8        D9       D10
## A1   0.001506  0.001501  0.001499  0.001478  0.001502  0.001505
## B1  -0.000292 -0.000110 -0.000056  0.000418 -0.000149 -0.000301
## C1  -0.000048  0.000161  0.000228  0.002112  0.000144  0.000153
## D1  -0.011893 -0.011891 -0.011890 -0.011882 -0.011891 -0.011892
## D2   0.011874  0.011889  0.011893  0.012007  0.011887  0.011885
## D3   0.011893  0.011891  0.011890  0.011882  0.011891  0.011892
## D4   0.011893  0.011891  0.011890  0.011882  0.011891  0.011892
## D5   0.029769  0.011895  0.011890  0.011882  0.011891  0.011893
## D6   0.011895  0.028955  0.011895  0.011906  0.011892  0.011893
## D7   0.011890  0.011895  0.035836  0.011974  0.011892  0.011893
## D8   0.011882  0.011906  0.011974  0.052647  0.011962  0.011903
## D9   0.011891  0.011892  0.011892  0.011962  0.036838  0.011896
## D10  0.011893  0.011893  0.011893  0.011903  0.011896  0.035771
names(model.fits[[model.number]]$derived)
## [1] "psi"     "all_psi" "lambda"  "lambdap"
model.fits[[model.number]]$derived$psi[1:10,]
##                est         se lower_0.95 upper_0.95
## unit1_2  0.6235722 0.03478336  0.5533713  0.6889414
## unit2_2  0.6235722 0.03478336  0.5533713  0.6889414
## unit3_2  0.6235722 0.03478336  0.5533713  0.6889414
## unit4_2  0.6235722 0.03478336  0.5533713  0.6889414
## unit5_2  0.6235722 0.03478336  0.5533713  0.6889414
## unit6_2  0.6235722 0.03478336  0.5533713  0.6889414
## unit7_2  0.6235722 0.03478336  0.5533713  0.6889414
## unit8_2  0.6235722 0.03478336  0.5533713  0.6889414
## unit9_2  0.6235722 0.03478336  0.5533713  0.6889414
## unit10_2 0.6235722 0.03478336  0.5533713  0.6889414
model.fits[[model.number]]$real$gamma[1:5,]
##                    est         se lower_0.95 upper_0.95
## gamma1_unit1 0.2447181 0.02960531  0.1914028  0.3072416
## gamma1_unit2 0.2447181 0.02960531  0.1914028  0.3072416
## gamma1_unit3 0.2447181 0.02960531  0.1914028  0.3072416
## gamma1_unit4 0.2447181 0.02960531  0.1914028  0.3072416
## gamma1_unit5 0.2447181 0.02960531  0.1914028  0.3072416
model.fits[[model.number]]$real$epsilon[1:5,]
##                      est         se lower_0.95 upper_0.95
## epsilon1_unit1 0.2845964 0.02886474  0.2315391  0.3443634
## epsilon1_unit2 0.2845964 0.02886474  0.2315391  0.3443634
## epsilon1_unit3 0.2845964 0.02886474  0.2315391  0.3443634
## epsilon1_unit4 0.2845964 0.02886474  0.2315391  0.3443634
## epsilon1_unit5 0.2845964 0.02886474  0.2315391  0.3443634
# Estimate of initial occupance
model.fits[[model.number]]$real$psi[grepl('unit1_', row.names(model.fits[[model.number]]$real$psi)),]
##               est         se lower_0.95 upper_0.95
## unit1_1 0.8048985 0.05430232  0.6768764  0.8904102
# Derived parameters - estimated occupancy for each unit in years 2....
names(model.fits[[model.number]]$derived)
## [1] "psi"     "all_psi" "lambda"  "lambdap"
model.fits[[model.number]]$derived$psi[ grepl('unit1_', row.names(model.fits[[model.number]]$derived$psi)),]
##                est         se lower_0.95 upper_0.95
## unit1_2  0.6235722 0.03478336  0.5533713  0.6889414
## unit1_3  0.5382245 0.03348405  0.4723142  0.6028251
## unit1_4  0.4980526 0.03482302  0.4302573  0.5659195
## unit1_5  0.4791443 0.03607063  0.4093259  0.5497870
## unit1_6  0.4702444 0.03690760  0.3990220  0.5426996
## unit1_7  0.4660553 0.03740402  0.3939860  0.5395701
## unit1_8  0.4640836 0.03767859  0.3915408  0.5381789
## unit1_9  0.4631556 0.03782398  0.3903601  0.5375562
## unit1_10 0.4627187 0.03789886  0.3897924  0.5372758
# Derived parameters - all of the psi stacked together
model.fits[[model.number]]$derived$all_psi[ grepl('unit1_', row.names(model.fits[[model.number]]$derived$all_psi)),]
##                est         se lower_0.95 upper_0.95
## unit1_1  0.8048985 0.05430232  0.6768764  0.8904102
## unit1_2  0.6235722 0.03478336  0.5533713  0.6889414
## unit1_3  0.5382245 0.03348405  0.4723142  0.6028251
## unit1_4  0.4980526 0.03482302  0.4302573  0.5659195
## unit1_5  0.4791443 0.03607063  0.4093259  0.5497870
## unit1_6  0.4702444 0.03690760  0.3990220  0.5426996
## unit1_7  0.4660553 0.03740402  0.3939860  0.5395701
## unit1_8  0.4640836 0.03767859  0.3915408  0.5381789
## unit1_9  0.4631556 0.03782398  0.3903601  0.5375562
## unit1_10 0.4627187 0.03789886  0.3897924  0.5372758
# Estimate of  local extinction probability for each unit
model.fits[[model.number]]$real$epsilon[ seq(1, by=nrow(input.history), length.out=length(Nvisits.per.season)-1),]
##                      est         se lower_0.95 upper_0.95
## epsilon1_unit1 0.2845964 0.02886474  0.2315391  0.3443634
## epsilon2_unit1 0.2845964 0.02886474  0.2315391  0.3443634
## epsilon3_unit1 0.2845964 0.02886474  0.2315391  0.3443634
## epsilon4_unit1 0.2845964 0.02886474  0.2315391  0.3443634
## epsilon5_unit1 0.2845964 0.02886474  0.2315391  0.3443634
## epsilon6_unit1 0.2845964 0.02886474  0.2315391  0.3443634
## epsilon7_unit1 0.2845964 0.02886474  0.2315391  0.3443634
## epsilon8_unit1 0.2845964 0.02886474  0.2315391  0.3443634
## epsilon9_unit1 0.2845964 0.02886474  0.2315391  0.3443634
# Estimate of  local colonization probability for each unit
model.fits[[model.number]]$real$gamma[ seq(1, by=nrow(input.history), length.out=length(Nvisits.per.season)-1),]
##                    est         se lower_0.95 upper_0.95
## gamma1_unit1 0.2447181 0.02960531  0.1914028  0.3072416
## gamma2_unit1 0.2447181 0.02960531  0.1914028  0.3072416
## gamma3_unit1 0.2447181 0.02960531  0.1914028  0.3072416
## gamma4_unit1 0.2447181 0.02960531  0.1914028  0.3072416
## gamma5_unit1 0.2447181 0.02960531  0.1914028  0.3072416
## gamma6_unit1 0.2447181 0.02960531  0.1914028  0.3072416
## gamma7_unit1 0.2447181 0.02960531  0.1914028  0.3072416
## gamma8_unit1 0.2447181 0.02960531  0.1914028  0.3072416
## gamma9_unit1 0.2447181 0.02960531  0.1914028  0.3072416
# Estimate of probability of detection at each time point for each unit
model.fits[[model.number]]$real$p[ grepl('unit1_', row.names(model.fits[[model.number]]$real$p), fixed=TRUE),]
## [1] est        se         lower_0.95 upper_0.95
## <0 rows> (or 0-length row.names)
# Get the change in occupancy
# Not yet possible to estimate the se of these values. May have to use bootstrapping.
model.fits[[model.number]]$derived$lambda [grepl('unit1_', row.names(model.fits[[model.number]]$derived$lambda),  fixed=TRUE),]
##               est se lower_0.95 upper_0.95
## unit1_1 0.7747215 NA         NA         NA
## unit1_2 0.8631311 NA         NA         NA
## unit1_3 0.9253622 NA         NA         NA
## unit1_4 0.9620355 NA         NA         NA
## unit1_5 0.9814255 NA         NA         NA
## unit1_6 0.9910918 NA         NA         NA
## unit1_7 0.9957693 NA         NA         NA
## unit1_8 0.9980002 NA         NA         NA
## unit1_9 0.9990569 NA         NA         NA
model.fits[[model.number]]$derived$lambdap[grepl('unit1_', row.names(model.fits[[model.number]]$derived$lambdap), fixed=TRUE),]
##               est se lower_0.95 upper_0.95
## unit1_1 0.4015361 NA         NA         NA
## unit1_2 0.7036029 NA         NA         NA
## unit1_3 0.8513035 NA         NA         NA
## unit1_4 0.9271112 NA         NA         NA
## unit1_5 0.9649376 NA         NA         NA
## unit1_6 0.9833162 NA         NA         NA
## unit1_7 0.9921057 NA         NA         NA
## unit1_8 0.9962750 NA         NA         NA
## unit1_9 0.9982446 NA         NA         NA
# collect models and make AIC table
aic.table <- RPresence::createAicTable(model.fits)
aic.table$table
##                                        Model      AIC   neg2ll npar
## 3 psi()p(SEASON)gamma(SEASON)epsilon(SEASON) 3591.994 3533.994   29
## 2             psi()p(SEASON)gamma()epsilon() 3592.397 3566.397   13
## 1                   psi()p()gamma()epsilon() 3818.899 3810.899    4
##   warn.conv warn.VC     DAIC modlike    wgt
## 3         0       0   0.0000  1.0000 0.5502
## 2         0       0   0.4033  0.8174 0.4498
## 1         0       0 226.9048  0.0000 0.0000
# model averaging in the usual way

# initial occupancy
RPresence::modAvg(aic.table, param="psi")[1:5,]
##               est         se lower_0.95 upper_0.95
## unit1_1 0.8036792 0.05421865  0.6761062  0.8892365
## unit2_1 0.8036792 0.05421865  0.6761062  0.8892365
## unit3_1 0.8036792 0.05421865  0.6761062  0.8892365
## unit4_1 0.8036792 0.05421865  0.6761062  0.8892365
## unit5_1 0.8036792 0.05421865  0.6761062  0.8892365
# model averaging of derived parameters such as the occupancy at each time step
ma_all_psi <- RPresence.modAvg.derived(aic.table, param="all_psi")
psi.est <- ma_all_psi[grepl('unit1_', row.names(ma_all_psi),  fixed=TRUE),]
psi.est$Year <- as.numeric(substring(row.names(psi.est),1+regexpr("_",row.names(psi.est))))
psi.est$parameter <- 'psi'
psi.est
##                est         se lower_0.95 upper_0.95 Year parameter
## unit1_1  0.8036793 0.05421858  0.6974128  0.9099458    1       psi
## unit1_2  0.7497435 0.12758896  0.4996737  0.9998133    2       psi
## unit1_3  0.5922258 0.07174707  0.4516042  0.7328475    3       psi
## unit1_4  0.4541100 0.06681018  0.3231645  0.5850556    4       psi
## unit1_5  0.5071273 0.05984257  0.3898380  0.6244166    5       psi
## unit1_6  0.5257168 0.07486316  0.3789877  0.6724459    6       psi
## unit1_7  0.4305352 0.06303138  0.3069960  0.5540745    7       psi
## unit1_8  0.4234689 0.07023120  0.2858183  0.5611195    8       psi
## unit1_9  0.4194630 0.06721162  0.2877307  0.5511954    9       psi
## unit1_10 0.4293867 0.06220362  0.3074699  0.5513036   10       psi
# likely more interested in colonization and extinction probabilities
epsilon.ma <- RPresence::modAvg(aic.table, param="epsilon")
epsilon.ma <- epsilon.ma[grepl('unit1$', row.names(epsilon.ma)),]
epsilon.ma$Year <- as.numeric(substr(row.names(epsilon.ma),7+regexpr("epsilon",row.names(epsilon.ma)),-1+regexpr("_",row.names(epsilon.ma))))
epsilon.ma$parameter <- 'epsilon'
epsilon.ma
##                      est         se lower_0.95 upper_0.95 Year parameter
## epsilon1_unit1 0.1776739 0.11025696 0.04692023  0.4867218    1   epsilon
## epsilon2_unit1 0.2776391 0.05528658 0.18294803  0.3974969    2   epsilon
## epsilon3_unit1 0.3323731 0.07688312 0.20156381  0.4954017    3   epsilon
## epsilon4_unit1 0.1743040 0.11059096 0.04472452  0.4876593    4   epsilon
## epsilon5_unit1 0.2366162 0.07421635 0.12167895  0.4095039    5   epsilon
## epsilon6_unit1 0.3745666 0.10685055 0.19676640  0.5941813    6   epsilon
## epsilon7_unit1 0.3317518 0.10506266 0.16395068  0.5568968    7   epsilon
## epsilon8_unit1 0.2943305 0.08078551 0.16290407  0.4720017    8   epsilon
## epsilon9_unit1 0.3620801 0.10848250 0.18439117  0.5876310    9   epsilon
gamma.ma <-RPresence::modAvg(aic.table, param="gamma")
gamma.ma <- gamma.ma[grepl('unit1$', row.names(gamma.ma)),]
gamma.ma$Year <- as.numeric(substr(row.names(gamma.ma),5+regexpr("gamma",row.names(gamma.ma)),-1+regexpr("_",row.names(gamma.ma))))
gamma.ma$parameter <- 'gamma'
gamma.ma
##                    est         se lower_0.95 upper_0.95 Year parameter
## gamma1_unit1 0.4521509 0.22915656 0.11866396  0.8349572    1     gamma
## gamma2_unit1 0.1677687 0.19971581 0.01206799  0.7688819    2     gamma
## gamma3_unit1 0.1375705 0.10528609 0.02725462  0.4759350    3     gamma
## gamma4_unit1 0.2490961 0.06086332 0.14916165  0.3856378    4     gamma
## gamma5_unit1 0.2806222 0.07813643 0.15446597  0.4544367    5     gamma
## gamma6_unit1 0.2208078 0.06930743 0.11400234  0.3842768    6     gamma
## gamma7_unit1 0.2364225 0.06172421 0.13675254  0.3770097    7     gamma
## gamma8_unit1 0.2106397 0.06861518 0.10622492  0.3746657    8     gamma
## gamma9_unit1 0.2722494 0.06656983 0.16222426  0.4195285    9     gamma
all.est <- rbind(psi.est, epsilon.ma, gamma.ma)

ggplot(data=all.est, aes(x=Year,y=est, color=parameter))+
   ggtitle("Estimated occupancy, extinction, colonization, over time")+
   geom_point(position=position_dodge(w=0.2))+
   geom_line(position=position_dodge(w=0.2))+
   ylim(0,1)+
   geom_errorbar(aes(ymin=lower_0.95, ymax=upper_0.95), width=.1,position=position_dodge(w=0.2))+
   scale_x_continuous(breaks=1:10)