R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

summary(cars)
##      speed           dist       
##  Min.   : 4.0   Min.   :  2.00  
##  1st Qu.:12.0   1st Qu.: 26.00  
##  Median :15.0   Median : 36.00  
##  Mean   :15.4   Mean   : 42.98  
##  3rd Qu.:19.0   3rd Qu.: 56.00  
##  Max.   :25.0   Max.   :120.00

Including Plots

You can also embed plots, for example:

#Read the data and store it in a dataframe "titanic.df"
titanic.df<-read.csv(paste("Titanic Data.csv",sep=""))
View(titanic.df)

#TASK 4b Use R to create a table showing 
#the average age of the survivors and the average age of the people who died.
aggregate(titanic.df$Age, by =list(survived = titanic.df$Survived),mean)
##   survived        x
## 1        0 30.41530
## 2        1 28.42382
#TASK 4c Use R to run a t-test to test the following hypothesis: H2: The Titanic survivors were younger than the passengers who died.

t.test(Age~Survived,titanic.df)
## 
##  Welch Two Sample t-test
## 
## data:  Age by Survived
## t = 2.1816, df = 667.56, p-value = 0.02949
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  0.1990628 3.7838912
## sample estimates:
## mean in group 0 mean in group 1 
##        30.41530        28.42382
#p-value of the test is 0.02949, p<0.05, we rejest the Null Hypothes , so The titanic survivors are younger than the passengers who died.

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.