2

R 呼び出し元を使用して、Java で R を使用してクラスタリングを実装しようとしています。クラスタリングの検証のためにサンプル コードを実行しようとしていますが、ほとんどのユーザーが直面する一般的なエラーが発生します: ファイルの早期終了

package test;
import rcaller.RCaller;
import java.io.File;
import java.lang.*;
import java.util.*;
import java.awt.image.DataBuffer;

public class test3 {
    public static void main(String[] args) {
        new test3();
    }

    public test3()
    {

        try{

            RCaller caller = new RCaller();
            caller.cleanRCode();

            caller.setRscriptExecutable("C:/Program Files/R/R-2.15.1/bin/x64/Rscript");
            caller.cleanRCode();

            caller.addRCode("library(clvalid)");
            caller.addRCode("data(mouse)");
            caller.addRCode("express <- mouse [,c(M1,M2,M3,NC1,NC2,NC3)]");
            caller.addRCode("rownames (express) <- mouse$ID ");
            caller.addRCode("intern <- clValid(express, 2:6 , clMethods = c( hierarchical,kmeans,diana,clara,model) ,validation = internal)");
            caller.addRCode("b <- summary(intern) ");
            caller.runAndReturnResult("b");
        }

        catch (Exception e){
            e.printStackTrace();
        }
    }
}
4

1 に答える 1

3

コードにいくつかのスペルミスがあります。clvalidではないようclValidに、そしてあなたは「階層的」のような多くの引用符を見逃します、...。

コードをスクリプトに入れて、次のようにJavaから呼び出す方がよいと思います。

Runtime.getRuntime().exec("Rscript myScript.R");

myScript.Rは次のとおりです。

library(clValid)
data(mouse)
express <- mouse [,c('M1','M2','M3','NC1','NC2','NC3')]
rownames (express) <- mouse$ID 
intern <- clValid(express, 2:6 , clMethods = c( 'hierarchical','kmeans',
                                               'diana','clara','model') ,
                                                validation = 'internal')
b <- summary(intern)
于 2013-01-24T13:32:53.000 に答える