R/Numeric_Only.R

In CorReg: Linear Regression Based on Linear Structure Between Variables

#' To clean non numeric values in a vector
#' @description Replace all non numeric values in a vector by NA's and change the vector format to be numeric
#' @param x The vector to clean
#' @export

Numeric_Only<-function(x=NULL){
  x[is.na(Is.Numeric(x))]=NA
  return(as.numeric(as.character(x)))
}