---
title: "T.C. İstanbul Üniversitesi<br/>Fen Fakültesi Dekanliği"
author: "Moleküler Biyoloji ve Genetik Bölümü"
date: "25 October 2018"
output:
  html_document:
    self_contained: no
    theme: readable
  word_document: default
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
exam <- read.table("https://anaraven.bitbucket.io/static/2018/calendar/midterms.txt", sep="\t", header=T)
```

## 2018-2019 Eğitim-Öğretim Yili Güz Yariyili 

# I.Yariyil
```{r}
small <- exam[exam$Dept=="MOLEKÜLER BİYOLOJİ" & exam$Semester=="I", c("Course","Date","Time","Classrooms")]
small <- unique(small)
knitr::kable(small[order(small$Date),], row.names=FALSE)
```

# III.Yariyil
```{r}
small <- exam[exam$Dept=="MOLEKÜLER BİYOLOJİ" & exam$Semester=="III", c("Course","Date","Time","Classrooms")]
small <- unique(small)
knitr::kable(small[order(small$Date),], row.names=FALSE)
```

# V.Yariyil
```{r}
small <- exam[exam$Dept=="MOLEKÜLER BİYOLOJİ" & exam$Semester=="V", 5:8]
small <- unique(small)
knitr::kable(small[order(small$Date),], row.names=FALSE)
```

# VII.Yariyil
```{r}
small <- exam[exam$Dept=="MOLEKÜLER BİYOLOJİ" & exam$Semester=="VII", c("Course","Date","Time","Classrooms")]
small <- unique(small)
knitr::kable(small[order(small$Date),], row.names=FALSE)
```
