if (FALSE) {
## Simulate 3 image sequences
wd <- getwd()
folders <- paste0(rep("images",3),1:3)
populations <- c(15,25,50)
dir.create("./batchTest")
setwd("./batchTest")
for(i in 1:length(folders)){
dir.create(folders[i])
traj <- simulTrajec(path=folders[i],
nframes=30,nIndividuals=populations[i],
h=0.01,rho=0.9,
sizes=runif(populations[i],0.004,0.006))
}
setwd(wd)
batchpath <- "./batchTest"
results <- runBatch(path=batchpath,
nImages=1:30,threshold=-0.1,select='dark',
pixelRange=c(1,100),L=50,R=3,
incThres=10)
results
}
Run the code above in your browser using DataLab