---
title: "Dark Sea"
output: 
    html_notebook
---

## Introduction

This is my first stab at Kaggle.

Totally inspired by [Megan Risdal](https://www.kaggle.com/mrisdal/titanic/exploring-survival-on-the-titanic).

### Load and check data

```{r, message=FALSE, warning=FALSE}
library(readr)
library(magrittr)
library(tidyverse)
library(scales)

Train <- read_csv("../input/train.csv")
Test <- read_csv("../input/test.csv")
D <- bind_rows(Train, Test)
summary(D)
D$Pclass %<>% as.character()
```

### 

library(aod)
mylogit <- glm(Survived ~ Pclass + Sex + Fare + SibSp + Parch,
               family = binomial("logit"), data = Train)
Survived <- predict(mylogit, Test[, c(2,4,9,6,7)])
Survived <- ifelse(Survived >= 0, 1, 0)
Res <- data.frame(Test[,1], Survived)
write.csv(Res, 'titanic_pred.csv', row.names = F)
```