From 4f350982fc047e5226cbe9ed0b0310a686f8311a Mon Sep 17 00:00:00 2001
From: Julian Najera <juliannajera14@gmail.com>
Date: Fri, 5 Nov 2021 13:24:44 -0400
Subject: [PATCH 1/2] Added Exercise08

---
 Exercise08.R | 68 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 68 insertions(+)
 create mode 100644 Exercise08.R

diff --git a/Exercise08.R b/Exercise08.R
new file mode 100644
index 0000000..702df25
--- /dev/null
+++ b/Exercise08.R
@@ -0,0 +1,68 @@
+### Problem 1 ###
+
+setwd("C:/Users/Julian Najera/OneDrive - Johns Hopkins/Documents/Notre Dame/Semester 1/Introduction to Biocomputing/Biocomp_tutorial10//")
+
+game <- read.table("UWvMSU_1-22-13.txt",header = TRUE,sep = "",stringsAsFactors = FALSE)
+
+## Extract Points Scored for Individual School ##
+
+UW <- game[game$team=="UW",]
+MSU <- game[game$team=="MSU",]
+
+## Calculate Cumulative Points Scored for Each School ##
+
+cum_score_UW <-numeric(length(UW$score))
+for(i in 1:length(UW$score)){
+  cum_score_UW[i]<-sum(UW$score[1:i])
+}
+cum_score_UW
+
+cum_score_MSU <-numeric(length(MSU$score))
+for(i in 1:length(MSU$score)){
+  cum_score_MSU[i]<-sum(MSU$score[1:i])
+}
+cum_score_MSU
+
+# Alternative Approach Using Built-In Cumulative Function
+
+# cum_score_UW <- cumsum(UW$score)
+# cum_score_UW
+
+# cum_score_MSU <- cumsum(MSU$score)
+# cum_score_MSU
+
+## Plot Scores ##
+
+x1 <- UW$time
+x2 <- MSU$time
+y1 <- cum_score_UW
+y2 <- cum_score_MSU
+
+
+plot(x1,y1,type="l",main="UW vs. MSU Basketball Score", xlab = "Time (min)", ylab = "Points Scored")
+lines(x2,y2)
+
+
+### Problem 2 ###
+
+## Generate a random number between 1 and 100 ##
+
+guess_my_number <- function(number) {
+
+  for (i in 1:10){
+    my.guess <- readline(prompt = "Guess a Number Between 1-100: ")
+    if (my.guess > number){
+      print("Lower")
+    } else if (my.guess < number){
+      print("Higher")
+    } else {
+      print("Correct!")
+      break
+    }
+  }
+}
+
+## Test ##
+
+number <- sample(100,1)
+guess_my_number(number)

From 14a31d2cdf7c0a6b4d72d0b7336e1bd97d74d682 Mon Sep 17 00:00:00 2001
From: Julian Najera <juliannajera14@gmail.com>
Date: Thu, 11 Nov 2021 12:23:24 -0500
Subject: [PATCH 2/2] Tweaked Problem 2

---
 Exercise08.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Exercise08.R b/Exercise08.R
index 702df25..ef42d1d 100644
--- a/Exercise08.R
+++ b/Exercise08.R
@@ -1,6 +1,6 @@
 ### Problem 1 ###
 
-setwd("C:/Users/Julian Najera/OneDrive - Johns Hopkins/Documents/Notre Dame/Semester 1/Introduction to Biocomputing/Biocomp_tutorial10//")
+setwd("C:/Users/Julian Najera/OneDrive - Johns Hopkins/Documents/Notre Dame/Semester 1/Introduction to Biocomputing/Biocomp_tutorial10/")
 
 game <- read.table("UWvMSU_1-22-13.txt",header = TRUE,sep = "",stringsAsFactors = FALSE)
 
@@ -50,7 +50,7 @@ lines(x2,y2)
 guess_my_number <- function(number) {
 
   for (i in 1:10){
-    my.guess <- readline(prompt = "Guess a Number Between 1-100: ")
+    my.guess <- strtoi(readline(prompt = "Guess a Number Between 1-100: "), base=0L)
     if (my.guess > number){
       print("Lower")
     } else if (my.guess < number){
@@ -65,4 +65,4 @@ guess_my_number <- function(number) {
 ## Test ##
 
 number <- sample(100,1)
-guess_my_number(number)
+