`
#install.packages("readr")
library(readr)
Titanicdata<-read_csv("C:\\Users\\MMEI100\\Desktop\\TitanicDataForSD2.csv")
## Parsed with column specification:
## cols(
## Class = col_character(),
## Sex = col_character(),
## Age = col_character(),
## Survived = col_character(),
## Freq = col_double()
## )
head(Titanicdata)
## # A tibble: 6 x 5
## Class Sex Age Survived Freq
## <chr> <chr> <chr> <chr> <dbl>
## 1 1st Male Child No 0
## 2 2nd Male Child No 0
## 3 3rd Male Child No 35
## 4 Crew Male Child No 0
## 5 1st Female Child No 0
## 6 2nd Female Child No 0