Optional 1

2022-09-30 12:52:46 -05:00 · 2022-09-30 12:52:46 -05:00 · 8135395500
commit 8135395500
parent 0c85f75315
3 changed files with 9 additions and 2 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:27,file:///home/noah/.config/libreoffice/4;
+,noah,NovaArchSys,30.09.2022 12:52,file:///home/noah/.config/libreoffice/4;
--- a/Schrick-Noah_CS-6643_Lab-4.R
+++ b/Schrick-Noah_CS-6643_Lab-4.R
@ -138,4 +138,11 @@ 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
+#### Optional 1: Identify Outliers
+mddCorr<-cor(GxS.covfilter)  # distance based on correlation
+d <- sqrt(1-mddCorr)
+dim(d)
+rownames(d)
+mddTree = hclust(as.dist(d))
+mddTree$labels <- phenos.df$X
+plot(mddTree)
--- a/Schrick-Noah_CS-6643_Lab-4.docx
+++ b/Schrick-Noah_CS-6643_Lab-4.docx