add information about number of NAs

R/basicr.R

@@ -49,6 +49,7 @@ basic_ <- function(df,target){
 
   res <- df %>% summarise(
       n = n(),
+      n_na    = as.numeric(length(which(is.na(targ)))),
       q_0     = as.numeric(stats::quantile(targ,probs=0,na.rm=TRUE)),
       q_0_05  = as.numeric(stats::quantile(targ,probs=0.05,na.rm=TRUE)),
       q_0_25  = as.numeric(stats::quantile(targ,probs=0.25,na.rm=TRUE)),