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.
Clojisr has now basic, experimental, support for Renjin as a backend. This tutorial shows some example usage.
(require '[clojisr.v1.renjin :as renjin] '[clojisr.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]] '[clojisr.v1.require :refer [require-r]] '[tech.ml.dataset :as dataset] '[notespace.v1.util :refer [check]] '[clojisr.v1.applications.plotting :refer [plot->svg]])If we required clojisr.v1.renjin first, then the default session-type would be :renjin. But since we might be loading this namespace after doing some other things, let us make sure that we are using :renjin:
(renjin/set-as-default!)(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$xa7e9197ea93c4091(formula = (y ~ x), data = .MEM$x2e0da13eda224ccc)Residuals: Min 1Q Median 3Q Max-0.50531 -0.22044 -0.01601 0.23232 0.47089Coefficients: Estimate Std. Error t value Pr(>|t|) (Intercept) 2.501 0.056 44.572 <0 *** x -2.971 0.094 -31.526 <0 *** ---Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1Residual standard error: 0.277 on 97 degrees of freedomMultiple R-squared: 0.9111, Adjusted R-squared: 0.9102 F-statistic: 993.8594 on 1 and 97 DF, p-value: < 0(require-r '[graphics])(plot->svg (fn [] (->> (repeatedly 999 rand) (map (fn [x] (* x x))) (r.graphics/hist :main "histogram" :xlab "x" :bins 100))))