From 227230e865d3e10ff7af19646335e8a1cc5f954a Mon Sep 17 00:00:00 2001
From: Nate Kroeze <nkroeze@nd.edu>
Date: Fri, 2 Dec 2022 00:14:17 -0500
Subject: [PATCH 1/2] HW

---
 Exercise10NK.R | 51 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)
 create mode 100644 Exercise10NK.R

diff --git a/Exercise10NK.R b/Exercise10NK.R
new file mode 100644
index 0000000..b1ab9f1
--- /dev/null
+++ b/Exercise10NK.R
@@ -0,0 +1,51 @@
+# Nathan Kroeze
+# 12/2/2022
+# Exercise 10
+
+library(tidyverse)
+
+setwd("C:/Users/Natha/Desktop/Biocomputing/Exercise10")
+game <- read.table("UWvMSU_1-22-13.txt",sep = "", header = TRUE)
+
+MSU <- game[game$team=="MSU",]
+UW <- game[game$team=="UW",]
+
+MSU_score <- MSU$score
+UW_score <- UW$score
+
+sum_MSU <- vector("numeric",length(MSU_score))
+sum_UW <- vector("numeric",length(UW_score))
+
+
+for(i in 1:length(MSU_score)){
+  sum_MSU[i] <- sum(MSU_score[1:i])
+}
+for(i in 1:length(UW_score)){
+  sum_UW[i] <- sum(UW_score[1:i])
+}
+
+MSU$cum_score <- sum_MSU
+UW$cum_score <- sum_UW
+game2 <- rbind(MSU,UW)
+
+ggplot(game2, aes(x = time, y = cum_score, group = team)) + 
+  geom_line(aes(color = team),linewidth = 1.5) + ylab("Cumulative Score")
+
+###
+number = sample(1:100,1)
+count = 0
+
+for(i in 1:10){
+  input <- readline("Guess: ")
+  if(input == number){
+    print("Correct!")
+    break
+  }else if(input < number){
+    print("Higher...")
+  }else{print("Lower...")}
+  count <- count + 1
+  if(count == 10){
+    print("Better luck next time!")
+    count <- 0
+  }
+}

From d63cf180f6666a71019751508c7cf1bfc7776d40 Mon Sep 17 00:00:00 2001
From: Nate Kroeze <nkroeze@nd.edu>
Date: Fri, 2 Dec 2022 00:18:37 -0500
Subject: [PATCH 2/2] saves

---
 Exercise10NK.R | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/Exercise10NK.R b/Exercise10NK.R
index b1ab9f1..1710c3f 100644
--- a/Exercise10NK.R
+++ b/Exercise10NK.R
@@ -4,6 +4,8 @@
 
 library(tidyverse)
 
+### Cumulative Scores
+
 setwd("C:/Users/Natha/Desktop/Biocomputing/Exercise10")
 game <- read.table("UWvMSU_1-22-13.txt",sep = "", header = TRUE)
 
@@ -31,7 +33,10 @@ game2 <- rbind(MSU,UW)
 ggplot(game2, aes(x = time, y = cum_score, group = team)) + 
   geom_line(aes(color = team),linewidth = 1.5) + ylab("Cumulative Score")
 
-###
+
+
+### Number Game
+
 number = sample(1:100,1)
 count = 0