statsample 0.15.1 → 0.16.0

data/lib/statsample/graph/svgscatterplot.rb

@@ -1,118 +0,0 @@
-require 'tempfile'
-module Statsample
-  module Graph
-    class SvgScatterplot < SVG::Graph::Plot # :nodoc:
-      attr_accessor :draw_path
-      def initialize(ds,config={})
-          super(config)
-          @ds=ds
-          set_x(@ds.fields[0])
-      end
-      def report_building_html(g)
-        self.parse()
-        tf=Tempfile.new(['image','.svg'])
-        tf.write self.burn
-        tf.close
-        image=ReportBuilder::Image.new(tf.path)
-        g.parse_element(image)
-      end
-      def set_defaults
-          super
-          init_with(
-              :show_data_values => false,
-              :draw_path => false
-              )
-      end
-      def set_x(x)
-          @x=x
-          @y=@ds.fields - [x]
-      end
-      def parse
-        data=@y.inject({}){|a,v| a[v]=[];a}
-        @ds.each{|row|
-          @y.each{|y|
-              data[y]+=[row[@x],row[y]] unless row[@x].nil? or row[y].nil?
-          }
-        }
-        data.each{|y,d|
-          add_data({
-              :data=>d, :title=>@ds[y].name
-          })
-        }
-      end
-      def get_x_labels
-        values=super
-        values.collect{|x|
-          if x.is_a? Integer
-              x 
-          else
-              sprintf("%0.2f",x).to_f
-          end
-        }
-      end
-      def get_y_labels
-        values=super
-        values.collect{|x|
-          if x.is_a? Integer
-              x 
-          else
-              sprintf("%0.2f",x).to_f
-          end
-        }
-      end
-      def draw_data
-        line = 1
-        
-        x_min, x_max, x_div = x_range
-        y_min, y_max, y_div = y_range
-        x_step = (@graph_width.to_f - font_size*2) / (x_max-x_min)
-        y_step = (@graph_height.to_f -  font_size*2) / (y_max-y_min)
-        
-        for data in @data
-        x_points = data[:data][X]
-        y_points = data[:data][Y]
-        
-        lpath = "L"
-        x_start = 0
-        y_start = 0
-        x_points.each_index { |idx|
-        x = (x_points[idx] -  x_min) * x_step
-        y = @graph_height - (y_points[idx] -  y_min) * y_step
-        x_start, y_start = x,y if idx == 0
-        lpath << "#{x} #{y} "
-        }
-        
-        if area_fill
-        @graph.add_element( "path", {
-          "d" => "M#{x_start} #@graph_height #{lpath} V#@graph_height Z",
-          "class" => "fill#{line}"
-        })
-        end
-        if draw_path
-        @graph.add_element( "path", {
-        "d" => "M#{x_start} #{y_start} #{lpath}",
-        "class" => "line#{line}"
-        })
-        end
-        if show_data_points || show_data_values
-        x_points.each_index { |idx|
-          x = (x_points[idx] -  x_min) * x_step
-          y = @graph_height - (y_points[idx] -  y_min) * y_step
-          if show_data_points
-            @graph.add_element( "circle", {
-              "cx" => x.to_s,
-              "cy" => y.to_s,
-              "r" => "2.5",
-              "class" => "dataPoint#{line}"
-            })
-            add_popup(x, y, format( x_points[idx], y_points[idx] )) if add_popups
-          end
-          make_datapoint_text( x, y-6, y_points[idx] ) if show_data_values
-        }
-        end
-        line += 1
-        end
-      end
-    end
-  end
-end

data/test/test_svg_graph.rb

@@ -1,54 +0,0 @@
-require(File.dirname(__FILE__)+'/helpers_tests.rb')
-require('statsample/graph')
-class StatsampleSvgGraphTestCase < MiniTest::Unit::TestCase
-
-  def setup
-    @image_path=Dir::tmpdir+"/images"
-    FileUtils.mkdir(@image_path) if !File.exists? @image_path
-  end
-  def test_histogram
-    if Statsample.has_gsl?
-      ar=(1..1000).to_a.collect {|a|
-        rand(10)
-      }.to_vector(:scale)
-      h=ar.histogram([0,2,5,11])
-      file=Tempfile.new("svg_histogram_only.svg")
-      graph = Statsample::Graph::SvgHistogram.new({})
-      graph.histogram=h
-      file.puts(graph.burn)
-    else
-      skip "Statsample::Graph::SvgHistogram.new not tested (no ruby-gsl)"
-    end
-  end
-  def assert_svg(msg=nil)
-    msg||="%s isn't a svg file"
-    Tempfile.open("svg") do |fp|
-      yield fp
-      fp.close
-      fp.open
-      assert_match(/DOCTYPE svg/, fp.gets(nil), sprintf(msg,fp.path))
-    end
-  end
-  def test_vector
-    ar=[]
-    (1..1000).each {|a|
-      ar.push(rand(10))
-    }
-    vector=ar.to_vector
-    assert_svg {|file| vector.svggraph_frequencies(file)}
-    assert_svg {|file| vector.svggraph_frequencies(file, 800, 600, SVG::Graph::Bar, :graph_title=>'Bar') }
-    assert_svg {|file| vector.svggraph_frequencies(file, 800, 600, SVG::Graph::BarHorizontalNoOp, :graph_title=>'Horizontal Bar') }
-    assert_svg {|file| vector.svggraph_frequencies(file,800,600, SVG::Graph::PieNoOp, :graph_title=>'Pie') }
-    vector.type=:scale
-    if Statsample.has_gsl?
-      file=Tempfile.new("svg_histogram.svg").path
-      hist=vector.svggraph_histogram(5)
-      File.open(file,"wb") {|fp|
-        fp.write(hist.burn)
-      }
-      #assert(File.exists?(file))
-    else
-      skip "Statsample::Vector#svggraph_histogram.new not tested (no ruby-gsl)"
-    end
-  end
-end