## Some E2 Test Cases with the correct output.
# Make your own test cases as well, and put them in a separate R script.
# Do not submit your test cases.

> BestGrades(c(34, 87, 84, 65, 92, 11, 58))
[1]  3 87 84 92
> BestGrades(c(23, 43, 76, 54))
[1] 0
>
>
> IceCreamPrice(3, TRUE, FALSE, TRUE)
[1] 8.5
> IceCreamPrice(2, TRUE, FALSE, FALSE)
[1] 5.5
> IceCreamPrice(23, TRUE, FALSE, FALSE)
[1] -1
> IceCreamPrice(3, TRUE, TRUE, TRUE)
[1] -1
>
>
> MiddleOfVector(c(2,5,7))
[1] 2 7
> MiddleOfVector(c(2,5,7,8))
[1] 2 5 6 7 8
>