---

title: “tugas 1” author: “Syaza” date: “22/8/2021” output: html_document

#Data Checking library(dplyr) data = data.frame(Titanic) View (Titanic) str (Titanic) class(Titanic)

#Summarise data number_passangers = summarise(data, sum(Freq)) number_passangers

#Grouping data number_passangers_class = group_by(data, Sex) number_passangers_class

#Arrange data data_arrange = arrange(data, Sex, Age) data_arrange

#Filter data filter_data = filter(data, Sex == ‘Male’) filter_data

#Select data pilih = select (data, Sex, Age) pilih

#Mutate data mutate_data = mutate (data, Freq = Freq * 100) mutate_data

#Combine arrange dan group_by result =arrange(data, Survived .by_group =TRUE) result

#Combine arrange dan filter filter_arrange = arrange( filter (data, Sex == ‘Male’),desc(Freq)) filter_arrange

#Combine summarise dan filter sum_male_survived = summarise ((filter (data, Sex == ‘Male’, Survived == ‘Yes’)),sum(Freq)) sum_male_survived