---
title: "SML201 Precept 1, Spring 2020"
output:
html_document:
df_print: paged
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
### Problem 1: Creating and saving `R` files
Create and save the file `p1.R` on your computer. All your work should be in `p1.R`. You must work with one partner. You should work collaboratively. Both partners are responsible for being able to explain the work that's been done to the preceptor.
### Problem 2: Variables and Conditionals
#### Problem 2(a)
Write code to store the value `98` in a variable named `my.score`. Then, write code to output the value of `my.score` to the console.
#### Problem 2(b)
Suppose we'd like to adjust the score by multiplying it by 1.2, but making it so that the adjusted score is never above 100. So if `my.score` is e.g., 60, the adjusted score would be 60*1.2=72, but if `my.score` is 90, the adjusted score would be 100, since $108=1.2\times 90$ is over 100. Write code to compute the adjusted score and store it in a variable named `adj.score`.
### Problem 3: Function and using functions
Write a function named `compute.adj.score` which computes the adjusted score, as in 2(b). Write code that uses this function to display the results of adjusting the scores 60, 70, 80, 90, and 100
### Problem 4: Functions and Conditionals
#### Problem 4(a)
Write a function named `disc` which computes $b^2 - 4ac$ for the inputs `a`, `b`, and `c`. The first line of your solution code should look like
`disc <- function(a, b, c){`
Now use this function to compute the [discriminant](https://en.wikipedia.org/wiki/Discriminant) of two quadratic equations.
#### Problem 4(b)
Write a function named `num.solns` which returns the number of unique real solutions of the quadratic equation $ax^2 + bx + c$.
#### Problem 4(c)
Write a function `qaud.roots` which prints the solutions (if any) of a quadratic equation.