Eliminar un comentario.

2023-02-10 16:46:45 +01:00
parent 3e6b97c546
commit 54a20f10c7
1 changed files with 1 additions and 1 deletions
@@ -180,7 +180,7 @@ server <- function(input, output) {
    
    
    # df["Mouse"]<-gsub("[a-zA-Z]", "", df$MouseID)
-    # print(df$Volume)
+    
    s<-shapiro.test(df$Volume)[[2]]
    
    ngroup<-length(dades$groups)