# Extracting from an ipriorMod object
mod.fit <- iprior(stack.loss ~ ., stackloss)
H.mat1 <- Hlam(mod.fit)
str(H.mat1)
# Extracting from an ipriorKernel object at a specified lambda value
mod <- mod.fit$ipriorKernel
H.mat2 <- Hlam(mod, mod.fit$lambda)
# They are both equal
all.equal(H.mat1, H.mat2)
Run the code above in your browser using DataLab