From b4c2cc36ed34268a5fa474849d65452fd00f4f59 Mon Sep 17 00:00:00 2001
From: meaganluck <meaganluck@users.noreply.github.com>
Date: Wed, 10 Nov 2021 10:14:22 -0500
Subject: [PATCH] Luck Exercise 8 Code

---
 Exercise8.R | 47 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)
 create mode 100644 Exercise8.R

diff --git a/Exercise8.R b/Exercise8.R
new file mode 100644
index 0000000..095bc71
--- /dev/null
+++ b/Exercise8.R
@@ -0,0 +1,47 @@
+#### Exercise 8 - Using control structures in R
+### Problem 1 - generate a plot using score-by-score information from "UWvMSU_1-22-13.txt"
+
+## Load data file
+scoreInfo<-read.delim("UWvMSU_1-22-13.txt")
+
+## Separate score-by-score data by school
+UWscores<-scoreInfo[scoreInfo$team=='UW',]
+MSUscores<-scoreInfo[scoreInfo$team=='MSU',]
+
+## Generate a matrix or dataframe with cumulative score for each team whenever either team scores
+# Write for loops to sum cumulative scores for each team when they score
+cumScoreUW<-numeric(length(UWscores$score))
+for(i in 1:length(UWscores$score)){
+  cumScoreUW[i]<-sum(UWscores$score[1:i])
+}
+
+cumScoreMSU<-numeric(length(MSUscores$score))
+for(i in 1:length(MSUscores$score)){
+  cumScoreMSU[i]<-sum(MSUscores$score[1:i])
+}
+
+## Plot cumulative score for each team as a function of time
+x1<-UWscores$time
+x2<-MSUscores$time
+y1<-cumScoreUW
+y2<-cumScoreMSU
+
+plot(x1,y1,type='l',xlab='time',ylab='points scored')
+lines(x2,y2)
+
+
+### Problem 2 - "guess my number game"
+## Generate random number between 1 and 100
+randomnumber<-sample(1:100,1)
+## Allow 10 guesses 
+# Write a for loop to loop through guesses with the outputs 'higher', 'lower', or 'correct'.
+for (i in 1:10) {
+  userGuess<-readline(prompt="Enter guess between 1 and 100: ")
+ if (userGuess < randomnumber){
+   print("Higher...")
+ } else if (userGuess > randomnumber){
+   print("Lower...")
+ } else {
+   print ("Correct!!")
+ }
+}