Olá a todos, <br><br>Estou tentando reutilizar a família e a função de ligação de um certo objeto da classe glm para ajustar um novo modelo, mas não estou conseguindo.<br>O que eu quero fazer é gerar o modelo3, como no seguinte exemplo, mas recebo uma mensagem de erro.<br>

<br>Obrigado desse já, <br>Bruno<br><br><span class="Apple-style-span" style="border-collapse:separate;color:rgb(0,0,0);font-family:Arial;font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:normal;text-align:auto;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;font-size:medium"><span class="Apple-style-span" style="font-family:Monospace;font-size:13px;line-height:17px;text-align:-webkit-left;white-space:pre-wrap"><pre tabindex="0" class="GD40030CLR" style="font-family:Monospace;font-size:10pt!important;outline-style:none;outline-width:initial;outline-color:initial;border-top-style:none;border-right-style:none;border-bottom-style:none;border-left-style:none;border-width:initial;border-color:initial;white-space:pre-wrap!important;margin-top:0px;margin-right:0px;margin-bottom:0px;margin-left:0px;line-height:1.3">

<br>### CMR<br>x <- rgamma(20, shape=1)<br>y <- rgamma(20, shape=1)<br>modelo <- glm(y~x, family=Gamma(link=identity))<br><br>fam <- modelo$family$family<br>fam<br><br>ligacao <- modelo$family$link<br>ligacao<br>

<br>modelo2 <- glm(y~x, family=fam)<br><br>modelo3 <- glm(y~x, family=fam(link=ligacao))<br># Error in glm(y ~ x, family = fam(link = ligacao)) : <br>#   could not find function "fam" <br></pre></span></span><br>

<br>