|
|
@ -180,7 +180,7 @@ server <- function(input, output) { |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# df["Mouse"]<-gsub("[a-zA-Z]", "", df$MouseID) |
|
|
# df["Mouse"]<-gsub("[a-zA-Z]", "", df$MouseID) |
|
|
# print(df$Volume) |
|
|
|
|
|
|
|
|
|
|
|
s<-shapiro.test(df$Volume)[[2]] |
|
|
s<-shapiro.test(df$Volume)[[2]] |
|
|
|
|
|
|
|
|
ngroup<-length(dades$groups) |
|
|
ngroup<-length(dades$groups) |
|
|
|
