Fix typing issue 'sprintf'

This commit is contained in:
prise6 2016-09-13 10:55:30 +02:00 committed by GitHub
parent f614b0f3d3
commit 8d6baec535
1 changed files with 3 additions and 3 deletions

View File

@ -95,8 +95,8 @@ formatRCTDataset <- function(dataset, outcome.field, treatment.field, interactio
}
}else if(length(levels(var)) == 2){
cat(sprintf("%s is two-level factor. It has to be transformed into numeric value : \n", i))
cat(srpintf("%s becomes 0 \n", levels(var)[1]))
cat(srpintf("%s becomes 1 \n", levels(var)[2]))
cat(sprintf("%s becomes 0 \n", levels(var)[1]))
cat(sprintf("%s becomes 1 \n", levels(var)[2]))
d[, i] <- ifelse(var == levels(var)[1], 0, 1)
predictors.next[iter] <- i
}else{
@ -109,4 +109,4 @@ formatRCTDataset <- function(dataset, outcome.field, treatment.field, interactio
d <- d[, colnames.order]
return(invisible(d))
}
}