prise6/aVirtualTwins
1
0
Fork 0
mirror of https://github.com/prise6/aVirtualTwins.git synced 2024-05-01 19:52:43 +02:00
Code Issues Releases Wiki Activity

Fix typping issue

Browse source
This commit is contained in:
prise6 2015-06-14 17:38:55 +02:00
parent 131599a3d5
commit fc0ffb639b
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
R/formatRCTDataset.R
View file

@ -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)]