Correcciones de volumenes.

invivos/app.R

@@ -290,9 +290,9 @@ server <- function(input, output) {
       table$Timepoint<-gsub("[A-Za-z ]","",table$Timepoint)
       if ("DPV" %in% colnames(table)){
         table<-dcast(table, Cage+`ID animal`+`ID tumor`+Group+Timepoint~DPV, value.var = "value")
-        table$Major<-table$Major/1000
-        table$Minor<-table$Minor/1000
-        table["Volume"]<-((table$Major*table$Minor*table$Minor)*(pi/6))*1000
+        table$Major<-table$Major
+        table$Minor<-table$Minor
+        table["Volume"]<-((table$Major*table$Minor*table$Minor)*(pi/6))
       }
       if ("TS" %in% colnames(table)){
         table<-dcast(table, Cage+`ID animal`+`ID tumor`+Group+Timepoint~TS, value.var = "value")