# \donttest{
# Displaying the multiverse table without any fitted values.
hurricane_strength <- mutate_branch(
NDAM,
HighestWindSpeed,
Minpressure_Updated_2014
)
mv <- create_multiverse(hurricane) %>%
add_mutate_branch(hurricane_strength)
summary(mv)
## Displaying after adding a a filter branch.
hurricane_outliers <- filter_branch(
!Name %in% c("Katrina", "Audrey", "Andrew"),
!Name %in% c("Katrina"),
TRUE # include all
)
mv <- add_filter_branch(mv, hurricane_outliers)
summary(mv)
# }
# \donttest{
# Displaying the multiverse table with \code{lm} models fitted.
hurricane_strength <- mutate_branch(
NDAM,
HighestWindSpeed,
Minpressure_Updated_2014
)
y <- mutate_branch(
alldeaths, log(alldeaths + 1)
)
hurricane_outliers <- filter_branch(
!Name %in% c("Katrina", "Audrey", "Andrew"),
TRUE # include all
)
model_specifications <- formula_branch(
y ~ MasFem,
y ~ MasFem + hurricane_strength
)
mv <- create_multiverse(hurricane) %>%
add_filter_branch(hurricane_outliers) %>%
add_mutate_branch(hurricane_strength, y) %>%
add_formula_branch(model_specifications) %>%
lm_mverse()
summary(mv)
# }
# \donttest{
# Displaying the multiverse table with \code{glm} models fitted.
hurricane_strength <- mutate_branch(
NDAM,
HighestWindSpeed,
Minpressure_Updated_2014
)
hurricane_outliers <- filter_branch(
!Name %in% c("Katrina", "Audrey", "Andrew"),
TRUE # include all
)
model_specifications <- formula_branch(
alldeaths ~ MasFem,
alldeaths ~ MasFem + hurricane_strength
)
model_distributions <- family_branch(poisson)
mv <- create_multiverse(hurricane) %>%
add_filter_branch(hurricane_outliers) %>%
add_mutate_branch(hurricane_strength) %>%
add_formula_branch(model_specifications) %>%
add_family_branch(model_distributions) %>%
glm_mverse()
summary(mv)
# }
# \donttest{
# Displaying the multiverse table with \code{glm.nb} models fitted.
hurricane_outliers <- filter_branch(
!Name %in% c("Katrina", "Audrey", "Andrew"),
TRUE # include all
)
model_specifications <- formula_branch(alldeaths ~ MasFem)
mv <- create_multiverse(hurricane) %>%
add_filter_branch(hurricane_outliers) %>%
add_formula_branch(model_specifications) %>%
glm.nb_mverse()
summary(mv)
# }
Run the code above in your browser using DataLab