marcelcosta/invivos
1
0
Fork 0
Code Issues 3 Pull Requests Projects Releases Wiki Activity

Correcciones de volumenes.

Browse Source
This commit is contained in:
Costa
2021-06-03 15:40:15 +02:00
parent cbf28e37c4
commit eed1938c16
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
invivos/app.R
+3 -3
View File
@@ -290,9 +290,9 @@ server <- function(input, output) {
table$Timepoint<-gsub("[A-Za-z ]","",table$Timepoint) table$Timepoint<-gsub("[A-Za-z ]","",table$Timepoint)
if ("DPV" %in% colnames(table)){ if ("DPV" %in% colnames(table)){
table<-dcast(table, Cage+`ID animal`+`ID tumor`+Group+Timepoint~DPV, value.var = "value") table<-dcast(table, Cage+`ID animal`+`ID tumor`+Group+Timepoint~DPV, value.var = "value")
table$Major<-table$Major/1000 table$Major<-table$Major
table$Minor<-table$Minor/1000 table$Minor<-table$Minor
table["Volume"]<-((table$Major*table$Minor*table$Minor)*(pi/6))*1000 table["Volume"]<-((table$Major*table$Minor*table$Minor)*(pi/6))
} }
if ("TS" %in% colnames(table)){ if ("TS" %in% colnames(table)){
table<-dcast(table, Cage+`ID animal`+`ID tumor`+Group+Timepoint~TS, value.var = "value") table<-dcast(table, Cage+`ID animal`+`ID tumor`+Group+Timepoint~TS, value.var = "value")