This shows you the differences between two versions of the page.
Both sides previous revision Previous revision | |||
tips:convergence_problems_rma [2019/02/03 14:56] Wolfgang Viechtbauer |
tips:convergence_problems_rma [2019/09/28 10:26] (current) Wolfgang Viechtbauer |
||
---|---|---|---|
Line 47: | Line 47: | ||
<code rsplus> | <code rsplus> | ||
- | tmp <- capture.output(try(rma(yi, vi, verbose=TRUE, digits=5))) | + | tmp <- capture.output(rma(yi, vi, verbose=TRUE, digits=5)) |
tmp <- tmp[grepl("Iteration", tmp)] | tmp <- tmp[grepl("Iteration", tmp)] | ||
tau2s <- as.numeric(sapply(strsplit(tmp, "="), function(x) x[2])) | tau2s <- as.numeric(sapply(strsplit(tmp, "="), function(x) x[2])) | ||
- | lls <- sapply(tau2s, function(x) logLik(rma(yi, vi, tau2=x))) | + | lls <- sapply(tau2s, function(x) logLik(rma(yi, vi, tau2=x))) |
profile(res, xlim=c(0,0.5)) | profile(res, xlim=c(0,0.5)) |