@Test
public void test() throws Exception {
final RBridgeControl r = RBridgeControl.getInstance();
r.evalWithR("measures <- c(NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,31.0,41.0,95.0,77.0,29.0,62.0,49.0,NA)");
r.evalWithR("forecasts <- c(NA,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,2.8181818181818183,"
+ "6.0,12.846153846153847,17.428571428571427,18.2,20.9375,22.58823529411765)");
r.evalWithR("anomalies <- c(NA,NaN,NaN,NaN,NaN,NaN,NaN,NaN,NaN,NaN,0.8333333333333333,0.7446808510638298,"
+ "0.761768901569187,0.6308623298033282,0.2288135593220339,0.49510173323285606,0.3689400164338537,NA)");
final Object result = r.evalWithR("combined <- cbind(measures, forecasts, anomalies)");
LOGGER.info(result.toString());
Assert.assertTrue(result != null);
Assert.assertTrue(result instanceof org.rosuda.REngine.REXPDouble);
}