diff --git a/invivos/app.R b/invivos/app.R index 98c163b..229506a 100755 --- 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)