Error in `UseMethod("smooth.construct")`: no applicable method for 'smooth.construct' applied to an object of class "peer.smooth.spec"

fit.D2 <- pfr(pasat ~ peer(cca, pentype="D"), data=DTI)
test_that("peer with structured penalty works", {
fit.decomp <- pfr(Y ~ peer(W, pentype="Decomp", Q=Q, k=99),