changing race to a factor

data-raw/read_data.R

@@ -28,6 +28,10 @@ actg$C2 <- ifelse(actg$delta==0 & actg$drop==0,actg$days,NA) #C2 is time of cens
 # Treatment (art) as a factor variable
 actg$art_f <- factor(actg$art,levels = c(0,1), labels = c("Dual therapy","Triple therapy"))
 
+# Race as a factor variable
+actg$race <- with(actg,hispanic*1+black*2)
+actg$race <- factor(actg$race,levels = c(0,1,2), labels = c("White","Black", "Hispanic"))
+
 # Deleting indicators of outcome and drop-out
 actg$delta<-NULL
 actg$drop<-NULL