Rで「TRUE/FALSE が必要なところが欠損値です」というエラーが出ました

Question

前提・実現したいこと

Rで、ラッシュモデルを用いた推定を行っていたところ、「TRUE/FALSE が必要なところが欠損値です」というエラーが出ました。おそらく欠損値が多いがためにこのようなエラーが出てしまったのだと思われますが、これを改善して推定することは可能でしょうか？ソースコードを下の欄に示します。

発生している問題・エラーメッセージ

TRUE/FALSE が必要なところが欠損値です 

該当のソースコード

> x1 <- t( apply(x, 1, function(y){ y-val }) ) #各行ごとに基準値を引き算．
> x1[x1 >= 0 ] <- 1
> x1[x1 < 0 ] <- 0
> 
> model <- rasch(x1)  #ラッシュモデルを用いた推定
 if (any(ind <- pr == 1)) pr[ind] <- 1 - sqrt(.Machine$double.eps) でエラー: 
   TRUE/FALSE が必要なところが欠損値です 

試したこと

補足情報（FW/ツールのバージョンなど）

Rのバージョンは3.5.1

Answer 1

欠損値を除くか欠損値を補完するしかないかと。
欠損値の補完については欠測データ処理: Rによる単一代入法と多重代入法 (統計学One Point)が詳しいです

Comments

[Keita222]

ありがとうございます。