# \donttest{
data(ant.raw)
fl<-fiber.lengths(ant.raw, res = 0.000673107, df = 1)
#### this downloads the ant dataset image stack to a temp folder
olddir<-getwd()
setwd(tempdir())
download.file(url=
"https://github.com/jessica-arbour/Ant-Muscle-Image-Stack/raw/main/Ant_data.zip",
destfile="antdata.zip")
unzip("antdata.zip")
setwd(paste0(getwd(),"/Ant data"))
setwd(olddir)
# }
Run the code above in your browser using DataLab