# NOT RUN {
# Pipe cars dataset into zlm for fitting
cars %>% zlm( speed ~ dist )
# Process iris with filter before piping to zlm (requires dplyr)
if(require("dplyr")) {
iris %>%
filter(Species=="setosa") %>%
zlm(Sepal.Length ~ Sepal.Width + Petal.Width)
}
# }
Run the code above in your browser using DataLab