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

# 欠損データのカウント
sum(is.na(sdata$depth))

# ゼロ漁獲データがどのくらいあるか?
mean(sdata$number==0)

#欠測データを埋める
sdata$depth2[is.na(sdata$depth)] <- pdepth[is.na(sdata$depth)]

#r2乗の計算、単回帰オブジェクトから抽出
summary(lm(cdata$catch~scpue))$adj.r.squared
|