data-raw/data.R

In projecttsinteger/tsintegerpackage: Time series of counts analysis

claims1<- c(0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,
            1,
            0,
            0,
            0,
            0,
            0,
            1,
            1,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            1,
            0,
            1,
            0,
            1,
            2,
            0,
            0,
            0,
            1,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            1,
            0,
            1,
            0,
            1,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            1,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            1,
            1,
            2,
            1,
            1,
            1,
            1,
            1,
            2,
            1,
            1,
            1,
            1,
            1,
            1,
            1,2,2,2,1)
claims1 <- as.ts(claims1)

claims2 <- c(0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             1,
             1,
             1,
             1,
             0,
             0,
             0,
             0,
             0,
             1,
             1,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             1,
             0,
             1,
             0,
             1,
             2,
             0,
             0,
             0,
             1,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             1,
             0,
             1,
             0,
             1,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             1,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             1,
             0,
             0,
             0,
             0,
             0,
             1,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             1,
             1,
             1,
             0
)
claims2 <- as.ts(claims2)

claims3 <- c(9,	
             6,	
             6,	
             7,	
             10,	
             8,	
             14,	
             8,	
             7,	
             10,	
             10,	
             12,	
             8,	
             8,	
             8,	
             8,	
             13,	
             12,	
             14,	
             13,	
             13,	
             8,	
             13,	
             10,	
             12,	
             12,	
             9,	
             8,	
             13,	
             9,	
             8,	
             6,	
             7,	
             10,	
             17,	
             11,	
             13,	
             10,	
             9,	
             15,	
             13,	
             12,	
             8,	
             8,	
             9,	
             9,	
             12,	
             9,	
             5,	
             9,	
             10,	
             6,	
             8,	
             17,	
             16,	
             17,	
             16,	
             8,	
             10,	7,	
             8,	
             7,	
             4,	
             5,	
             4,	
             4,	
             10,	
             9,	
             12,	
             12,	
             11,	
             9,	
             8,	
             9,	
             8,	
             6,	
             8,	
             13,	
             13,	
             10,	
             7,	
             17,	
             14,	
             10,	
             12,	
             6,	
             4,	
             7,	
             8,	
             10,	
             16,	
             15,	
             10,	
             14,	
             16,	
             12,	
             10,	
             11,	
             10,	
             8,	
             9,	
             10,	
             13,	
             6,	
             8,	
             9,	
             6,	
             9,	
             12,	
             8,	
             9,	
             5,	
             6,	
             9,	
             9,	
             13,	
             12,	
             10,	
             9,	
             7	
)
claims3 <- as.ts(claims3)


claims4 <-c(6,	
            7,	
            8,	
            9,	
            6,	
            8,	
            5,	
            3,	
            7,	
            11,	
            8,	
            4,	
            2,	
            3,	
            4,	
            5,	
            7,	
            8,	
            12,	
            11,	
            12,	
            6,	
            2,	
            2,	
            3,	
            3,	
            5,	
            6,	
            13,	
            12,	
            21,	
            9,	
            11,	
            11,	
            10,	
            8,	
            5,	
            4,	
            4,	
            4,	
            2,	
            9,	
            8,	
            5,	
            10,	
            12,	
            11,	
            9,	
            4,	
            5,	
            5,	
            10,	
            14,	
            7,	
            11,	
            12,	
            7,	
            8,	
            14,	
            6,	
            4,	
            3,	
            4,	
            4,	
            7,	
            6,	
            9,	
            8,	
            2,	
            4,	
            3,	
            1,	
            3,	
            1,	
            4,	
            3,	
            5,	
            3,	
            8,	
            11,	
            7,	
            9,	
            5,	
            3,	
            6,	
            4,	
            5,	
            6,	
            7,	
            7,	
            3,	
            5,	
            5,	
            4,	
            4,	
            2,	
            3,	
            6,	
            3,	
            1,	
            3,	
            6,	
            5,	
            9,	
            9,	
            5,	
            6,	
            4,	
            6,	
            2,	
            4,	
            1,	
            6,	
            5,	
            3,	
            2,	
            2,	
            2,	
            9,	
            5	
)
claims4 <- as.ts(claims4)

claims5 <- c(0,
             1,0,
             0,
             1,
             0,
             0,
             0,
             0,
             0,
             1,
             0,
             0,
             0,
             0,
             1,
             1,
             0,
             0,
             0,
             0,
             1,
             1,
             0,
             0,
             0,
             0,
             0,
             2,
             0,
             0,
             0,
             1,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             1,
             1,
             0,
             0,
             0,
             0,
             0,
             0,
             1,
             1,
             1,
             1,
             1,
             1,
             1,1,
             1,
             1,
             1,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             1,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             1,
             0,
             0,
             0,
             0,
             1,
             1,
             1,
             1,
             2,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             1,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             1,
             0,
             0,
             0,
             0,
             0,
             1,
             0,
             0
)
claims5 <- as.ts(claims5)

claims6 <- c(0,
             0,
             1,
             1,
             1,
             1,
             1,
             1,
             0,
             1,
             1,
             2,
             0,
             0,
             0,
             0,
             1,
             0,
             0,
             1,
             1,
             1,
             1,
             1,
             0,
             0,
             0,
             1,
             0,
             0,
             0,
             0,
             0,
             0,
             2,
             1,
             0,
             0,
             2,
             2,
             2,
             2,
             1,
             0,
             0,
             1,
             1,
             1,
             1,
             1,
             2,
             2,
             2,
             2,
             2,
             3,
             1,
             2,
             2,
             1,
             1,
             0,
             1,
             3,
             1,
             1,
             1,
             1,
             2,
             1,
             1,
             2,
             2,
             1,
             1,
             3,
             4,
             3,
             2,
             1,
             1,
             0,
             0,
             0,
             1,
             2,
             0,
             0,
             0,
             0,
             0,
             0,
             0,
             1,
             1,
             1,
             1,
             1,
             1,
             1,
             0,
             0,
             0,
             1,
             1,
             1,
             1,
             1,
             0,
             0,
             0,
             0,
             0,
             1,
             0,
             0,
             1,
             2,
             3,
             2
)
claims6 <- as.ts(claims6)

claims7<- c(0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            1,
            0,
            1,
            1,
            0,
            0,
            0,
            0,
            0,
            1,
            1,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            1,
            0,
            1,
            0,
            0,
            2,
            0,
            0,
            0,
            1,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            1,
            0,
            1,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            1,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            1,
            1,
            1,
            0,
            0,
            0,
            0,
            0,
            1,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            1,
            0,
            1,
            0
)
claims7 <- as.ts(claims7)

claims8 <- c(2,	
             0,	
             3,	
             3,	
             8,	
             2,	
             10,	
             4,	
             5,	
             8,	
             9,	
             6,	
             6,	
             4,	
             5,	
             4,	
             8,	
             8,	
             7,	
             6,	
             6,	
             3,	
             8,	
             3,	
             5,	
             7,	
             4,	
             4,	
             10,	
             4,	
             3,	
             3,	
             4,	
             8,	
             11,	
             6,	
             8,	
             4,	
             5,	
             7,	
             8,	
             9,	
             2,	
             5,	
             2,	
             4,	
             5,	
             4,	
             2,	
             4,	
             5,	
             2,	
             5,	
             11,	
             11,	
             12,	
             7,	
             4,	
             8,	
             2,	
             3,	
             1,	
             1,	
             3,	
             2,	
             2,	
             4,	
             2,	
             6,	
             4,	
             6,	
             3,	
             0,	
             3,	
             3,	
             3,	
             3,	
             6,	
             5,	
             3,	
             2,	
             11,	
             2,	
             0,	
             3,	
             0,	
             1,	
             4,	
             4,	
             4,	
             9,	
             8,	
             1,	
             6,	
             5,	
             3,	
             2,	
             2,	
             2,	
             5,	
             6,	
             6,	
             8,	
             1,	
             4,	
             5,	
             1,	
             5,	
             4,	
             2,	
             4,	
             2,	
             5,	
             2,	
             4,	
             6,	
             5,	
             4,	
             2,	
             3	
)

claims8 <- as.ts(claims8)


claims9 <- c(2,	
             3,	
             4,	
             5,	
             1,	
             4,	
             4,	
             1,	
             4,	
             8,	
             5,	
             3,	
             1,	
             2,	
             3,	
             4,	
             2,	
             5,	
             8,	
             6,	
             7,	
             5,	
             1,	
             0,	
             2,	
             1,	
             2,	
             2,	
             9,	
             6,	
             15,	
             3,	
             6,	
             7,	
             5,	
             2,	
             2,	
             2,	
             3,	
             2,	
             1,	
             8,	
             5,	
             3,	
             8,	
             4,	
             7,	
             3,	
             1,	
             2,	
             2,	
             6,	
             5,	
             2,	
             4,	
             9,	
             2,	
             6,	
             7,	
             2,	
             0,	
             1,	
             3,	
             3,	
             3,	
             4,	
             3,	
             5,	
             0,	
             3,	
             0,	
             0,	
             2,	
             0,	
             2,	
             1,	
             4,	
             1,	
             6,	
             4,	
             4,	
             6,	
             1,	
             1,	
             2,	
             2,	
             4,	
             3,	
             3,	
             4,	
             2,	
             4,	
             2,	
             2,	
             3,	
             0,	
             1,	
             1,	
             1,	
             0,	
             2,	
             3,	
             3,	
             5,	
             6,	
             1,	
             4,	
             2,	
             3,	
             0,	
             3,	
             0,	
             4,	
             3,	
             1,	
             1,	
             1,	
             1,	
             8,	
             3	
)

claims9 <- as.ts(claims9)


claims10 <- c(0,
              1,
              0,
              0,
              1,
              0,
              0,
              0,
              0,
              0,
              1,
              0,
              0,
              0,
              0,
              1,
              1,
              0,
              0,
              0,
              0,
              1,
              1,
              0,
              0,
              0,
              0,
              0,
              2,
              0,
              0,
              0,
              1,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              1,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              1,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              1,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              1,
              0,
              0,
              0,
              0,
              1,
              0,
              0,
              0,
              1,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              1,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              1,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0
)
claims10 <- as.ts(claims10)

claims11 <- c(0,
              0,
              1,
              0,
              0,
              0,
              0,
              0,
              0,
              1,
              0,
              2,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              1,
              1,
              0,
              0,
              0,
              0,
              0,
              0,
              1,
              0,
              0,
              0,
              0,
              0,
              0,
              2,
              1,
              0,
              0,
              2,
              1,
              0,
              1,
              0,
              0,
              0,
              1,
              0,
              0,
              0,
              0,
              1,
              0,
              0,
              0,
              1,
              0,
              0,
              2,
              2,
              1,
              0,
              0,
              1,
              1,
              0,
              0,
              0,
              0,
              1,
              0,
              0,
              1,
              0,
              0,
              0,
              1,
              2,
              1,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              1,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              1,
              1,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              1,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              1,
              0,
              0,
              0,
              1,
              1,
              0
)

claims11 <- as.ts(claims11)


claims <- cbind(claims1, claims2, claims3, claims4, claims5, claims6, claims7, claims8, claims9, claims10,claims11 )


soap <- c(1, 6, 9, 18, 14, 8, 8, 1, 6, 7, 3, 3, 1, 3, 4, 12, 8, 10, 8, 2,
          17, 15, 7, 12, 22, 10, 4, 7, 5, 0, 2, 5, 3, 4, 4, 7, 5, 6, 1, 3,
          4, 5, 3, 7, 3, 0, 4, 5, 3, 3, 4, 4, 4, 4, 4, 3, 5, 5, 5, 7,
          4, 0, 4, 3, 2, 6, 3, 8, 9, 6, 3, 4, 3, 3, 3, 3, 2, 1, 4, 5,
          5, 2, 7, 5, 2, 3, 1, 3, 4, 6, 8, 8, 5, 7, 2, 4, 2, 7, 4, 15,
          15, 12, 21, 20, 13, 9, 8, 0, 13, 9, 8, 0, 6, 2, 0, 3, 2, 4, 4, 6,
          3, 2, 5, 5, 3, 2, 1, 1, 3, 1, 2, 6, 2, 7, 3, 2, 4, 1, 5, 6,
          8, 14, 5, 3, 6, 5, 11, 4, 5, 9, 9, 7, 9, 8, 3, 4, 8, 6, 3, 5,
          6, 3, 1, 7, 4, 9, 2, 6, 6, 4, 6, 6, 13, 7, 4, 8, 6, 4, 4, 4,
          9, 2, 9, 2, 2, 2, 13, 13, 4, 5, 1, 4, 6, 5, 4, 2, 3, 10, 6, 15,
          5, 9, 9, 7, 4, 4, 2, 4, 2, 3, 8, 15, 0, 0, 3, 4, 3, 4, 7, 5,
          7, 6, 0, 6, 4, 14, 5, 1, 6, 5, 5, 4, 9, 4, 14, 2, 2, 1, 5, 2,6, 4)
soap <- as.ts(soap)


sexoffences<-c(0,0,1,0,0,0,1,0,0,0,1,0,0,
               0,0,0,0,1,1,0,0,0,1,0,0,0,0,0,1,1,2,1,0,1,
               0,0,1,2,0,0,0,0,1,0,2,0,0,0,0,0,0,2,0,2,0,
               1,0,3,1,0,1,1,1,0,3,1,0,0,1,2,2,0,0,0,0,0,
               0,1,1,0,0,0,0,0,0,0,0,1,0,0,0,0,1,0,0,0,0,
               0,0,0,0,1,2,2,0,2,0,0,1,1,0,3,2,0,0,2,0,0,
               0,0,1,1,6,5,1,1,0,1,0,0,1,0,0,1,1,0,1,0,1,5,0,0,0,0)
sexoffences <- as.ts(sexoffences)


skinlesions <- c(2,5, 0, 0, 1, 0, 1, 3, 0, 3, 0,
                 1,3, 3, 6, 3, 1, 0, 0, 0, 0, 0, 0, 1,0, 0, 1, 3,
                 0, 1, 0, 0, 0, 0, 2, 1,3, 1, 1, 2, 3, 1, 0, 2,
                 2, 1, 6, 0,1, 0, 0, 1, 0, 2, 0, 0, 0, 2, 3, 0,2,
                 4, 1, 1, 0, 0, 1, 1, 1, 8, 1, 3,2, 4, 9, 3, 4, 2, 0, 1, 0, 0, 0, 0)
skinlesion<- as.ts(skinlesions)




violence <- c(0,0,1,0,1,0,0,0,0,0,0,0,0,1,0,1,0,
              1,
              0,
              1,
              1,
              0,
              1,
              0,
              0,
              1,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              1,
              1,
              0,
              0,
              0,
              0,
              1,
              0,
              0,
              0,
              0,
              1,
              0,
              0,
              0,
              1,
              0,
              0,
              0,
              1,
              0,
              1,
              0,
              0,
              1,
              0,
              0,
              0,
              1,
              1,
              1,
              2,
              1,
              1,
              1,
              0,
              0,
              0,
              0,
              0,
              0,
              0,
              1,
              1,
              1,
              2,
              2,
              0,
              1,
              0,
              1,
              1,
              0,
              0,
              1,
              0,
              2,
              0,
              0,
              0,
              0,
              0,
              0,
              0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,1,0,0,1,1,0,0,1,1,2,2,0,0,0,0,0,0,1,0,2,1,0,0,1,3)

violence <- as.ts(violence)