1 /*******************************************************************************
\r
2 * Copyright (c) 2014, 2016 Association for Decentralized Information Management
\r
3 * in Industry THTH ry.
\r
4 * All rights reserved. This program and the accompanying materials
\r
5 * are made available under the terms of the Eclipse Public License v1.0
\r
6 * which accompanies this distribution, and is available at
\r
7 * http://www.eclipse.org/legal/epl-v10.html
\r
10 * VTT Technical Research Centre of Finland - initial API and implementation
\r
11 *******************************************************************************/
\r
12 package org.simantics.r.scl;
\r
14 import java.util.Arrays;
\r
16 import org.rosuda.REngine.REXP;
\r
17 import org.rosuda.REngine.REXPMismatchException;
\r
18 import org.rosuda.REngine.REngineException;
\r
19 import org.rosuda.REngine.Rserve.RConnection;
\r
20 import org.rosuda.REngine.Rserve.RSession;
\r
22 public class TestRServe {
\r
24 public static void main(String[] args) throws REXPMismatchException, REngineException {
\r
27 RConnection c = new RConnection("130.188.198.138");
\r
28 c.login("simupedia", "simupedia");
\r
29 c.assign("a", new double[] {13});
\r
30 c.assign("b", new double[] {12});
\r
31 REXP x = c.eval("ls()");
\r
32 System.out.println(Arrays.toString(x.asStrings()));
\r
33 session = c.detach();
\r
37 RConnection c = session.attach();
\r
38 c.login("simupedia", "simupedia");
\r
39 c.assign("c", new double[] {13});
\r
40 c.assign("d", new double[] {12});
\r
41 REXP x = c.eval("ls()");
\r
42 System.out.println(Arrays.toString(x.asStrings()));
\r