OUT <- sim %>% 
  na.omit()