# NOT RUN {
set.seed(12345)
pop3 <- sim.popn(D = 2, core = make.grid(), buffer = 200, nsessions = 3,
details = list(lambda = 1.0, movemodel = 'BVE', move.a = 50,
edgemethod = 'stop'))
m <- extractMoves(pop3, plotn = 10, length = 0.1) # shorten arrow heads
mean(unlist(sapply(m, '[', 'd'))) # less than nominal
# }
Run the code above in your browser using DataLab