[BAEL-3489] Added Java-R integration examples.

libraries-data-2/src/test/java/com/baeldung/r/FastRMeanUnitTest.java

@@ -0,0 +1,29 @@
+package com.baeldung.r;
+
+import org.junit.Assert;
+import org.junit.Ignore;
+import org.junit.Test;
+
+/**
+ * Test for {@link FastRMean}.
+ * 
+ * @author Donato Rimenti
+ */
+@Ignore
+public class FastRMeanUnitTest {
+
+	/**
+	 * Object to test.
+	 */
+	private FastRMean fastrMean = new FastRMean();
+
+	/**
+	 * Test for {@link FastRMeanUnitTest#mean(int[])}.
+	 */
+	@Test
+	public void givenValues_whenMean_thenCorrect() {
+		int[] input = { 1, 2, 3, 4, 5 };
+		double result = fastrMean.mean(input);
+		Assert.assertEquals(3.0, result, 0.000001);
+	}
+}

libraries-data-2/src/test/java/com/baeldung/r/RCallerMeanIntegrationTest.java

@@ -0,0 +1,37 @@
+package com.baeldung.r;
+
+import java.io.IOException;
+import java.net.URISyntaxException;
+
+import javax.script.ScriptException;
+
+import org.junit.Assert;
+import org.junit.Ignore;
+import org.junit.Test;
+
+/**
+ * Test for {@link RCallerMean}.
+ * 
+ * @author Donato Rimenti
+ */
+@Ignore
+public class RCallerMeanIntegrationTest {
+
+	/**
+	 * Object to test.
+	 */
+	private RCallerMean rcallerMean = new RCallerMean();
+
+	/**
+	 * Test for {@link RCallerMeanIntegrationTest#mean(int[])}.
+	 * 
+	 * @throws ScriptException    if an error occurs
+	 * @throws URISyntaxException if an error occurs
+	 */
+	@Test
+	public void givenValues_whenMean_thenCorrect() throws IOException, URISyntaxException {
+		int[] input = { 1, 2, 3, 4, 5 };
+		double result = rcallerMean.mean(input);
+		Assert.assertEquals(3.0, result, 0.000001);
+	}
+}

libraries-data-2/src/test/java/com/baeldung/r/RenjinMeanUnitTest.java

@@ -0,0 +1,37 @@
+package com.baeldung.r;
+
+import java.io.IOException;
+import java.net.URISyntaxException;
+
+import javax.script.ScriptException;
+
+import org.junit.Test;
+
+import org.junit.Assert;
+
+/**
+ * Test for {@link RenjinMean}.
+ * 
+ * @author Donato Rimenti
+ */
+public class RenjinMeanUnitTest {
+
+	/**
+	 * Object to test.
+	 */
+	private RenjinMean renjinMean = new RenjinMean();
+
+	/**
+	 * Test for {@link RenjinMeanUnitTest#mean(int[])}.
+	 * 
+	 * @throws ScriptException    if an error occurs
+	 * @throws URISyntaxException if an error occurs
+	 * @throws IOException        if an error occurs
+	 */
+	@Test
+	public void givenValues_whenMean_thenCorrect() throws IOException, URISyntaxException, ScriptException {
+		int[] input = { 1, 2, 3, 4, 5 };
+		double result = renjinMean.mean(input);
+		Assert.assertEquals(3.0, result, 0.000001);
+	}
+}

libraries-data-2/src/test/resources/script.R

@@ -0,0 +1,3 @@
+customMean <- function(vector) {
+	mean(vector)
+}