---
title: "Homework 9"
author: "Put your name here"
number: STUDENT_NUMBER
date: "Write date here"
subtitle: "Computing in Molecular Biology and Genetics II. Istanbul University."
---

# Wedding Planner 

## 1. Simulate one party
```{r q1}
party <- function(n_good, n_regular, n_bad) {
# write your code here 
}
```
You should use this code to test your function
```{r}
party(10, 50, 40)
```

## 2. Simulate ten thousand parties
Store the result in a vector called `parties`
```{r q2}
# write your code here
```
```{r}
barplot(table(parties))
```

## 3. Mean value and standard deviation
```{r q3}
# write your code here
```

## 4. Find an interval containing 95% of all parties
```{r q4}
# write your code here
```

## 5. Find population mean using a small sample
```{r}
sample_of_3 <- sample(parties, size=3)
```
```{r q5}
# write your code here
```

## 6. Find population mean using a larger sample
```{r}
sample_of_20 <- sample(parties, size=20)
```
```{r q6}
# write your code here
```
