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")