Skip to content

Elias Issa Exercise 10#18

Open
haveaniceday9 wants to merge 2 commits into
qtran4:mainfrom
haveaniceday9:main
Open

Elias Issa Exercise 10#18
haveaniceday9 wants to merge 2 commits into
qtran4:mainfrom
haveaniceday9:main

Conversation

@haveaniceday9
Copy link
Copy Markdown

No description provided.

Comment thread Exercise10.R

#Plot of both cumulative data vs time with different colors
ggplot() + geom_line(data= MSU_cum, aes(x=time, y= score,color="red")) + geom_line(data= UW_cum, aes(x=time, y= score,color="black")) +theme_classic()

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.

an alternative way:

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]
}
}

Copy link
Copy Markdown
Owner

@qtran4 qtran4 left a comment

Choose a reason for hiding this comment

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

2

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment

Labels

None yet

Projects

None yet

Development

Successfully merging this pull request may close these issues.

2 participants