# 1. Load libraries 

library(dplyr)
library(tidyr)
library(purrr)

# 2. Load data
#
titanic <- read.csv("titanic.csv")

# 3. Prepare data
#
titanic <- na.omit(titanic)

# 4. Do analysis
#
model <- glm(survived ~ ., data = titanic, family = binomial)

# 5. Disseminate results
#
# - Write to CSV/XLS or database
# - Send email

# 6. Clean up
#
rm(titanic)