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

## 1. Simulate one exam
```{r q1a}
num_correct_ans <- function(nq) {
# write here
}
```

If all is right, you should get the following results:
```{r}
N <- 10000
sinav <- replicate(N, num_correct_ans(140))
barplot(table(sinav)/N)
```

## 2. Score correction
```{r q1b}
exam_score <- function(nq) {
# Write your code here
}
```

If all is right, you should get the following results:
```{r}
score <- replicate(N, exam_score(140))
barplot(table(score)/N)
```

## 3. Average and standard deviation
```{r q1c}
# Write here
```

## Confidence interval
```{r q1d}
# Write here
```

## Why Normal?

::: q1e
Answer here. Do not delete the block markers.
:::

<style>
.q1e { border: solid thin black;}
</style>