# This takes a couple of seconds on an intel i5
system.time(
o2m2(matrix(rnorm(50*2000),50),matrix(rnorm(50*2000),50),1,0,0)
)
# This however takes 10 times as much...
# system.time(
# o2m(matrix(rnorm(50*2000),50),matrix(rnorm(50*2000),50),1,0,0,
# p_thresh = 1e4,q_thresh = 1e4) # makes sure power method is not used
# )
Run the code above in your browser using DataLab