diff --git a/invivos/app.R b/invivos/app.R
index bc56f91..e582248 100755
--- a/invivos/app.R
+++ b/invivos/app.R
@@ -323,9 +323,9 @@ server <- function(input, output) {
         
         template<-data.frame(
           Cage=rep(LETTERS[1:ncages], each=nrat_cage*as.numeric(input$ntumors)),
+          Animal=rep(1:(nrat_cage*ncages), each=as.numeric(input$ntumors)),
           Date="",
           DayPostInoc="",
-          Animal=rep(1:(nrat_cage*ncages), each=as.numeric(input$ntumors)),
           Group="",
           Side=rep(id_tumors, nrat_cage*ncages),
           Weight="",