Skip to contents

Quality control

qc.Rmd
library(ovog)
stillingar <- hv_read_stillingar("~/R/Pakkar2/osmx/data-raw/SMH/stillingar_SMH_rall_(haust).zip")

range <- ovog:::hv_tidy_range(stillingar)
lw    <- ovog:::hv_tidy_length_weights(stillingar)

Not the same max length

  • The “range” table gives the maximum length of species
  • The “lw” table contains lengths (more than one for certain species)

Would expect that the maximum length to be the same in both tables for a given species. That is however not the case:

lw |> 
  dplyr::select(tegund, lengd) |> 
  dplyr::group_by(tegund) |> 
  dplyr::filter(lengd == max(lengd)) |> 
  dplyr::ungroup() |> 
  dplyr::rename(lengd.lw = lengd) |> 
  dplyr::left_join(range |> 
                     dplyr::filter(var == "lengd") |> 
                     dplyr::select(tegund, lengd.max = max),
                   by = dplyr::join_by(tegund)) |> 
  dplyr::mutate(comparison = dplyr::case_when(lengd.lw > lengd.max ~ "lw bigger",
                                        lengd.lw < lengd.max ~ "lw smaller",
                                        lengd.lw == lengd.max ~ "same",
                                        .default = "missing")) |> 
  dplyr::filter(!comparison %in% c("same", "missing")) |>  
  knitr::kable(caption = "Comparison of maximum length and length in lw_table")
Comparison of maximum length and length in lw_table
tegund lengd.lw lengd.max comparison
7 160 150 lw bigger
11 80 68 lw bigger
14 200 134 lw bigger
16 120 100 lw bigger
17 800 600 lw bigger
18 600 400 lw bigger
19 70 60 lw bigger
21 400 300 lw bigger
22 130 105 lw bigger
25 70 66 lw bigger
26 70 65 lw bigger
27 50 49 lw bigger
34 50 47 lw bigger
35 25 20 lw bigger
36 60 46 lw bigger
37 70 46 lw bigger
39 90 80 lw bigger
49 80 71 lw bigger
54 15 10 lw bigger
58 70 67 lw bigger
60 40 38 lw bigger
61 100 84 lw bigger
64 90 89 lw bigger
65 30 21 lw bigger
66 20 16 lw bigger
70 35 30 lw bigger
71 40 33 lw bigger
72 40 25 lw bigger
73 50 45 lw bigger
75 30 28 lw bigger
79 50 35 lw bigger
82 180 154 lw bigger
87 60 56 lw bigger
88 50 49 lw bigger
92 30 22 lw bigger
93 130 127 lw bigger
95 100 80 lw bigger
96 130 106 lw bigger
99 60 45 lw bigger
103 140 133 lw bigger
105 130 120 lw bigger
106 40 37 lw bigger
111 40 28 lw bigger
114 90 86 lw bigger
115 70 60 lw bigger
116 30 25 lw bigger
118 80 75 lw bigger
120 30 24 lw bigger
121 40 39 lw bigger
124 40 19 lw bigger
125 70 64 lw bigger
126 65 60 lw bigger
127 40 35 lw bigger
128 70 39 lw bigger
130 10 8 lw bigger
131 10 5 lw bigger
132 70 62 lw bigger
133 50 18 lw bigger
134 60 42 lw bigger
135 130 40 lw bigger
136 30 21 lw bigger
137 70 57 lw bigger
138 40 33 lw bigger
139 30 10 lw bigger
141 60 51 lw bigger
142 200 177 lw bigger
143 30 22 lw bigger
144 20 15 lw bigger
146 45 26 lw bigger
147 40 21 lw bigger
148 70 23 lw bigger
150 60 50 lw bigger
151 150 95 lw bigger
152 130 125 lw bigger
153 50 47 lw bigger
154 100 83 lw bigger
155 300 185 lw bigger
156 220 200 lw bigger
157 20 15 lw bigger
161 110 106 lw bigger
163 160 140 lw bigger
164 100 90 lw bigger
165 100 52 lw bigger
166 70 60 lw bigger
168 120 114 lw bigger
170 200 106 lw bigger
171 40 20 lw bigger
174 130 120 lw bigger
176 100 90 lw bigger
177 130 57 lw bigger
178 90 54 lw bigger
179 220 143 lw bigger
203 70 60 lw bigger
204 20 17 lw bigger
206 140 112 lw bigger
207 50 41 lw bigger
208 20 19 lw bigger
209 15 10 lw bigger
214 70 47 lw bigger
217 40 34 lw bigger
219 40 32 lw bigger
220 40 30 lw bigger
223 20 17 lw bigger
228 90 72 lw bigger
230 30 18 lw bigger
231 25 24 lw bigger
235 190 140 lw bigger
240 20 12 lw bigger
243 20 17 lw bigger
245 70 37 lw bigger
246 40 37 lw bigger
247 30 22 lw bigger
248 60 56 lw bigger
250 60 22 lw bigger
252 30 21 lw bigger
253 30 23 lw bigger
258 50 41 lw bigger
260 100 49 lw bigger
262 50 13 lw bigger
263 40 20 lw bigger
265 20 17 lw bigger
266 15 12 lw bigger
570 150 86 lw bigger
573 40 20 lw bigger