# NOT RUN {
# Integer treatment
txVec <- rbinom(100,1,0.5)
txName <- "A1"
tst <- DynTxRegime:::.newTxInfoNoSubsets(txName = txName,
txVec = txVec,
suppress = FALSE)
is(tst)
# Factor treatment
txVec <- as.factor(txVec)
tst <- DynTxRegime:::.newTxInfoNoSubsets(txName = txName,
txVec = txVec,
suppress = FALSE)
is(tst)
# }
Run the code above in your browser using DataLab