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

# 1. The town is full of rats
 ```{r q1a}
# write your answer here
```

```{r}
town <- cat_and_rat(N=3650, rats_ini=3000, cats_ini=100, birth_rate=1.3/100, 
                    catch_rate=1e-6, death_rate=0.7/100)
plot(town$cats, xlab="Days", ylab="Population", type="l")
lines(town$rats, lty=2)
legend("top", legend=c("cats","rats"), lty = 1:2, inset=c(0,-0.2), horiz = TRUE, xpd = TRUE)
```

## How does behavior change when conditions change?
```{r q1b}
# write your answer here
```

## Bonus
```{r q1c}
# write your answer here
```

# 2. When the cat is away, the rats will play
```{r q2a}
# write your answer here
```

## Calculate GC content
```{r q2b}
# write your answer here
```

```{r}
plot(gc_genes)
abline(h=mean(gc_genes))
```

## Find extreme values
```{r q2c}
# write your answer here
```

Use these indices to look inside `names(genes)`
```{r q2d}
# write your answer here
```

## Bonus
```{r q2e}
# write your answer here
```
