R 連携 重回帰分析

Version 1

    初めての投稿です、kojimaと申します。

    Rで計算した重回帰分析の結果

     

    Coefficients:

    (Intercept)         area         walk          old 

        5.93926      0.12758     -0.04697     -0.10156 

     

    をtableauとRの連結により、tableau内で表示したいのですが

    計算フィールドで

     

    SCRIPT_REAL(
    "
    d<-data.frame(cbind(.arg1,.arg2,.arg3,.arg4));
    (d.lm<-lm(.arg1~.,data=d));
    d.lm$fitted
    "
    ,
    sum([cost]),
    sum([area]),
    sum([old]),
    SUM([walk])
    )

     

     

    という計算式を作成した結果、下図のように重回帰が107.3という一定の値をとってしまいます。

    2.PNG

    Rでの計算結果のように、テキスト形式でもよいので、各係数を表示させる方法はありませんでしょうか?

    ご教授いただけると幸いです。