Correcciones de volumenes.

2021-06-03 15:40:15 +02:00
parent cbf28e37c4
commit eed1938c16
1 changed files with 3 additions and 3 deletions
@@ -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")