entrance_file.Rmd

---
title: "entrance_survey"
author: "Phil Mendoza"
date: "9/16/2020"
output: html_document
---
ctrl alt i


```{r}
DF <- read.csv("hudk4050-entrance-survey.csv", header = TRUE) 

mode(DF$program)


```

#simple math

```{r}

7+8
8/2

x <- 8/12
mode(x)
x

```
# Variable manipulation

```{r}
mean(DF$UTC)

DF$UTC.ms <- DF$UTC*DF$math.stat
```