Renjin is an implementation of the R language for the JVM. It supports the whole of the base R language, as well many R packages. For most packages, Renjin's support is partial and some tests fail. See the details here.
Clojuress has now basic, experimental, support for Renjin as a backend. This tutorial shows some example usage.
(require '[clojuress.v1.r :as r :refer [r eval-r->java r->java java->r java->clj java->naive-clj clj->java r->clj clj->r ->code r+ colon]] '[clojuress.v1.require :refer [require-r]] '[clojuress.v1.session :as session] '[tech.ml.dataset :as dataset] '[notespace.v1.util :refer [check]] '[alembic.still :refer [distill]] '[clojuress.v1.applications.plotting :refer [plotting-function->svg]])(session/set-default-session-type! :renjin)(r/discard-all-sessions)(require-r '[base] '[stats])nil(r ['+ 1 2])[1] 3(r.stats/median [1 2 4])[1] 2From plain clojure data to an R dataframe:
(-> {:x [1 2 3], :y [4 5 6]} r.base/data-frame) x y[1,] 1 4[2,] 2 5[3,] 3 6(-> {:x [1 2 3], :y [4 5 6]} r.base/data-frame r.base/rowMeans)[1] 2.5 3.5 4.5From a tech.ml.dataset dataset to an R dataframe:
(-> {:x [1 2 3], :y [4 5 6]} dataset/name-values-seq->dataset r.base/data-frame) x y[1,] 1 4[2,] 2 5[3,] 3 6(-> {:x [1 2 3], :y [4 5 6]} dataset/name-values-seq->dataset r.base/data-frame r.base/rowMeans)[1] 2.5 3.5 4.5(let [xs (repeatedly 99 rand) noises (repeatedly 99 rand) ys (map (fn [x noise] (+ (* x -3) 2 noise)) xs noises) df (r.base/data-frame :x xs :y ys) fit (r.stats/lm '[tilde y x] :data df)] (r.base/summary fit))Call:.MEM$xbc047d5ca960427d(formula = (y ~ x), data = .MEM$xf678a244b21048d8)Residuals: Min 1Q Median 3Q Max-0.48564 -0.28722 0.01946 0.26964 0.49997Coefficients: Estimate Std. Error t value Pr(>|t|) (Intercept) 2.506 0.06 41.709 <0 *** x -3.012 0.105 -28.744 <0 *** ---Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1Residual standard error: 0.298 on 97 degrees of freedomMultiple R-squared: 0.8949, Adjusted R-squared: 0.8939 F-statistic: 826.2271 on 1 and 97 DF, p-value: < 0(require-r '[graphics])(plotting-function->svg (fn [] (->> (repeatedly 999 rand) (map (fn [x] (* x x))) (r.graphics/hist :main "histogram" :xlab "x" :bins 100))))