diff --git a/.~lock.Schrick-Noah_CS-6643_Lab-4.docx# b/.~lock.Schrick-Noah_CS-6643_Lab-4.docx# index 20caa52..1ed054f 100644 --- a/.~lock.Schrick-Noah_CS-6643_Lab-4.docx# +++ b/.~lock.Schrick-Noah_CS-6643_Lab-4.docx# @@ -1 +1 @@ -,noah,NovaArchSys,30.09.2022 12:12,file:///home/noah/.config/libreoffice/4; \ No newline at end of file +,noah,NovaArchSys,30.09.2022 12:27,file:///home/noah/.config/libreoffice/4; \ No newline at end of file diff --git a/Schrick-Noah_CS-6643_Lab-4.R b/Schrick-Noah_CS-6643_Lab-4.R index 51cab6c..1767a9c 100644 --- a/Schrick-Noah_CS-6643_Lab-4.R +++ b/Schrick-Noah_CS-6643_Lab-4.R @@ -130,3 +130,12 @@ p <- ggplot(mytopgene.data.df, aes(x=phenotype, y=mygene, fill=phenotype)) + stat_boxplot(geom ='errorbar') + geom_boxplot() p <- p + xlab("MDD versus HC") + ylab(mygene) p + + +#### Part E: Interpretation of top genes +top_cutoff <- 200 +top_genes <- as.character(ttest_allgene.sorted[1:top_cutoff,1]) +write.table(top_genes, sep="\t", file="", quote=F, row.names=F, col.names=F) + + +#### Optional 1: Identify Outliers \ No newline at end of file diff --git a/Schrick-Noah_CS-6643_Lab-4.docx b/Schrick-Noah_CS-6643_Lab-4.docx index 78c7611..2de4885 100644 Binary files a/Schrick-Noah_CS-6643_Lab-4.docx and b/Schrick-Noah_CS-6643_Lab-4.docx differ