#The exam consisted of 15 questions with which you could score a maximum of 55 points (5 points bonus included). The required number of questions answered correctly was lowered from 8 to 7 questions. If you answered 6 questions or less correctly, you did not pass the exam. There is no negotiation about the number of points achieved in the exam.

mydata <- read.table("./Results_10072023.csv", header=TRUE, sep=";", dec=",")

Explanation of the NLB point structure (max. 100 points, but if you have received additional points in the peer evaluation, you can receive more than 100 points)

\(NLB=0.20\times Presentation + 0.40\times Marketing + 0.40\times Statistics\)

If at least half of the team members rate a member differently and:

………………………………………………….

Since I am very pleased with the effort you have put into your R homework, the number of points achieved on HW is multiplied by a factor of 1.15.

Anyone who passes the exam may retake the exam once, and the higher grade will be used as the final grade.

#mydata$Final <-  mydata$Points + 1.15 * mydata$HW + 0.3 * mydata$NLB
library(psych)
psych::describe(mydata$Final) 
##    vars n  mean   sd median trimmed  mad  min  max range skew kurtosis   se
## X1    1 8 70.79 2.85  70.65   70.79 2.67 67.1 75.3   8.2 0.14    -1.36 1.01
print(mydata[c(1, 4:11)])
##   ID StudentID Percent Passed Points   HW  NLB Final Grade
## 1  1  19228871   46.67    YES   25.7 13.5 86.6  67.2     7
## 2  2  19609814   46.67    YES   25.7 18.0 96.6  75.3     8
## 3  3  19609821   60.00    YES   33.0 11.0 94.0  73.9     8
## 4  4  19596905   46.67    YES   25.7 11.0 96.0  67.1     7
## 5  5  19609840   46.67    YES   25.7 16.5 87.0  70.7     8
## 6  6  19609945   46.67    YES   25.7 14.5 94.0  70.5     8
## 7  7  19204405   53.33    YES   29.3 12.5 91.0  71.0     8
## 8  9  19613417   33.33     NO   18.3 12.5 84.0    NA     5
## 9  8  19230498   46.67    YES   25.7 14.0 96.0  70.6     8