From eed1938c1688ac9f39f40f7b9a69dc15d7da49d3 Mon Sep 17 00:00:00 2001
From: Costa <47926492N@ICO.SCS.local>
Date: Thu, 3 Jun 2021 15:40:15 +0200
Subject: [PATCH] Correcciones de volumenes.

---
 invivos/app.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/invivos/app.R b/invivos/app.R
index 712eb05..54147be 100644
--- a/invivos/app.R
+++ b/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")