Eliminar un comentario.

1 year ago · 54a20f10c7
1 changed files with 1 additions and 1 deletions
--- a/invivos/app.R
+++ b/invivos/app.R
@ -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)