vignettes/R/convert2Score.R

In RSCABS: Rao-Scott Cochran-Armitage by Slices Trend Test

convert2Score <-
function(Dvec){
#This Function will convert any object that is not zero or a positive number to NA 
#' @export
options(warn=-1)  #Turn off warnings
Dvec<-as.numeric(as.character(Dvec))  #Will induce a a warning 
Dvec[which(Dvec<0)]<-NA
options(warn=0) #Turn on warnings
return(Dvec)
}