I'm not 100% sure what is being asked here, but in case this is just about how to obtain the associated parameters for a higher-order model after having fit a testlet model via bfactor() the result is reasonably straightforward. For the higher-order model the form is
P(y|θ,ψ) = ∑ as θs + d
where the θs terms are models according to the general factor θs = βs θg + ϵ. However, rather than fitting this model the testlet response model can be fit instead to impose the proportionality constraints, and then back-transformed when the model converges. Below is an example of this from the manual:
##########
library(mirt)
#simulate data
set.seed(1234)
a <- matrix(0, 12, 4)
a[,1] <- rlnorm(12, .2, .3)
ind <- 1
for(i in 1:3){
a[ind:(ind+3),i+1] <- a[ind:(ind+3),1]
ind <- ind+4
}
print(a)
d <- rnorm(12, 0, .5)
sigma <- diag(c(1, .5, 1, .5))
dataset <- simdata(a,d,2000,itemtype=rep('2PL', 12),sigma=sigma)
# estimate by applying constraints and freeing the latent variances
specific <- c(rep(1,4),rep(2,4), rep(3,4))
model <- "G = 1-12
CONSTRAIN = (1, a1, a2), (2, a1, a2), (3, a1, a2), (4, a1, a2),
(5, a1, a3), (6, a1, a3), (7, a1, a3), (8, a1, a3),
(9, a1, a4), (10, a1, a4), (11, a1, a4), (12, a1, a4)
COV = S1*S1, S2*S2, S3*S3"
simmod <- bfactor(dataset, specific, model)
coef(simmod, simplify=TRUE)
####
From this output the loadings on either the general of specific factor correspond to the same loadings as in the higher-order model (as they're constrained to be equal), while the β coefficients are obtained by way of the transformation 1/√{VAR(θs)). Using the above output, just use
###
cov <- coef(simmod, simplify=TRUE)$cov
betas <- 1 / sqrt(diag(cov)[-1L])
betas
###
HTH.