Skip to content

ShannonCulbert_Exercise10_Submission #10

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
shanculbert wants to merge 1 commit into
base: main
Choose a base branch
from
Open

ShannonCulbert_Exercise10_Submission #10

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
61 changes: 61 additions & 0 deletions Culbert_Exercise10.R
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,61 @@
##Question 1:
##create plot with MSU vs UW cumulative points scored during a game

#install ggplot
library(ggplot2)

#view data
UW_MSU <- read.table("UWvMSU_1-22-13.txt", header = TRUE)
UW_MSU

#variables for inputting scores
UW_score = numeric(length(c(1:nrow(UW_MSU))))
MSU_score = numeric(length(c(1:nrow(UW_MSU))))

#for loop with if-else statements
for (i in 1:nrow(UW_MSU)){
if (UW_MSU$team[i] == "UW"){
UW_score[i] <- UW_MSU$score[i]
MSU_score[i] <- 0
}else if (UW_MSU$team[i] == "MSU"){
MSU_score[i] <- UW_MSU$score[i]
UW_score[i] <- 0
}
}

#cumulative sums
UW_MSU$UW_Total <- c(cumsum(UW_score))
UW_MSU$MSU_Total <- c(cumsum(MSU_score))

@qtran4 qtran4 Dec 3, 2022

Copy link
Copy Markdown
Owner

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

You can do the cumulative sum within the for loop as well:

load table of scoring

scoring=read.table("UWvMSU_1-22-13.txt",header=TRUE,sep="\t",stringsAsFactors=FALSE)

look at data

dim(scoring)
head(scoring)

preallocating matrix to store cumulative scores

cum_scores=matrix(NA,nrow(scoring)+1,3)
cum_scores[,1]=c(0,scoring[,1])
cum_scores[1,2:3]=0
colnames(cum_scores)=c("time","UW","MSU")

looping through individual scoring events

for(i in 1:nrow(scoring)){
if(scoring[i,2]=="UW"){
cum_scores[(i+1),2]=cum_scores[i,2]+scoring[i,3]
cum_scores[(i+1),3]=cum_scores[i,3]
}else{
cum_scores[(i+1),2]=cum_scores[i,2]
cum_scores[(i+1),3]=cum_scores[i,3]+scoring[i,3]
}
}

#generate plot
ggplot(UW_MSU, aes(x=time))+
geom_line(aes(y=UW_Total, color="UW"))+
geom_line(aes(y=MSU_Total, color="MSU"))+
xlab("Time (min)")+
ylab("Score")


##Question 2:
##"Guess My Number" game

#create variable containing 1 to 100
x <- c(1:100)

#create function to carry out game
#use for loop with if-else statements
guess_my_number <- function() {
number <- sample(x=x, size=1)
print("I'm thinking of a number 1-100...")
for (i in 1:10){
guess <- readline(prompt = "Guess:")
if (number == guess){
print ("Correct!")
return ("End of Game")
}else if (number < guess){
print ("Lower")
}else if (number > guess){
print ("Higher")
}
}
}