make.dummy(iris["Species"])
make.dummy.extract(iris$Species, "Species")
make.dummy.extract(c("top", "mid", "low", "mid", "top"), "level")
make.dummy.extract(factor(c("far", "near", "near")), "distance")
make.dummy.extract(c(TRUE, TRUE, FALSE), "sold")
Run the code above in your browser using DataLab