#check1 <- 
  BDdata %>% 
  group_by(Measure_Num)%>%
  count(Measure_Num)

## # A tibble: 26 x 2
## # Groups:   Measure_Num [26]
##    Measure_Num      n
##    <fct>        <int>
##  1 M00237      158146
##  2 M00238      300167
##  3 M00239      158146
##  4 M00240      300167
##  5 M00241      151996
##  6 M00242      288242
##  7 M00243      158146
##  8 M00244      300167
##  9 M00245      153226
## 10 M00246      290627
## # ... with 16 more rows

#View(check1)

#check2 <- 
  BDdata %>% 
  group_by(Measure_Type)%>%
  count(Measure_Type)

## # A tibble: 2 x 2
## # Groups:   Measure_Type [2]
##   Measure_Type       n
##   <fct>          <int>
## 1 BASIC        3748980
## 2 SMOOTH       1702840

#View(check2)

#check3 <- 
  BDdata %>% 
  group_by(Cal_Level)%>%
  count(Cal_Level)

## # A tibble: 12 x 2
## # Groups:   Cal_Level [12]
##    Cal_Level        n
##    <fct>        <int>
##  1 S_C_Y       499422
##  2 S_C_Y_A    1687824
##  3 S_C_Y_RE   1997688
##  4 S_C_Y_S     923586
##  5 S_Y           5528
##  6 S_Y_A        18672
##  7 S_Y_A_RE     74688
##  8 S_Y_A_RE_S  136768
##  9 S_Y_A_S      34192
## 10 S_Y_RE       22112
## 11 S_Y_RE_S     41072
## 12 S_Y_S        10268

#View(check3)