Titanic_Session 6

Apurva

First Slide

setwd("~/Downloads/IIM Lucknow/TERM 5/DAM")
library(readr)
Titanic_Data <- read_csv("~/Downloads/IIM Lucknow/TERM 5/DAM/Titanic Data.csv")

Slide With Summary

summary(Titanic_Data)

    Survived          Pclass          Sex                 Age       
 Min.   :0.0000   Min.   :1.000   Length:889         Min.   : 0.40  
 1st Qu.:0.0000   1st Qu.:2.000   Class :character   1st Qu.:22.00  
 Median :0.0000   Median :3.000   Mode  :character   Median :29.70  
 Mean   :0.3825   Mean   :2.312                      Mean   :29.65  
 3rd Qu.:1.0000   3rd Qu.:3.000                      3rd Qu.:35.00  
 Max.   :1.0000   Max.   :3.000                      Max.   :80.00  
     SibSp            Parch             Fare           Embarked        
 Min.   :0.0000   Min.   :0.0000   Min.   :  0.000   Length:889        
 1st Qu.:0.0000   1st Qu.:0.0000   1st Qu.:  7.896   Class :character  
 Median :0.0000   Median :0.0000   Median : 14.454   Mode  :character  
 Mean   :0.5242   Mean   :0.3825   Mean   : 32.097                     
 3rd Qu.:1.0000   3rd Qu.:0.0000   3rd Qu.: 31.000                     
 Max.   :8.0000   Max.   :6.0000   Max.   :512.329

Slide With Q1a

dim(Titanic_Data)

[1] 889   8

nrow(Titanic_Data)

[1] 889

ncol(Titanic_Data)

[1] 8