Visualisation of beast time tree with geological scale in R

[PRASANTH PRABHU]

Hi,
I was plotting my time tree from the beast tree run using the following code.

#calculate the age of the root from the tree nodes

tree$root.time <- max(dist.nodes(tree))

#plot the tree
geoscalePhylo(tree,
              units = c("Period", "Epoch"),   # show Periods + Epochs
              boxes = "Period",               # colored boxes by Period
              cex.tip = 0.5,                  # tip label font size
              cex.age = 0.6,                  # age scale font size
              width = 3,                      # branch line width
              label.offset = 1,               # spacing for tip labels
              x.lim = c(0, 400),              # time range in Ma
              direction = "rightwards",       # time increasing to the right
              tick.scale = 25,                # tick marks every 25 Myr
              col.age = "gray40")  

However, the root age is calculated using tree$root.time <- max(dist.nodes(tree)) is around 400 mya; however, how ever the age of the root from the published literature is around 201 mya. When I visualise the tree in figtree, it is showing correctly. I was wondering if there is any other way to set the root age to visualise using geosclaephylo