From de43fb492cac87a069d52fced81144aad58ce351 Mon Sep 17 00:00:00 2001
From: Erin Maron <erinmaron@erins-mbp.dhcp.nd.edu>
Date: Wed, 10 Nov 2021 22:01:45 -0500
Subject: [PATCH 1/2] Saving for Later

---
 MaronTutorial10.R | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 MaronTutorial10.R

diff --git a/MaronTutorial10.R b/MaronTutorial10.R
new file mode 100644
index 0000000..c56503d
--- /dev/null
+++ b/MaronTutorial10.R
@@ -0,0 +1,21 @@
+#Maron Tutorial 10 Assignment 
+setwd("~/Desktop/r-novice-inflammation/BioComp/Classwork/Biocomp_tutorial10")
+
+#Generate Graph with Cumulative Score
+a<-read.table(file="UWvMSU_1-22-13.txt",header=TRUE, stringsAsFactors = FALSE )
+score<-a[order(a$team,a$time),]
+#Variables and DF production
+UW<-tail(score,23)
+MSU<-head(score,27)
+a<-cumsum(UW$score)
+b<-cumsum(MSU$score)
+All<-c(b,a)
+df<-data.frame("Team"=score$team,"Time"=score$time, "Score"=All)
+dfMSU<-head(df,27)
+dfUW<-tail(df,23)
+#Plot 
+plot(dfMSU$Time,dfMSU$Score, type="l")
+lines(dfUW$Time, dfUW$Score)
+
+#"Guess My Number" Game 
+#generate a random number between 1:100

From f9677132fef11c3f423e1d00aaa1e8797b9deff1 Mon Sep 17 00:00:00 2001
From: Erin Maron <erinmaron@Erins-MacBook-Pro.local>
Date: Thu, 11 Nov 2021 14:39:30 -0500
Subject: [PATCH 2/2] final copy

---
 MaronTutorial10.R | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/MaronTutorial10.R b/MaronTutorial10.R
index c56503d..1ee980d 100644
--- a/MaronTutorial10.R
+++ b/MaronTutorial10.R
@@ -14,8 +14,30 @@ df<-data.frame("Team"=score$team,"Time"=score$time, "Score"=All)
 dfMSU<-head(df,27)
 dfUW<-tail(df,23)
 #Plot 
+par(mar=c(1,1,1,1))
 plot(dfMSU$Time,dfMSU$Score, type="l")
 lines(dfUW$Time, dfUW$Score)
 
 #"Guess My Number" Game 
 #generate a random number between 1:100
+read<-function(){
+  n<-readline(prompt="Guess:")
+  if(!grepl("^[0-9]",n)){
+    return(read())
+  }
+  return(as.integer(n))
+}
+num<-round(runif(1)*100, digits=0)
+guess<-1
+PlayTheGame<-function(guess){
+  while(guess !=num){
+    guess<-read()
+    if(guess<num){
+      print("Higher")
+    } else if (guess>num){
+      print("Lower")
+    }else{
+      print("Correct!")
+    }
+    }
+}