#Sample Solution
---
title: "Hypothesis Testing in R"
output: html_notebook
---
```{r message = FALSE}
# load data
load("week_1.Rda")
week_1
load("week_2.Rda")
week_2
```
```{r}
# calculate week_1_mean and week_2_mean here:
week_1_mean <- mean(week_1)
week_1_mean
week_2_mean <- mean(week_2)
week_2_mean
```
```{r}
# calculate week_1_sd and week_2_sd here:
week_1_sd <- sd(week_1)
week_1_sd
week_2_sd <- sd(week_2)
week_2_sd
```
```{r}
# run two sample t-test here:
results <- t.test(week_1,week_2)
results
```
No comments:
Post a Comment