From ffb76d38b51af54086313568e4e09b8e49ac0a85 Mon Sep 17 00:00:00 2001
From: Coleen Gillilan <cgillila@nd.edu>
Date: Fri, 5 Nov 2021 12:13:26 -0400
Subject: [PATCH] Exercise 8 Completed

---
 GuessMyNumber.R | 19 +++++++++++++++++++
 Part1.R         | 15 +++++++++++++++
 2 files changed, 34 insertions(+)
 create mode 100644 GuessMyNumber.R
 create mode 100644 Part1.R

diff --git a/GuessMyNumber.R b/GuessMyNumber.R
new file mode 100644
index 0000000..44e1007
--- /dev/null
+++ b/GuessMyNumber.R
@@ -0,0 +1,19 @@
+# Assuming user only inputs integer values
+rm(list=ls())
+
+# Generate random value
+num <- sample(1:100, 1)
+
+# loop through 10 guesses
+for (i in 1:10) {
+  usernum <- strtoi(readline(prompt = "Choose a number: "))
+  # check guess
+  if (usernum == num) {
+    print("Correct") 
+    break
+  } else if (usernum > num) {
+    print("Lower")
+  } else if (usernum < num) {
+    print("Higher")
+  }
+}
diff --git a/Part1.R b/Part1.R
new file mode 100644
index 0000000..cc33074
--- /dev/null
+++ b/Part1.R
@@ -0,0 +1,15 @@
+# Assuming UWvMSU_1-22-13.txt is in the cwd
+rm(list=ls())
+
+# Read in file
+game <- read.table("UWvMSU_1-22-13.txt",header=TRUE,sep="",stringsAsFactors=FALSE)
+UWgame <- game[game$team == "UW",]
+MSUgame <- game[game$team == "MSU",]
+
+# Create cumulative score
+UWgame$score = cumsum(UWgame$score)
+MSUgame$score = cumsum(MSUgame$score)
+
+# plot the lines
+plot(c(0,UWgame$time,40), c(0,UWgame$score,max(UWgame$score)), xlab="time", ylab="score",type="l", xlim=c(0,40), ylim=c(0,max(c(UWgame$score,MSUgame$score))+3), col="red")
+lines(c(0,MSUgame$time,40), c(0,MSUgame$score,max(MSUgame$score)), col="blue")