`

#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