※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

############標準化して再計算
dmm <- scale(dm) #標準化
dmmm <- data.frame(temp4=dmm[1:21,2], chl4=dmm[1:21,3], soya4=dmm[1:21,4],adductor4=dmm[1:21,8]) #リストをデータフレームに
glm.res <- glm(dmmm$adductor~dmmm$temp4+I(log(dmmm$chl4))+dmmm$soya4+dmmm$adductor4,family=Gamma(link="log"), data=dmmm)
glm.res
|