Adding setEventTime

NAMESPACE

@@ -2,6 +2,7 @@
 
 export(remapVariable)
 export(selectValid)
+export(setEventTime)
 export(simple.compute_roc_metrics)
 export(simple.getAUC)
 export(simple.roc)

R/modifyData.R

@@ -85,3 +85,23 @@ getNewValue<-function(x,map){
    else 
       NA
 }
+
+#'Set event time
+#'
+#' @param df data frame
+#' @param duration name of the output column
+#' @param eventColumn dates of evaluation visits (as.Date)
+#' @param startColumn dates of treatment start or diagnosis (as.Date)
+#'
+#' @return updated data frame
+#'
+#' @export
+
+setEventTime<-function(df,duration='years_to_event',eventColumn='d_os',startColumn='rtstartdate1'){
+   t0=df[,startColumn]
+   t1=df[,eventColumn]
+   df[,duration] <-base::as.numeric(base::difftime(t1, t0, units = "days")) / 365.25
+   df
+}
+
+

man/setEventTime.Rd

@@ -0,0 +1,28 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/modifyData.R
+\name{setEventTime}
+\alias{setEventTime}
+\title{Set event time}
+\usage{
+setEventTime(
+  df,
+  duration = "years_to_event",
+  eventColumn = "d_os",
+  startColumn = "rtstartdate1"
+)
+}
+\arguments{
+\item{df}{data frame}
+
+\item{duration}{name of the output column}
+
+\item{eventColumn}{dates of evaluation visits (as.Date)}
+
+\item{startColumn}{dates of treatment start or diagnosis (as.Date)}
+}
+\value{
+updated data frame
+}
+\description{
+Set event time
+}