Error in link(), R code 4.67

[gpagnon]

Hello,
in trying to run R code 4.67 (SR 2nd edition), the link statement gives me the following error:

mu <- link(m4.5, data=pred_data)
Error in value[s, ] <- eval(parse(text = lm), envir = e) :
number of items to replace is not a multiple of replacement length

Thanks in advance for any comments!

giuseppe

[gpagnon]

Sorry, a stupid error on my side in the definition of the model m4.5! Hopefully, nobody lost time on this yet.