From fc0ffb639bcea719d6fc486ff3771cb3d6e06225 Mon Sep 17 00:00:00 2001 From: prise6 Date: Sun, 14 Jun 2015 17:38:55 +0200 Subject: [PATCH] Fix typping issue --- R/formatRCTDataset.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/formatRCTDataset.R b/R/formatRCTDataset.R index a124bbf..f925f54 100644 --- a/R/formatRCTDataset.R +++ b/R/formatRCTDataset.R @@ -54,7 +54,7 @@ formatRCTDataset <- function(dataset, outcome.field, treatment.field, interactio if(!is.numeric(treatment) & !is.integer(treatment)) treatment <- as.numeric(treatment) if(!( length(unique(treatment)) == 2L & all(c(0,1) %in% unique(treatment)) )) stop(sprintf("%s, response must be numeric:\n 0 = no treatment \n 1 = treatment \n", treatment.field)) - d[, treatment.field.wich] <- treatment + d[, treatment.field.which] <- treatment predictors <- colnames(dataset)[-c(outcome.field.which, treatment.field.which)]