---
title: "Quiz-1"
output:
  html_document: default
  pdf_document: default
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(xlsx)
library(stats)
library(rJava)
library(ggplot2)
library(plotly)
library(mosaic)
setwd("C:/Users/Mehdi/Desktop/Desktop/Statistics Courses/STAT2040/Mehdi/Quizes and Exam")
df <- read.xlsx("./Quiz 1.xlsx", sheetIndex = "Grades", startRow = 2)
colnames(df) <- c("Student ID", "Mark")
```


### Follwoing is the Bar chart showing the students mark (out of 34) on Quiz-1
#### Hover the mouse over the graph to explore more
```{r}
## Histogram
bchart <- ggplot(data=df, aes(x = Mark)) +
        geom_histogram(col='blue', fill='red', bins = 30) +
        xlab("Mark from 34") + ggtitle("Distribution of students mark on Quiz-1")
ggplotly(bchart)
```

### Follwoing is the Box and Whisker plot showing the students mark (out of 34) on Quiz-1
#### Hover the mouse over the graph to explore more

```{r}
## Histogram
box <- ggplot(df, aes(y=Mark, fill=Mark)) + geom_boxplot(fill="orange" ) +
         guides(fill=FALSE)


ggplotly(box)
#box <- boxplot(df$Mark, xlab = "Students Mark" ,col = "orange", horizontal = TRUE)
#ggplotly(b)
```

### Here please find the raw data and statistical measures related to this quiz.
```{r}
df$Mark

favstats(df$Mark)
```

### You can find the answer to following questions
* How is your mark in comparison with the class Median?
* How does your mark affect the class Mean?
* What is your evaluation of the class performance on Quiz-1?
* What is your plan to improve on the next Quiz? (It is coming soon, please check the course schedule)