library(dplyr)
library(tidyr)
iris %>%
as_tibble %>%
mutate(
bin = 1,
Species = factor(paste0("_is_", Species))) %>%
spread(
key = Species,
value = bin,
fill = 0)
doesn't work but model.matrix
does:
model.matrix(object = ~ Species - 1, data = iris)