Rの標準出力を取得する方法JSL 経由で R コードを送信すると、R コンソールの標準出力 (stdout) が JMP ログに表示されます。その情報をテキスト文字列に取り込む方法はありますか?標準出力を R からファイルにリダイレクトし (sink() 関数を使用)、JSL を使用して JMP 変数でファイルの内容を取得できることはわかっていますが、そのような中間ステップを使用する必要はありません。
例;
names default to here(1);
R Init();
dt=open("$SAMPLE_DATA/Cars.jmp");
R Send(dt);
R Submit(
"
summary(lm(formula=Chest.decel ~ Wt, data=dt))
"
);
RTerm();この出力はログ ファイルに表示されます
Call:
lm(formula = Chest.decel ~ Wt, data = dt)
Residuals:
Min 1Q Median 3Q Max
-17.931 -6.650 -1.482 5.593 44.232
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 3.853e+01 2.440e+00 15.792 < 2e-16 ***
Wt 3.354e-03 8.135e-04 4.123 4.7e-05 ***
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Residual standard error: 9.367 on 339 degrees of freedom
(11 observations deleted due to missingness)
Multiple R-squared: 0.04776, Adjusted R-squared: 0.04495
F-statistic: 17 on 1 and 339 DF, p-value: 4.703e-05出力をテキスト文字列として取得し、それをレポート ウィンドウのテキスト ボックスに入れたいと考えています。
Re: Rの標準出力を取得する方法ログキャプチャ()あなたが望むことをするかもしれません。
Names Default To Here(1);
R Init();
dt = Open("$SAMPLE_DATA/Cars.jmp");
R Send(dt);
R_stdout = Log Capture(R Submit("
summary(lm(formula=Chest.decel ~ Wt, data=dt))
"));
R Term();
New Window("example", Text Box(R_stdout));Re: Rの標準出力を取得する方法提案をありがとう。R の結果を R データ オブジェクトに入れることができるかどうかはわかっているので、R Get() を使用して結果を取得できます。ただし、少なくとも私の目的では、標準出力の結果をテキスト文字列として取得する方がはるかに簡単です。
@uday_guntupalli書きました：
@MathStatChem 、
これを試して：
R Init();
dt=open("$SAMPLE_DATA/Cars.jmp");
R Send(dt);
R Submit(
"
model = lm(Chest.decel ~ Wt,data = dt)
t = summary(model)
# Use names function to determine what are the objects that exist
names(t)
# Extract and cast into data frames
Residuals = as.data.frame(t$residuals)
Coefficients = as.data.frame(t$coefficients)
"
);
ResidJMP = R Get(Residuals);
ResidJMP << New Data View;
CoeffJMP = R Get(Coefficients);
CoeffJMP << New Data View;
RTerm();
Close(dt,"No Save");
Re: Rの標準出力を取得する方法@MathStatChem 、
これを試して：
R Init();
dt=open("$SAMPLE_DATA/Cars.jmp");
R Send(dt);
R Submit(
"
model = lm(Chest.decel ~ Wt,data = dt)
t = summary(model)
# Use names function to determine what are the objects that exist
names(t)
# Extract and cast into data frames
Residuals = as.data.frame(t$residuals)
Coefficients = as.data.frame(t$coefficients)
"
);
ResidJMP = R Get(Residuals);
ResidJMP << New Data View;
CoeffJMP = R Get(Coefficients);
CoeffJMP << New Data View;
RTerm();
Close(dt,"No Save");
Re: Rの標準出力を取得する方法私が見る限り、R Get() は R データ構造または変数 (数値、文字列、行列、リスト、またはデータ フレーム) から値を取得しますが、標準出力は取得しません。
Re: Rの標準出力を取得する方法@MathStatChem 、
先に進む前に、R Get() を使用したくないですか? R Get() を使用してから、その情報をテキスト ボックスへの入力として使用してみましたか?
