Run a for loop where data is simulated then averaged within

Question

I\'d like to run the code below 100 times:

require(phytools)
require(RRphylo)

linbm <- rowMeans(fastBM(lattree, a = spreadlind[1,1], bounds=c(min(spreadli