Re: Rコマンドのエラーについて (前田) KH Coder 旧掲示板

前田です。

下記、対応結果を述べます。

> 以下、エラーの原因を探るためのおうかがいなのですが、エラーが発生した直
> 後のR Consoleに「biplot」と入力してエンター・キーを押すとどうなるでし
> ょうか？　当方の環境では次のようになりますが、そちらではいかがでしょう
> か？

> biplot
function (x, ...)
UseMethod("biplot")
<environment: namespace:stats>
>
となります。

> また、基本的な確認なのですが、対応分析の.rファイル（C:\khcoder\\test.r
> ）をRのコンソールにドラッグすると、対応分析の結果（プロット）がR上に表
> 示されると思います。このプロットには、外部変数の値は布置されていますで
> しょうか？

外部変数は布置されています。

> いつも書き込んでいただく内容では、インデントが無くなっていますので、正
> しくコピー・アンド・ペーストが行われているかどうかも、若干気になるとこ
> ろです。可能であれば、FirefoxからRへの貼り付けをお試しいただくと、問題
> の切り分けが進むかもしれません。

IEだとむずかしいのでしょうか？

> 次に、対応分析の.rファイル（C:\khcoder\\test.r）を「秀丸」のようなテキ
> ストエディタで開き、「biplot」で検索してみると、どんなふうに「biplot」
> が記述されているでしょうか。「biplot」を含む行（たぶん1つだけだと思い
> ますので）をここにまるごと貼り付けていただける助かります。

biplotが見つかりません。
これが原因でしょうか？

> 最後に、ご自身のデータではなく、漱石「こころ」の上・中・下の特徴をあら
> わす対応分析で実験していただいても、同じエラーになりますでしょうか？

同じエラーになりました。

> savefile <- "C:\\temp0.csv"
> out_data <- cbind(rownames(d), d)
> if (nchar(savefile)) {
+ write.table(
+ out_data,
+ savefile,
+ sep=",",
+ quote=F,
+ row.names=F
+ )
+ print( paste("saved: ",savefile) )
+ }
[1] "saved: C:\\temp0.csv"
>
>
> savefile <- "C:\\temp1.csv"
> out_data <- cbind(c$cscore[,d_x], c$cscore[,d_y], 1 ) # 語
> if ( exists("biplot") ){ # 変数・見出し
+ if (biplot){
+ out_data <- rbind(
+ out_data,
+ cbind(c$rscore[,d_x], c$rscore[,d_y], 2)
+ )
+ }
+ }
以下にエラー if (biplot) { : 引数が論理変数として解釈することができません
> out_data <- cbind(rownames(out_data), out_data) # 仕上げ
> colnames(out_data) <- c("label","x","y","type")
> if (nchar(savefile)) { # 保存
+ write.table(
+ out_data,
+ savefile,
+ sep=",",
+ quote=F,
+ row.names=F
+ )
+ print( paste("saved: ",savefile) )
+ }
[1] "saved: C:\\temp1.csv"
>