Part E

2022-09-30 12:27:18 -05:00 · 2022-09-30 12:27:18 -05:00 · 0c85f75315
commit 0c85f75315
parent d9e072f1f2
3 changed files with 10 additions and 1 deletions
--- 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;
+,noah,NovaArchSys,30.09.2022 12:27,file:///home/noah/.config/libreoffice/4;
--- 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
--- a/Schrick-Noah_CS-6643_Lab-4.docx
+++ b/Schrick-Noah_CS-6643_Lab-4.docx