использование функции addpoly на лесном участке - пакет metafor

Я хотел бы добавить полигон к лесному участку со следующей меткой:

"I² = 92,2 %"

где «2» имеет верхний индекс, а «92,2%» вызывается из объекта rma (т.е. res$I2).

Вот готовый пример:

library(metafor)
data(dat.bcg)
res <- rma(ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, measure="RR", 
           method="REML")
forest(res)
addpoly(res,mlab=*)

Каким должно быть *?

Ниже нет надстрочного индекса «2»:

paste("I2 = ",round(res$I2,1),"%"))

Ниже вообще не работает.

bquote(I^2==.(round(res$I2,1))*"%")