Skip to content

Max Zupfer, Roman Fresquez, Rey Ortiz Bautista Final#6

Open
maxzupfer wants to merge 1 commit into
qtran4:mainfrom
maxzupfer:main
Open

Max Zupfer, Roman Fresquez, Rey Ortiz Bautista Final#6
maxzupfer wants to merge 1 commit into
qtran4:mainfrom
maxzupfer:main

Conversation

@maxzupfer
Copy link
Copy Markdown

No description provided.

Comment thread supportingFunctions.R
write.table(FILE,file=paste0(directory,sub(".txt","",countrycsv[i]),".csv"),row.names=F,quote=F,sep=",")
}
}

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.

+2

Comment thread supportingFunctions.R
write.csv(All_Data_Both, file= "All_Data_Both.csv")
}
}

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.

+2

Comment thread supportingFunctions.R
print(Age_Distribution_Plot)
}


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.

+2

Comment thread analysis.R
#This code allows the user to decide what to do with NA's
Combined_CSV(directory1, directory2, directory3)
#To run on personal computer:
Combined_CSV("/Users/maxwellzupfer/Desktop/Biocomputing/Rproject/countryX", "/Users/maxwellzupfer/Desktop/Biocomputing/Rproject/countryY", "/Users/maxwellzupfer/Desktop/Biocomputing/Rproject")
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 assign "/Users/maxwellzupfer/Desktop/Biocomputing/Rproject/" as a variable and use the paste function to change the directory

Comment thread analysis.R
Data_Summary(file)
#To run on personal computer:
Data_Summary(All_Data_Both)

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.

+2

Comment thread analysis.R
ggplot(data = outbreak, aes(x=dayofyear, y=totalPatients, group=Country,color=Country))+
geom_line(linewidth=0.5)+theme_classic()+ggtitle("Cumulative Infections Over Time")+xlab("Day Number")+ylab("Total Infected Patients")
#Plot is saved under Infections Per Country Graph.pdf

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.

+4

Comment thread analysis.R
#Run Function To Create Graph on personal computer
Vaccine_Question(All_Data_Both)
#The graphical support for this question is VaccineGraph.pdf, which demonstrates markers 01-05 are dominated by country X outbreak, and 06-10 are dominated by the country Y outbreak

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.

+4

Comment thread analysis.R
Vaccine_Question(All_Data_Both)
#The graphical support for this question is VaccineGraph.pdf, which demonstrates markers 01-05 are dominated by country X outbreak, and 06-10 are dominated by the country Y outbreak


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.

Good commenting and efficient code that uses coding concepts that we covered in class – 4 points

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.

  1. Good job!

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