2

我一直在尝试学习 rJava,以便在我编写的一组 Java 应用程序和 R 之间来回传递数据以进行分析。我有一个带有签名的 Java 方法

public double[][] method(void)

我在 R 中的内容如下

library("rJava")
.jinit(parameters="-Xmx10240m")
s <- .jarray("string", "mainArgs")
javaobj <- .jnew("JavaClass", s)
data <- .jcall(javaobj, "[[D", "method")

此时我的数据应该包含我需要使用的矩阵,但我不明白如何将数据从 Java 矩阵转换为 rJava 矩阵

数据[1]

返回

[[1]]
[1] "Java-Array-Object[D:"

我努力了

as.list(data)
as.list(data[1])
as.list(data, simplify=TRUE)
.jsimplify(trees)
.jcastToArray(data)
.jevalArray(data)
.jevalArray(data, simplify=TRUE)

我确信我所缺少的东西是显而易见的,但我就是无法让它发挥作用。

4

1 回答 1

2

您的 Java 方法正在返回一个数组数组。出于某种原因,rJava 的强制功能对此感到困惑,因此您必须帮助它。

可以像这样转换单个行:

r_vector <- .jevalArray(data[[1]])

这与我的预期相反:

r_matrix <- sapply(data, .jevalArray)

这似乎按预期工作:

r_matrix <- do.call(rbind, lapply(data, .jevalArray))

对于它的价值,我用来测试它的 Java 代码在这里:

import java.util.Arrays;

public class Foo {

    public double[][] method() {
        double[][] data = { {1.1, 1.2, 1.3},
                            {2.1, 2.2, 2.3} };

        return data;
    }

    public double[] getArray() {
    double[] data = {9.9,8.8,7.7};
    return data;
    }

    public static void main(String[] args) {
        Foo foo = new Foo();
        System.out.println(Arrays.toString(foo.method()));
    }
}

而且,为了完整起见,在 R 端:

library(rJava)
.jinit()
.jaddClassPath(path='.')

foo <- new( J('Foo'))
data <- foo$method()
one_row <- .jevalArray( data[[1]] )
r_matrix <- sapply(data, .jevalArray)

r_matrix <- do.call(rbind, lapply(data, .jevalArray))
于 2013-07-10T01:13:53.627 回答