Adding mapNA

NAMESPACE

@@ -1,5 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
+export(mapNA)
 export(remapVariable)
 export(selectValid)
 export(setEventTime)

R/modifyData.R

@@ -21,6 +21,21 @@ sumWithNA<-function(df,var1='lesionmtv41',var2='metastasesmtv41',outVar='totalmt
       
 }
 
+#' Map NA to value
+#'
+#' @param df data frame
+#' @param var variable to modify
+#' @param valIfNA change from NA to this value
+#'
+#' @return updated data frame
+#'
+#' @export
+
+mapNA<-function(df,var,valIfNA=0){
+   df[is.na(df[,var]),var]=valIfNA
+   df
+}
+
 #' Map variable time OS status to status at cutoff
 #'
 #' @param df data frame

man/mapNA.Rd

@@ -0,0 +1,21 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/modifyData.R
+\name{mapNA}
+\alias{mapNA}
+\title{Map NA to value}
+\usage{
+mapNA(df, var, valIfNA = 0)
+}
+\arguments{
+\item{df}{data frame}
+
+\item{var}{variable to modify}
+
+\item{valIfNA}{change from NA to this value}
+}
+\value{
+updated data frame
+}
+\description{
+Map NA to value
+}