galaaz 0.4.2 → 0.4.5

data/specs/tmp.rb

@@ -21,534 +21,22 @@
 # OR MODIFICATIONS.
 ##########################################################################################
 
-require 'galaaz'
-#require 'ggplot'
-
-# Read the R ToothGrowth variable and assign it to the
-# Ruby tooth_growth variable
-tooth_growth = ~:ToothGrowth
-# convert the dose to a factor
-tooth_growth.dose = tooth_growth.dose.as__factor
-
-# print the first few elements of the dataset
-puts tooth_growth.head
-puts tooth_growth.dim
-puts tooth_growth.str
-puts tooth_growth.summary
-
-
-=begin
-module CorpTheme
-
-  # face can be  (1=plain, 2=bold, 3=italic, 4=bold-italic)
-  def self.text_element(size, face = "plain")
-    E.element_text(color: "#000080", 
-                   face: face,
-                   size: size,
-                   hjust: 1)
-  end
-  
-  #---------------------------------------------------------------------------------
-  # Defines the plot theme (visualization).  In this theme we remove major and minor
-  # grids, borders and background.  We also turn-off scientific notation.
-  #---------------------------------------------------------------------------------
-  
-  def self.global_theme(faceted = false)
-    
-    R.options(scipen: 999)  # turn-off scientific notation like 1e+48
-    
-    # remove major grids
-    gb = R.theme(panel__grid__major: E.element_blank())
-    # remove minor grids
-    gb = gb + R.theme(panel__grid__minor: E.element_blank)
-    # gb = R.theme(panel__grid__minor: E.element_blank)
-    # remove border
-    gb = gb + R.theme(panel__border: E.element_blank)
-    # remove background. When working with faceted graphs, the background makes
-    # it easier to see each facet, so leave it
-    gb = gb + R.theme(panel__background: E.element_blank) if !faceted
-    # Change axis font
-    gb = gb + R.theme(axis__text: text_element(8))
-    # change axis title font
-    gb = gb + R.theme(axis__title: text_element(10, "plain"))
-    # change font of title
-    gb = gb + R.theme(title: text_element(12, "bold"))
-    # change font of captions
-    gb = gb + R.theme(plot__caption: text_element(8))
-    
-  end
-   
-end
-
-#R.png("final.png")
-R.awt
-
-# Read the R ToothGrowth variable and assign it to the
-# Ruby tooth_growth variable
-tooth_growth = ~:ToothGrowth
-# convert the dose to a factor
-tooth_growth.dose = tooth_growth.dose.as__factor
-
-# print the first few elements of the dataset
-puts tooth_growth.head
-
-# Create the basic plot
-bp = tooth_growth.ggplot(E.aes(x: :dose, y: :len, group: :dose)) + 
-     R.geom_boxplot(E.aes(fill: :dose)) + R.geom_point
-
-caption = <<-EOT
-Length of odontoblasts in 60 guinea pigs. 
-Each animal received one of three dose levels of vitamin C.
-EOT
-
-# Facet the plot by the s
-bp = bp + R.facet_grid(+:all =~ +:supp) +
-     R.labs(title: "Tooth Growth:  Length by Dose",
-            subtitle: "Faceted by delivery method, Orange Juince (OJ) or Ascorbic Acid (VC)",
-            x: "Dose (mg)", y: "Teeth length",
-            caption: caption) +
-     CorpTheme.global_theme(faceted: true)
-
-puts bp
-
-# CorpTheme.layout("Plot of length by dose", "subtitle", bp)
-
-a = gets.chomp
-sleep(20)
-
-R.dev__off
-=end
-
-=begin
-
-awt1 = R::Device.new('awt')
-awt1.open
-
-awt2 = R::Device.new('awt')
-awt2.open
-
-puts R.dev__list
-
-sleep(10)
-
-awt1.close
-
-puts R.dev__list
-
-# puts R::Devices.list
-=end
-
-=begin
-#awt1 = R::Device.new('awt')
-#awt1.open
-
-b = R.ggplot(:mpg, E.aes(:fl))
-
-# Basic plot
-print b + R.geom_bar
-
-awt2 = R::Device.new('awt')
-awt2.open
-
-# Change fill color
-print b + R.geom_bar(fill: "steelblue", color: "steelblue") +
-      R.theme_minimal
-
-sleep(5)
-
-awt1.close
-
-sleep(5)
-=end
-
-
-
-=begin
-R.theme_set R.theme_bw
-
-# Data Prep
-mtcars = ~:mtcars
-mtcars.car_name = R.rownames(:mtcars)
-# compute normalized mpg 
-mtcars.mpg_z = ((mtcars.mpg - mtcars.mpg.mean)/mtcars.mpg.sd).round 2
-mtcars.mpg_type = mtcars.mpg_z < 0 ? "below" : "above"
-mtcars = mtcars[mtcars.mpg_z.order, :all]
-# convert to factor to retain sorted order in plot
-mtcars.car_name = mtcars.car_name.factor levels: mtcars.car_name
-
-# Diverging Barcharts
-gg = mtcars.ggplot(E.aes(x: :car_name, y: :mpg_z, label: :mpg_z)) + 
-     R.geom_bar(E.aes(fill: :mpg_type), stat: 'identity',  width: 0.5) +
-     R.scale_fill_manual(name: "Mileage", 
-                         labels: R.c("Above Average", "Below Average"), 
-                         values: R.c("above": "#00ba38", "below": "#f8766d")) + 
-     R.labs(subtitle: "Normalised mileage from 'mtcars'", 
-            title: "Diverging Bars") + 
-     R.coord_flip()
-
-p gg
-puts gg.rclass
-gg.rclass = "list"
-puts gg
-=end
-
-#lst = gg.as__list
-#lst.rclass = "list"
-#puts lst.rclass
-#puts lst
-
-=begin
-R::Support.eval(<<-R)
-
-library(ggplot2)
-library(ggcorrplot)
-
-# Correlation matrix
-data(mtcars)
-corr <- round(cor(mtcars), 1)
-
-# Plot
-gg = ggcorrplot(corr, hc.order = TRUE, 
-           type = "lower", 
-           lab = TRUE, 
-           lab_size = 3, 
-           method="circle", 
-           colors = c("tomato2", "white", "springgreen3"), 
-           title="Correlogram of mtcars", 
-           ggtheme=theme_bw)
-
-lst = as.list(gg)
-print(lst[[1]])
-R
-=end
-=begin
-# mtcars$`car name` <- rownames(mtcars)  # create new column for car names
-# mtcars$mpg_z <- round((mtcars$mpg - mean(mtcars$mpg))/sd(mtcars$mpg), 2)  # compute normalized mpg
-# mtcars$mpg_type <- ifelse(mtcars$mpg_z < 0, "below", "above")  # above / below avg flag
-# mtcars <- mtcars[order(mtcars$mpg_z), ]  # sort
-mtcars$`car name` <- factor(mtcars$`car name`, levels = mtcars$`car name`)  # convert to factor to retain sorted order in plot.
-
-# Diverging Barcharts
-ggplot(mtcars, aes(x=`car name`, y=mpg_z, label=mpg_z)) + 
-  geom_bar(stat='identity', aes(fill=mpg_type), width=.5)  +
-  scale_fill_manual(name="Mileage", 
-                    labels = c("Above Average", "Below Average"), 
-                    values = c("above"="#00ba38", "below"="#f8766d")) + 
-  labs(subtitle="Normalised mileage from 'mtcars'", 
-       title= "Diverging Bars") + 
-  coord_flip()
-
-=end
-
-# dir = File.dirname(File.expand_path('.', __FILE__))
-# GalaazUtil.inline_file("awsome_print", "require ")
-
-
-
-
-
-=begin
-R::Support.eval(<<-R)
-  old_dispatch = UseMethod;
-  print(old_dispatch);
-
-  print(typeof(UseMethod));
-
-  UseMethod = function(x, ...) {
-    print("in local UseMethod");
-    print(x);
-    print(...);
-    old_dispatch(x, ...);
-  }
-
-  vec = c(1, 2, 3);
-  print(vec);
-  print(mean(vec));
-  # UseMethod("mean", vec);
-
-R
-=end
-
+# naturgy soluções
 
+require 'galaaz'
+# require 'ggplot'
 
+formula = :y.til :x + E.I(:x**2)
+puts formula
+puts formula.ast
 
+formula = :y.til :x + :x**2
+puts formula
+puts formula.ast
 
-
-
-
-
-
-
-=begin
-R::Support.eval(<<-R)
-  print.polyglot.value = function(poly) {
-    print("printing external");
-    print(poly$puts());
-  }
-
-R
-
-ext = R::Support.eval(<<-R)
-  function(data) {
-    print(data);
-  }
-R
-
-class User
-
-  attr_reader :id
-  attr_reader :name
-
-  def initialize
-    @id = 1
-    @name = ["a", "b", "c"]
-  end
-
-  def method_missing(symbol, *args)
-    p symbol
-    p args
-  end
-
-  def puts(*args)
-    @id
-  end
-  
-end
-
-ext.call(User.new)
-=end
-
-=begin
-class ArrayEmul
-  attr_reader :array
-
-  def initialize
-    @array = []
-  end
-
-  def method_missing(symbol, *args)
-    @array.send(symbol, *args)
-  end
-
-  def to_s
-    @array.to_s
-  end
-
-  def pp
-    puts @array.to_s
-  end
-
-  def fetch(index)
-    @array[index[0]]
-  end
-  
-end
-
-make_obj = Polyglot.eval("R", <<-R)
-  function(ruby_obj) {
-    x = list(ruby_obj);
-    attr(x, "class") = "ruby_obj";
-    x;
-   }
-R
-
-rf = Polyglot.eval("R", <<-R)
-  function(ruby_obj) {
-    # print(ruby_obj);
-    attr(ruby_obj, "class") = "ruby_obj"
-    print(ruby_obj@to_s());
-    print(class(ruby_obj));
-    # df = data.frame(ruby_obj);
-  }
-
-  print.ruby_obj = function(x, index, ...) {
-    print(index);
-    x[[1]]@fetch(index);
-  }
-
-R
-
-h = ArrayEmul.new
-h << 1 << 2 << 3
-puts h
-
-r_obj = make_obj.call(h)
-p Polyglot.eval("R", "print").call(r_obj, 0)[0]
-
-=end
-
-
-=begin
-sym = +:sym
-# construct a formula without the lhs: ~sym1 + sym2
-puts +:sym1 + +:sym2
-f1 = +:sym1 + :sym2
-puts +:sym1 + +:sym2 - +:sym3
-puts +:sym1 * +:sym2
-=end
-
-#puts :sym3 ** 2
-# p (:sym1 + :sym2 * :sym3 ** 2).expression
-#puts E.log(:y + 1).to_s
-
-# puts :sym1 ** 2
-# puts +:sym1 + (:sym1 ** 2).i
-
-# puts +:y =~ +:sym1 + +:sym2 * +:sym3 + (:sym1 ** 2).i
-# puts +:y =~ :all
-
-
-# p sym
-# puts sym
-# sym.typeof
-=begin
-f1 = +:sym1 + +:sym2
-puts f1
-puts f1.deparse
-
-puts R.c(1, 2, 3).deparse
-puts R.list(a: 1, b: 2, c: 3).deparse
-=end
-
-=begin
-# Set seed
-R.set__seed(123)
-
-# Data
-x = R.rnorm(5)
-x2 = R.rnorm(5)
-y = R.rnorm(5)
-
-# Model frame
-puts R.model__frame(+:y =~ +:x * +:x2, data: R.data__frame(x: x, y: y, x2: x2))
-
-puts R.model__frame(+:y =~ +:x + +:x2 + (+:x ^ +:x2),
-                    data: R.data__frame(x: x, y: y, x2: x2))
-
-puts R.model__frame(+:y =~ +:x + (:x ** 2).i,
-                    data: R.data__frame(x: R.rnorm(5), y: R.rnorm(5)))
-=end
 =begin
-class User
-  
-  attr_reader :id
-  attr_reader :name
-  attr_reader :favoriteLanguage
-  
-  def initialize(id, name, favorite_language)
-    @id = id
-    @name = name
-    @favorite_language = favorite_language
-  end
-  
-end
-
-class NameColumn
-
-  attr_reader :users
-  
-  def initialize(users)
-    @users = users
-  end
-
-  def get(index)
-    users[index].name
-  end
-
-  def set(index, val)
-  end
-
-  def getSize
-    users.size
-  end
-
-  def method_missing(symbol, *args)
-    puts "NameColumn method_missing"
-    puts symbol
-    puts args
-  end
-  
-end
-
-class IdColumn
-
-  attr_reader :users
-  
-  def initialize(users)
-    @users = users
-  end
-
-  def get(index)
-    users[index].id
-  end
-
-  def set(index, val)
-  end
-
-  def getSize
-    users.size
-  end
-  
-  def method_missing(symbol, *args)
-    puts "IdColumn method_missing"
-    puts symbol
-    puts args
-  end
-
-end
-
-class UsersTable
-  attr_reader :id
-  attr_reader :name
-  attr_reader :language
-
-  def initialize(users)
-    @users = users
-    @id = IdColumn.new(users)
-    @name = NameColumn.new(users)
-  end
-
-  def getSize
-    puts users.size
-    users.size
-  end
-
-  def method_missing(symbol, *args)
-    puts "UsersTable method_missing"
-    puts symbol
-    puts args
-  end
-  
-end
-
-rf = R::Support.eval(<<-R)
-  function(table) { 
-    print(table);
-    table <- as.data.frame(table);
-    cat('The whole data frame printed in R:\n');
-    print(table);
-    cat('---------\n\n');
-
-    cat('Filter out users with ID>2:\n');
-    print(table[table$id > 2,]);
-    cat('---------\n\n');
-
-    cat('How many users like Java: ');
-    cat(nrow(table[table$language == 'Java',]), '\n');
-  }
-R
-
-users = []
-users << User.new(1, "Florian", "Python")
-users << User.new(2, "Lukas", "R")
-users << User.new(3, "Mila", "Java")
-users << User.new(4, "Paley", "Coq")
-users << User.new(5, "Stepan", "C#")
-users << User.new(6, "Tomas", "Java")
-users << User.new(7, "Zbynek", "Scala")
+formula = :cyl.til :exp
+puts formula
+puts formula.to_s
 
-puts users[0].name
-ut = UsersTable.new(users)
-rut = R.list(ut)
-rf.call(rut)
 =end