powered by
function from dummies package
dummy.data.frame( data, names = NULL, omit.constants = TRUE, dummy.classes = getOption("dummy.classes"), all = TRUE, ... )