Update shiny app clustering panel

LamineTourelab · May 2, 2024 · 2207e55 · 2207e55
1 parent 59db598
commit 2207e55
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/Data Visualization/Shiny App in genomics/shiny-app-for-genomics-data.R b/Data Visualization/Shiny App in genomics/shiny-app-for-genomics-data.R
@@ -1353,7 +1353,9 @@ server <- shinyServer(function(input, output, session)
                                                   height = input$height_png_heatmap, res = input$resolution_PNG_heatmap)
 
   output$missmap <- renderPlot({
-    missmap(Datastatsclust())
+    d <- dist(Datastatsclust())
+    hcl <- hclust(d)
+    plot(hcl)
   })
   #++++++++++++++++++++++++++++++++++++++++++++++++++ Kmeans