fcid <-
structure(list(height = c(110.5, 111.5, 112.5, 113.5, 114.5, 
115.5, 116.5, 117.5, 118.5, 119.5, 120.5, 121.5, 122.5, 123.5, 
124.5, 125.5, 126.5, 127.5, 128.5, 129.5, 130.5, 131.5, 132.5, 
133.5, 134.5, 135.5, 136.5, 137.5, 138.5, 139.5, 140.5, 141.5, 
142.5, 143.5, 144.5, 145.5, 146.5, 147.5, 148.5, 149.5, 150.5, 
151.5, 152.5, 153.5, 154.5, 155.5, 156.5, 157.5, 158.5, 159.5, 
160.5, 161.5, 162.5, 163.5, 164.5, 165.5, 166.5, 167.5, 168.5, 
169.5, 170.5, 171.5, 172.5, 173.5, 174.5, 175.5, 176.5, 177.5, 
178.5, 179.5, 180.5, 181.5, 182.5, 183.5, 184.5, 185.5, 186.5, 
187.5, 188.5, 189.5, 190.5, 191.5, 192.5, 193.5, 194.5, 195.5, 
196.5, 197.5, 198.5, 199.5, 200.5, 201.5, 202.5, 203.5, 204.5, 
205.5, 206.5, 207.5, 208.5, 209.5), num_of_adults = c(0L, 0L, 
0L, 0L, 0L, 0L, 1L, 2L, 22L, 86L, 198L, 320L, 333L, 307L, 249L, 
189L, 122L, 77L, 53L, 27L, 31L, 59L, 110L, 239L, 389L, 617L, 
783L, 761L, 561L, 299L, 279L, 444L, 642L, 793L, 1021L, 1559L, 
2694L, 4583L, 7809L, 12555L, 18513L, 25807L, 31836L, 37165L, 
43103L, 52295L, 63706L, 73873L, 78792L, 82714L, 87336L, 90856L, 
95661L, 98748L, 102373L, 104334L, 104168L, 104121L, 101797L, 
99058L, 96310L, 92028L, 90079L, 88729L, 87558L, 87147L, 85003L, 
82741L, 81659L, 80956L, 80446L, 77402L, 73541L, 65604L, 54553L, 
45071L, 37652L, 31127L, 27010L, 22656L, 18741L, 15102L, 11760L, 
9251L, 7249L, 5311L, 3705L, 2517L, 1630L, 1023L, 713L, 506L, 
323L, 220L, 130L, 59L, 15L, 3L, 0L, 0L)), row.names = c(NA, -100L
), class = c("tbl_df", "tbl", "data.frame"))