# NOT RUN {
# }
# NOT RUN {
sessionInfo()
# R version 3.2.0 (2015-04-16)
# Platform: x86_64-w64-mingw32/x64 (64-bit)
# Running under: Windows 7 x64 (build 7601) Service Pack 1
# quad-core i7 CPU, 16 Gb RAM
# ...
## almost no benefit with secr.fit
for (i in 1:5)
print(system.time(secr.fit(ovenCH, buffer = 400, trace = FALSE, ncores = i)))
# user system elapsed
# 52.26 0.76 53.02
# user system elapsed
# 3.38 2.77 48.36
# user system elapsed
# 5.69 5.36 47.18
# user system elapsed
# 6.50 6.90 54.51
# user system elapsed
# 7.74 8.25 50.23
## better for simulation, up to a point
for (i in 1:8)
print(system.time(sim.secr(secrdemo.0, nsim = 20, tracelevel = 0, ncores = i)))
# user system elapsed
# 262.93 3.74 266.71
# user system elapsed
# 0.68 0.02 139.61
# user system elapsed
# 0.69 0.01 110.05
# user system elapsed
# 0.70 0.00 84.24
# user system elapsed
# 0.70 0.02 69.45
# user system elapsed
# 0.67 0.06 75.67
# user system elapsed
# 0.75 0.00 70.00
# user system elapsed
# 0.73 0.05 75.71
for (i in 1:8)
print(system.time(ip.secr (captdata, trace = FALSE, ncores = i)))
# user system elapsed
# 132.59 0.00 132.58
# user system elapsed
# 0.25 0.05 71.08
# user system elapsed
# 0.20 0.04 50.76
# user system elapsed
# 0.32 0.07 42.13
# user system elapsed
# 0.26 0.09 41.74
# user system elapsed
# 0.39 0.08 39.01
# user system elapsed
# 0.25 0.09 36.52
# user system elapsed
# 0.46 0.08 35.91
for (i in 1:8)
print(system.time(LLsurface(secrdemo.0, ncores = i)))
#Evaluating log likelihood across grid of 121 points...
# user system elapsed
# 48.00 0.40 48.41
#Evaluating log likelihood across grid of 121 points...
# user system elapsed
# 0.00 0.03 27.94
#Evaluating log likelihood across grid of 121 points...
# user system elapsed
# 0.00 0.03 20.60
#Evaluating log likelihood across grid of 121 points...
# user system elapsed
# 0.03 0.02 17.63
#Evaluating log likelihood across grid of 121 points...
# user system elapsed
# 0.01 0.05 16.41
#Evaluating log likelihood across grid of 121 points...
# user system elapsed
# 0.02 0.04 16.10
#Evaluating log likelihood across grid of 121 points...
# user system elapsed
# 0.05 0.03 16.03
#Evaluating log likelihood across grid of 121 points...
# user system elapsed
# 0.02 0.07 15.99
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab