R/na_predict.R

In tidyimpute: Imputation the Tidyverse Way

#' na_predict
#' 
#' replace `NA` values by predictions of a model
#' 
#' @param x data
#' @param object object with predict method
#' @param data data object
#' 
#' @export

na_predict <- function( x, object, data=x ) { 

  if( length(x)  != nrow(data) ) stop()
  
  return(x)
}