bpr keeps on running without getting to a solution

[ChristelSwift]

i'm trying to use the bpr algorithm following the example given in the vignette:

data("mlLatest100k")
ML <- defineData(mlLatest100k, minimum = .5, maximum = 5, intScale = TRUE)
subML <- ML[rowRatings(ML)>=40, colRatings(ML)>=30]
bpr <- rrecsys(subML, "BPR", k = 10, randomInit = FALSE, 
               regU = .0025, regI = .0025, regJ = 0.0025, updateJ = TRUE)

Unfortunately, even if i let this running for an hour, i don't reach a solution, it just keeps on running.

I tried adding a stopping criterion and / or setting randomInit to TRUE with no effect:

setStoppingCriteria(nrLoops = 10)

Am i doing something wrong?