galaaz 0.4.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 472e7863d96eb66bf0aa0e78194c021c5a128049
+  data.tar.gz: b5742fe889c830c83f1c53bd091ffa43d3ec44fb
+SHA512:
+  metadata.gz: 0f39228250f568f09d322dc1b70647982cdfa785e895695e30dab20ba595f5a5fe42ec5f56076c3deddbde8a7ff3172a7addc35c913315bb3f2c2d151d998107
+  data.tar.gz: 8e407929466a0d8152c0eb8c7ea5b28bea0ed2818c3abcc732659845448c01898dd6af7cf0332233bcc5ce29d9718285a1a747c2f1fc72ea08ad401aa712d1ad

data/README.md

@@ -0,0 +1,32 @@
+# Running Ruby and R - The Polyglot Environment
+
+TruffleRuby (the Polyglot implementation of Ruby) can access, through the Polyglot interface, any other
+language available in the environment. For instance, in the code bellow, TruffleRuby makes a call to
+JavaScript:
+
+    require 'json'
+
+    obj = {time: Time.now,   
+           msg: 'Hello World',   
+           payload: (1..10).to_a }
+
+    encoded = JSON.dump(obj)
+
+    js_obj = Polyglot.eval('js', 'JSON.parse').call(encoded)
+    puts js_obj[:time] 
+    puts js_obj[:msg] 
+    puts js_obj[:payload].join(' ')
+
+Calling R is similar to the above. For example, in R, method 'c' concatenates its arguments making a vector:
+
+    vec = Polyglot.eval('R', 'c').call(1, 2, 3) 
+    puts vec[0] 
+    p vec
+    > 1
+    > #<Truffle::Interop::Foreign@5d03df76> 
+
+As can be seen, vec is a vector with the first element (indexed at 0 - Ruby indexing) is 1.
+Inspecting vec, show that it is a Truffle::Interop object. Although it is possible to work with
+Interop objects in a program, doing so is hard and error prone. Bellow, we show how integration of
+Ruby and R can greatly simplify the development of Polyglot application.
+

data/Rakefile

@@ -0,0 +1,177 @@
+# -*- coding: utf-8 -*-
+
+##########################################################################################
+# @author Rodrigo Botafogo
+#
+# Copyright © 2018 Rodrigo Botafogo. All Rights Reserved. Permission to use, copy, modify, 
+# and distribute this software and its documentation, without fee and without a signed 
+# licensing agreement, is hereby granted, provided that the above copyright notice, this 
+# paragraph and the following two paragraphs appear in all copies, modifications, and 
+# distributions.
+#
+# IN NO EVENT SHALL RODRIGO BOTAFOGO BE LIABLE TO ANY PARTY FOR DIRECT, INDIRECT, SPECIAL, 
+# INCIDENTAL, OR CONSEQUENTIAL DAMAGES, INCLUDING LOST PROFITS, ARISING OUT OF THE USE OF 
+# THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF RODRIGO BOTAFOGO HAS BEEN ADVISED OF THE 
+# POSSIBILITY OF SUCH DAMAGE.
+#
+# RODRIGO BOTAFOGO SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT NOT LIMITED TO, 
+# THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE 
+# SOFTWARE AND ACCOMPANYING DOCUMENTATION, IF ANY, PROVIDED HEREUNDER IS PROVIDED "AS IS". 
+# RODRIGO BOTAFOGO HAS NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, 
+# OR MODIFICATIONS.
+##########################################################################################
+
+require 'rake/tasklib'
+require 'rake/testtask'
+
+require_relative 'version'
+
+#----------------------------------------------------------------------------------------
+#
+#----------------------------------------------------------------------------------------
+
+class MakeTask < Rake::TaskLib
+
+  # Create class variables for the polyglot options and libs
+  @@polyglot_options = "--polyglot --jvm -Xsingle_threaded"
+  @@libs = "-Ilib/" # -Ir_requires/"
+
+  #----------------------------------------------------------------------------------------
+  #
+  #----------------------------------------------------------------------------------------
+  
+  def initialize(group, dir_name, task_name, rspec,
+                 description = "#{group}:#{task_name}")
+    @name = "#{group}:#{task_name}"
+    @filepath = "#{dir_name}/#{task_name}"
+    @group = group
+    @description = description
+    @rspec = rspec
+    
+    yield self if block_given?
+    define
+  end
+
+  #----------------------------------------------------------------------------------------
+  # Actual TruffleRuby command (with options) to run the example
+  #----------------------------------------------------------------------------------------
+
+  def make_task
+    @rspec ?
+      (sh %{ ruby #{@@polyglot_options} #{@@libs} -S rspec #{@filepath}.rb -f documentation }) :
+      (sh %{ ruby #{@@polyglot_options} #{@@libs} -S #{@filepath}.rb })
+  end
+
+  #----------------------------------------------------------------------------------------
+  # Creates the tasks.  It the task is already defined, then append to it (enhance)
+  #----------------------------------------------------------------------------------------
+
+  def define
+    desc @description
+    Rake::Task.task_defined?(@name) ? Rake::Task[@name].enhance { make_task } :
+      (task(@name) { make_task } )
+  end
+  
+end
+
+geoms = FileList['examples/sthda_ggplot/**/*.rb']
+specs = FileList['specs/**/*.rb']
+master_list = FileList['examples/50Plots_MasterList/**/*.rb']
+islr = FileList['examples/islr/**/*.rb']
+
+#===========================================================================================
+# Creates tasks for all specs.
+# Running 'rake specs:all' will run all specs
+#===========================================================================================
+
+specs.each do |f|
+  task_name = File.basename(f, ".rb")
+  dir_name = File.dirname(f)
+  MakeTask.new("specs", dir_name, task_name, true, <<-Desc)
+    Executes spec #{task_name}
+  Desc
+end
+  
+#===========================================================================================
+# Creates tasks for ggplot graphics from sthda website
+# Running 'rake sthda:all' will run a slide show of all plots available 
+#===========================================================================================
+
+geoms.each do |f|
+  task_name = File.basename(f, ".rb")
+  dir_name = File.dirname(f)
+  MakeTask.new("sthda", dir_name, task_name, false, <<-Desc)
+    ggplot for #{task_name}
+  Desc
+end
+
+#===========================================================================================
+# Creates tasks for ggplot graphics from r-statistics.co website
+# Running 'rake master_list:all' will run a slide show of all plots available 
+#===========================================================================================
+
+master_list.each do |f|
+  task_name = File.basename(f, ".rb")
+  dir_name = File.dirname(f)
+  MakeTask.new("master_list", dir_name, task_name, false, <<-Desc)
+     #{task_name} from: http://r-statistics.co/Top50-Ggplot2-Visualizations-MasterList-R-Code.html
+  Desc
+end
+
+#===========================================================================================
+# Creates tasks for the Introduction to Statistical Learning book labs
+# Running 'rake islr:all' will run all specs
+#===========================================================================================
+
+islr.each do |f|
+  task_name = File.basename(f, ".rb")
+  dir_name = File.dirname(f)
+  MakeTask.new("islr", dir_name, task_name, true, <<-Desc)
+    Executes islr #{task_name}
+  Desc
+end
+
+task :default => "sthda:all"
+
+
+=begin
+name = "#{$gem_name}-#{$version}.gem"
+
+desc 'default task'
+task :default => [:install_gem]
+
+desc 'Makes a Gem'
+task :make_gem do
+  sh "gem build #{$gem_name}.gemspec"
+end
+
+desc 'Install the gem in the standard location'
+task :install_gem => [:make_gem] do
+  sh "gem install #{$gem_name}-#{$version}-java.gem"
+end
+
+desc 'Make documentation'
+task :make_doc do
+  sh "yard doc lib/*.rb lib/**/*.rb"
+end
+
+desc 'Push project to github'
+task :push do
+  sh "git push origin master"
+end
+
+desc 'Push gem to rubygem'
+task :push_gem do
+  sh "push #{name} -p $http_proxy"
+end
+
+Rake::TestTask.new do |t|
+  t.libs << "test"
+  t.test_files = FileList['test/complete.rb']
+  t.ruby_opts = ["--server", "-Xinvokedynamic.constants=true", "-J-Xmn512m", 
+                 "-J-Xms1024m", "-J-Xmx1024m"]
+  t.verbose = true
+  t.warning = true
+end
+
+=end

data/bin/galaaz

@@ -0,0 +1,8 @@
+#!/usr/bin/env ruby
+
+# Dir.chdir(File.expand_path('..', Dir.pwd))
+Dir.chdir(File.dirname(File.expand_path('..', __FILE__)))
+
+puts Dir.pwd
+
+system ("rake #{ARGV[0]}")

data/examples/50Plots_MasterList/scatter_plot.rb

@@ -0,0 +1,51 @@
+# coding: utf-8
+
+##########################################################################################
+# @author Rodrigo Botafogo
+#
+# Copyright © 2018 Rodrigo Botafogo. All Rights Reserved. Permission to use, copy, modify, 
+# and distribute this software and its documentation, without fee and without a signed 
+# licensing agreement, is hereby granted, provided that the above copyright notice, this 
+# paragraph and the following two paragraphs appear in all copies, modifications, and 
+# distributions.
+#
+# IN NO EVENT SHALL RODRIGO BOTAFOGO BE LIABLE TO ANY PARTY FOR DIRECT, INDIRECT, SPECIAL, 
+# INCIDENTAL, OR CONSEQUENTIAL DAMAGES, INCLUDING LOST PROFITS, ARISING OUT OF THE USE OF 
+# THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF RODRIGO BOTAFOGO HAS BEEN ADVISED OF THE 
+# POSSIBILITY OF SUCH DAMAGE.
+#
+# RODRIGO BOTAFOGO SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT NOT LIMITED TO, 
+# THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE 
+# SOFTWARE AND ACCOMPANYING DOCUMENTATION, IF ANY, PROVIDED HEREUNDER IS PROVIDED "AS IS". 
+# RODRIGO BOTAFOGO HAS NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, 
+# OR MODIFICATIONS.
+##########################################################################################
+
+require 'galaaz'
+require 'ggplot'
+
+# load package and data
+R.options(scipen: 999)  # turn-off scientific notation like 1e+48
+R.theme_set(R.theme_bw)  # pre-set the bw theme.
+
+midwest = ~:midwest
+# midwest <- read.csv("http://goo.gl/G1K41K")  # bkup data source
+
+R.awt
+
+# Scatterplot
+gg = midwest.ggplot(E.aes(x: :area, y: :poptotal)) + 
+     R.geom_point(E.aes(col: :state, size: :popdensity)) + 
+     R.geom_smooth(method: "loess", se: false) + 
+     R.xlim(R.c(0, 0.1)) + 
+     R.ylim(R.c(0, 500000)) + 
+     R.labs(subtitle: "Area Vs Population", 
+            y: "Population", 
+            x: "Area", 
+            title: "Scatterplot", 
+            caption: "Source: midwest")
+
+puts gg
+
+sleep(2)
+# a = gets.chomp

data/examples/baseball.csv

@@ -0,0 +1 @@
+Team,League,Year,RS,RA,W,OBP,SLG,BA,Playoffs,RankSeason,RankPlayoffs,G,OOBP,OSLG

data/examples/baseball.rb

@@ -0,0 +1,16 @@
+# coding: utf-8
+
+require 'galaaz'
+
+# This dataset comes from Baseball-Reference.com.
+baseball = R.read__csv("baseball.csv")
+# Lets look at the data available for Momeyball.
+moneyball = baseball.subset(baseball.Year < 2002)
+# Let's see if we can predict the number of wins, by looking at
+# runs allowed (RA) and runs scored (RS).  RD is the runs difference.
+# We are making a linear model for predicting wins (W) based on RD
+
+moneyball.RD = moneyball.RS - moneyball.RA
+wins_reg = R.lm(+:W =~ +:RD, data: moneyball)
+wins_reg.summary.pp
+

data/examples/ggplot.rb

@@ -0,0 +1,178 @@
+# -*- coding: utf-8 -*-
+
+##########################################################################################
+# @author Rodrigo Botafogo
+#
+# Copyright © 2018 Rodrigo Botafogo. All Rights Reserved. Permission to use, copy, modify, 
+# and distribute this software and its documentation, without fee and without a signed 
+# licensing agreement, is hereby granted, provided that the above copyright notice, this 
+# paragraph and the following two paragraphs appear in all copies, modifications, and 
+# distributions.
+#
+# IN NO EVENT SHALL RODRIGO BOTAFOGO BE LIABLE TO ANY PARTY FOR DIRECT, INDIRECT, SPECIAL, 
+# INCIDENTAL, OR CONSEQUENTIAL DAMAGES, INCLUDING LOST PROFITS, ARISING OUT OF THE USE OF 
+# THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF RODRIGO BOTAFOGO HAS BEEN ADVISED OF THE 
+# POSSIBILITY OF SUCH DAMAGE.
+#
+# RODRIGO BOTAFOGO SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT NOT LIMITED TO, 
+# THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE 
+# SOFTWARE AND ACCOMPANYING DOCUMENTATION, IF ANY, PROVIDED HEREUNDER IS PROVIDED "AS IS". 
+# RODRIGO BOTAFOGO HAS NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, 
+# OR MODIFICATIONS.
+##########################################################################################
+
+require 'galaaz'
+require 'ggplot'
+
+module LightBlueTheme
+
+  #--------------------------------------------------------------------------------------
+  # Defines the plot theme (visualization).  In this theme we remove major and minor
+  # grids, borders and background.
+  #--------------------------------------------------------------------------------------
+
+  def self.global_theme
+    # remove major grids
+    global_theme = R.theme(panel__grid__major: E.element_blank())
+    # remove minor grids
+    global_theme = global_theme + R.theme(panel__grid__minor: E.element_blank)
+    # remove border
+    global_theme = global_theme + R.theme(panel__border: E.element_blank)
+    # remove background
+    global_theme = global_theme + R.theme(panel__background: E.element_blank)
+    # Change axis font
+    global_theme = global_theme +
+                   R.theme(axis__text: E.element_text(size: 8, color: "#000080"))
+  end
+
+  #--------------------------------------------------------------------------------------
+  # Creates the graph title, properly formated for this theme
+  # @param title [String] The title to add to the graph
+  # @return textGrob that can be included in a graph
+  #--------------------------------------------------------------------------------------
+
+  def self.graph_title(title)
+    R.textGrob(
+      title,
+      gp: R.gpar(fontsize: 12, col: "#000080"),
+      x: R.unit(0.005, "npc"),
+      just: R.c("left", "bottom")
+    )
+  end
+
+  #--------------------------------------------------------------------------------------
+  # Creates the graph subtitle, properly formated for this theme
+  # @param subtitle [String] The subtitle to add to the graph
+  # @return textGrob that can be included in a graph
+  #--------------------------------------------------------------------------------------
+
+  def self.graph_subtitle(subtitle)
+    R.textGrob(
+      subtitle,
+      gp: R.gpar(fontsize: 10, col: "#000080"),
+      x: R.unit(0.005, "npc"),
+      just: R.c("left", "bottom")
+    )
+  end
+  
+  #--------------------------------------------------------------------------------------
+  # Defines the axis theme (visualization)
+  #--------------------------------------------------------------------------------------
+
+  def self.axis_title
+    # format the axis title
+    axis_title =
+      R.theme(
+        axis__title: E.element_text(
+          color: "#000080", 
+          face: "bold",
+          size: 8,
+          hjust: 1)
+      )
+  end
+  
+  #--------------------------------------------------------------------------------------
+  # Define a theme for a bar graph
+  #--------------------------------------------------------------------------------------
+
+  def self.bar_theme
+    # remove the y axis
+    gr_bar_theme = R.theme(
+      axis__line__y: E.element_blank,
+      axis__text__y: E.element_blank, 
+      axis__ticks__y: E.element_blank
+    )
+    
+    # adjust the y axis theme 
+    gr_bar_theme = gr_bar_theme + axis_title
+  end
+
+  #--------------------------------------------------------------------------------------
+  # Define a theme for column graphs
+  #--------------------------------------------------------------------------------------
+
+  def self.column_theme
+    # remove the x axis
+    gr_column_theme = R.theme(
+      axis__line__x: E.element_blank, 
+      axis__text__x: E.element_blank, 
+      axis__ticks__x: E.element_blank
+    )
+    
+    # adjust the x axis theme
+    gr_column_theme = gr_column_theme + axis_title
+  end
+  
+end
+
+R.awt
+
+plot = R.grid__arrange(
+  LightBlueTheme.graph_title("Cars: wt x mpg"),
+  LightBlueTheme.graph_subtitle("1974 Motor Trend US magazine"),
+  R.ggplot(~:mtcars, E.aes(x: :wt, y: :mpg)) +
+  LightBlueTheme.global_theme + # LightBlueTheme.bar_theme +
+  R.geom_bar(stat: "identity", fill: "lightblue"),
+  ncol: 1,
+  heights: R.c(0.050, 0.025, 0.85, 0.05)
+)
+
+plot.print
+
+=begin
+sleep(5)
+
+# clear the page
+R.grid__newpage
+
+# removes the window and creates a new one
+# R.dev__off('')
+# R.awt
+
+(R.ggplot(R.mtcars, E.aes(x: :wt, y: :mpg)) +
+ R.geom_point('')).print
+=end
+
+a = gets.chomp
+
+
+=begin
+# Add border around the plot
+# global_theme = global_theme + theme(plot.background = element_rect(colour = "black", fill=NA, size=1))
+
+# Definir tema de gráficos de colunas
+# remover o eixo x
+gr_column_theme = theme(axis.line.x = element_blank(), 
+                        axis.text.x = element_blank(), 
+                        axis.ticks.x = element_blank())
+
+# ajustar título dos eixos
+gr_column_theme = gr_column_theme + axis_title
+
+# Definir tema para gráfico composto
+gr_comp_theme = axis_title
+
+br_acc = function(valor) {
+  accounting(valor, big.mark = ".", decimal.mark=",")
+}
+=end