# \donttest{
data(ant.final)
fl<-fiber.lengths(ant.final, res = 0.000673107, df=1)
cols<-color.scale(fl, "blue", "green")
muscle.plot.stl(ant.final, res = 0.000673107, cols = cols, mirror.axis = TRUE, df=1)
# }
Run the code above in your browser using DataLab