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

前田です。

回答ありがとうございます。

再び実行した所、以下の結果になります。

R version 2.6.2 (2008-02-08)
Copyright (C) 2008 The R Foundation for Statistical Computing
ISBN 3-900051-07-0

Rはフリーソフトウェアであり、「完全に無保証」です。
一定の条件に従えば、自由にこれを再配布することができます。
配布条件の詳細に関しては、'license()'あるいは'licence()'と入力してください。

Rは多くの貢献者による共同プロジェクトです。
詳しくは'contributors()'と入力してください。
また、RやRのパッケージを出版物で引用する際の形式については
'citation()'と入力してください。

'demo()'と入力すればデモをみることができます。
'help()'とすればオンラインヘルプが出ます。
'help.start()'でHTMLブラウザによるヘルプがみられます。
'q()'と入力すればRを終了します。

> source("C:\\khcoder\\test.r")
成分固有値寄与率
[1,] 1 0.6669 41.78
[2,] 2 0.5234 32.79
[3,] 3 0.3208 20.10
[4,] 4 0.0850 5.33
[5,] 5 0.0000 0.00
[6,] 6 0.0000 0.00
要求されたパッケージ foreign をロード中です
要求されたパッケージ sp をロード中です
50 件以上の警告がありました (警告を見るには warnings() を使って下さい)
>
> 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"
>

> Rは、「Rgui.bat」をダブルクリックして、KH Coderに付属のバージョンをお
> 使いでしょうか？　R起動時のコンソールの1行目にRのバージョンが表示され
> ていると思いますが、バージョンナンバーや日付はどのようになっていますで
> しょうか？
>
> また、一度Rを終了してクリーンな状態で起動し、対応分析とコマンド実行を
> 行うとどうでしょうか？
>
> それでもだめな場合は、
> > if (biplot){
> という箇所を、
> > if (biplot==1){
> に変更するといかがでしょうか。

上記も全て試しましたが、外部変数の座標が取得できません。