sciruby 0.1.3 → 0.2.1

data/data/r/man/swiss.Rd

@@ -1,79 +0,0 @@
-% File src/library/datasets/man/swiss.Rd
-% Part of the R package, http://www.R-project.org
-% Copyright 1995-2007 R Core Development Team
-% Distributed under GPL 2 or later
-
-\name{swiss}
-\docType{data}
-\alias{swiss}
-\title{Swiss Fertility and Socioeconomic Indicators (1888) Data}
-\description{
-  Standardized fertility measure and socio-economic indicators for each
-  of 47 French-speaking provinces of Switzerland at about 1888.
-}
-\usage{swiss}
-\format{
-  A data frame with 47 observations on 6 variables, \emph{each} of which
-  is in percent, i.e., in \eqn{[0, 100]}.
-
-  \tabular{rll}{
-    [,1] \tab Fertility \tab \eqn{I_g}{Ig}, \sQuote{common standardized
-    fertility measure}\cr
-    [,2] \tab Agriculture\tab \% of males involved in agriculture
-    as occupation\cr
-    [,3] \tab Examination\tab \% draftees receiving highest mark
-    on army examination\cr
-    [,4] \tab Education \tab \% education beyond primary school for draftees.\cr
-    [,5] \tab Catholic \tab \% \sQuote{catholic} (as opposed to \sQuote{protestant}).\cr
-    [,6] \tab Infant.Mortality\tab live births who live less than 1
-    year.
-  }
-
-  All variables but \sQuote{Fertility} give proportions of the
-  population.
-}
-\details{
-  (paraphrasing Mosteller and Tukey):
-
-  Switzerland, in 1888, was entering a period known as the
-  \emph{demographic transition}; i.e., its fertility was beginning to
-  fall from the high level typical of underdeveloped countries.
-
-  The data collected are for 47 French-speaking \dQuote{provinces} at
-  about 1888.
-
-  Here, all variables are scaled to \eqn{[0, 100]}, where in the
-  original, all but \code{"Catholic"} were scaled to \eqn{[0, 1]}.
-}
-\source{
-  Project \dQuote{16P5}, pages 549--551 in
-
-  Mosteller, F. and Tukey, J. W. (1977)
-  \emph{Data Analysis and Regression: A Second Course in Statistics}.
-  Addison-Wesley, Reading Mass.
-
-  indicating their source as
-  \dQuote{Data used by permission of Franice van de Walle. Office of
-  Population Research, Princeton University, 1976.  Unpublished data
-  assembled under NICHD contract number No 1-HD-O-2077.}
-}
-\references{
-  Becker, R. A., Chambers, J. M. and Wilks, A. R. (1988)
-  \emph{The New S Language}.
-  Wadsworth & Brooks/Cole.
-}
-\note{
-  Files for all 182 districts in 1888 and other years have been available at
-  \url{http://opr.princeton.edu/archive/eufert/switz.html} or
-  \url{http://opr.princeton.edu/archive/pefp/switz.asp}.
-
-  They state that variables \code{Examination} and \code{Education}
-  are averages for 1887, 1888 and 1889.
-}
-\examples{
-require(stats); require(graphics)
-pairs(swiss, panel = panel.smooth, main = "swiss data",
-      col = 3 + (swiss$Catholic > 50))
-summary(lm(Fertility ~ . , data = swiss))
-}
-\keyword{datasets}

data/data/r/man/treering.Rd

@@ -1,38 +0,0 @@
-% File src/library/datasets/man/treering.Rd
-% Part of the R package, http://www.R-project.org
-% Copyright 1995-2007 R Core Development Team
-% Distributed under GPL 2 or later
-
-\name{treering}
-\docType{data}
-\alias{treering}
-\title{
-  Yearly Treering Data, -6000--1979
-}
-\description{
-  Contains normalized tree-ring widths in dimensionless units.
-}
-\usage{
-treering
-}
-\format{
-  A univariate time series with 7981 observations. The object is of
-  class \code{"ts"}.
-
-  Each tree ring corresponds to one year.
-}
-\details{
-  The data were recorded by Donald A. Graybill, 1980, from 
-  Gt Basin Bristlecone Pine 2805M, 3726-11810 in Methuselah Walk, California.
-}
-\source{
-  Time Series Data Library:
-  \url{http://www-personal.buseco.monash.edu.au/~hyndman/TSDL/},
-  series \file{CA535.DAT}
-}
-\references{
-  For background on Bristlecone pines and Methuselah Walk, see
-  \url{http://www.sonic.net/bristlecone/}; for some photos see
-  \url{http://www.ltrr.arizona.edu/~hallman/sitephotos/meth.html}
-}
-\keyword{datasets}

data/data/r/man/trees.Rd

@@ -1,48 +0,0 @@
-% File src/library/datasets/man/trees.Rd
-% Part of the R package, http://www.R-project.org
-% Copyright 1995-2007 R Core Development Team
-% Distributed under GPL 2 or later
-
-\name{trees}
-\docType{data}
-\alias{trees}
-\title{Girth, Height and Volume for Black Cherry Trees}
-\description{
-  This data set provides measurements of the girth, height and volume
-  of timber in 31 felled black cherry trees.  Note that girth is the
-  diameter of the tree (in inches) measured at 4 ft 6 in above the
-  ground.
-}
-\usage{trees}
-\format{
-  A data frame with 31 observations on 3 variables.
-  \tabular{rlll}{
-    \code{[,1]} \tab \code{Girth} \tab numeric
-    \tab Tree diameter in inches\cr
-    \code{[,2]} \tab \code{Height}\tab numeric
-    \tab Height in ft\cr
-    \code{[,3]} \tab \code{Volume}\tab numeric
-    \tab Volume of timber in cubic ft\cr}
-}
-\source{
-  Ryan, T. A., Joiner, B. L. and Ryan, B. F. (1976)
-  \emph{The Minitab Student Handbook}.
-  Duxbury Press.
-}
-\references{
-  Atkinson, A. C. (1985)
-  \emph{Plots, Transformations and Regression}.
-  Oxford University Press.
-}
-\examples{
-require(stats); require(graphics)
-pairs(trees, panel = panel.smooth, main = "trees data")
-plot(Volume ~ Girth, data = trees, log = "xy")
-coplot(log(Volume) ~ log(Girth) | Height, data = trees,
-       panel = panel.smooth)
-summary(fm1 <- lm(log(Volume) ~ log(Girth), data = trees))
-summary(fm2 <- update(fm1, ~ . + log(Height), data = trees))
-step(fm2)
-## i.e., Volume ~= c * Height * Girth^2  seems reasonable
-}
-\keyword{datasets}

data/data/r/man/uspop.Rd

@@ -1,27 +0,0 @@
-% File src/library/datasets/man/uspop.Rd
-% Part of the R package, http://www.R-project.org
-% Copyright 1995-2007 R Core Development Team
-% Distributed under GPL 2 or later
-
-\name{uspop}
-\docType{data}
-\alias{uspop}
-\title{Populations Recorded by the US Census}
-\description{
-  This data set gives the population of the United States (in millions)
-  as recorded by the decennial census for the period 1790--1970.
-}
-\usage{uspop}
-\format{A time series of 19 values.}
-\source{
-  McNeil, D. R. (1977)
-  \emph{Interactive Data Analysis}.
-  New York: Wiley.
-}
-% FIXME: missing \references{}
-\examples{
-require(graphics)
-plot(uspop, log = "y", main = "uspop data", xlab = "Year",
-     ylab = "U.S. Population (millions)")
-}
-\keyword{datasets}

data/data/r/man/volcano.Rd

@@ -1,31 +0,0 @@
-% File src/library/datasets/man/volcano.Rd
-% Part of the R package, http://www.R-project.org
-% Copyright 1995-2007 R Core Development Team
-% Distributed under GPL 2 or later
-
-\name{volcano}
-\docType{data}
-\alias{volcano}
-\title{Topographic Information on Auckland's Maunga Whau Volcano}
-\description{
-  Maunga Whau (Mt Eden) is one of about 50 volcanos in the Auckland
-  volcanic field.  This data set gives topographic information for
-  Maunga Whau on a 10m by 10m grid.
-}
-\usage{volcano}
-\format{
-  A matrix with 87 rows and 61 columns, rows corresponding to grid lines
-  running east to west and columns to grid lines running south to
-  north.}
-\source{
-  Digitized from a topographic map by Ross Ihaka.
-  These data should not be regarded as accurate.
-}
-% FIXME: missing \references{}
-\seealso{\code{\link{filled.contour}} for a nice plot.}
-\examples{
-require(grDevices); require(graphics)
-filled.contour(volcano, color.palette = terrain.colors, asp = 1)
-title(main = "volcano data: filled contour map")
-}
-\keyword{datasets}

data/data/r/man/warpbreaks.Rd

@@ -1,56 +0,0 @@
-% File src/library/datasets/man/warpbreaks.Rd
-% Part of the R package, http://www.R-project.org
-% Copyright 1995-2007 R Core Development Team
-% Distributed under GPL 2 or later
-
-\name{warpbreaks}
-\docType{data}
-\alias{warpbreaks}
-\title{The Number of Breaks in Yarn during Weaving}
-\description{
-  This data set gives the number of warp breaks per loom, where a loom
-  corresponds to a fixed length of yarn.
-}
-\usage{warpbreaks}
-\format{
-  A data frame with 54 observations on 3 variables.
-  \tabular{rlll}{
-    \code{[,1]} \tab \code{breaks}  \tab numeric \tab The number of breaks\cr
-    \code{[,2]} \tab \code{wool}    \tab factor  \tab The type of wool (A or B)\cr
-    \code{[,3]} \tab \code{tension} \tab factor  \tab The level of tension (L, M, H)
-  }
-  There are measurements on 9 looms for each of the six types of warp
-  (\code{AL}, \code{AM}, \code{AH}, \code{BL}, \code{BM}, \code{BH}).
-}
-\source{
-  Tippett, L. H. C. (1950)
-  \emph{Technological Applications of Statistics}.
-  Wiley.  Page 106.
-
-}
-\references{
-  Tukey, J. W. (1977)
-  \emph{Exploratory Data Analysis}.
-  Addison-Wesley.
-
-  McNeil, D. R. (1977)
-  \emph{Interactive Data Analysis}.
-  Wiley.
-}
-\seealso{
-  \code{\link{xtabs}} for ways to display these data as a table.
-}
-\examples{
-require(stats); require(graphics)
-summary(warpbreaks)
-opar <- par(mfrow = c(1,2), oma = c(0, 0, 1.1, 0))
-plot(breaks ~ tension, data = warpbreaks, col = "lightgray",
-     varwidth = TRUE, subset = wool == "A", main = "Wool A")
-plot(breaks ~ tension, data = warpbreaks, col = "lightgray",
-     varwidth = TRUE, subset = wool == "B", main = "Wool B")
-mtext("warpbreaks data", side = 3, outer = TRUE)
-par(opar)
-summary(fm1 <- lm(breaks ~ wool*tension, data = warpbreaks))
-anova(fm1)
-}
-\keyword{datasets}

data/data/r/man/women.Rd

@@ -1,40 +0,0 @@
-% File src/library/datasets/man/women.Rd
-% Part of the R package, http://www.R-project.org
-% Copyright 1995-2007 R Core Development Team
-% Distributed under GPL 2 or later
-
-\name{women}
-\docType{data}
-\alias{women}
-\title{Average Heights and Weights for American Women}
-\description{
-  This data set gives the average heights and weights for American women
-  aged 30--39.
-}
-\usage{women}
-\format{A data frame with 15 observations on 2 variables.
-  \tabular{rlll}{
-    \code{[,1]}  \tab \code{height}  \tab numeric  \tab Height (in)\cr
-    \code{[,2]}  \tab \code{weight}  \tab numeric  \tab Weight (lbs)
-  }
-}
-\source{The World Almanac and Book of Facts, 1975.}
-\details{
-  The data set appears to have been taken from the American Society of
-  Actuaries \emph{Build and Blood Pressure Study} for some (unknown to
-  us) earlier year.
-    
-  The World Almanac notes: \dQuote{The figures represent weights in
-    ordinary indoor clothing and shoes, and heights with shoes}.
-}
-\references{
-  McNeil, D. R. (1977)
-  \emph{Interactive Data Analysis}.
-  Wiley.
-}
-\examples{
-require(graphics)
-plot(women, xlab = "Height (in)", ylab = "Weight (lb)",
-     main = "women data: American women aged 30-39")
-}
-\keyword{datasets}

data/data/r/man/zCO2.Rd

@@ -1,81 +0,0 @@
-% File src/library/datasets/man/zCO2.Rd
-% Part of the R package, http://www.R-project.org
-% Copyright 1995-20011 R Core Development Team
-% Distributed under GPL 2 or later
-
-\name{CO2}
-\docType{data}
-\alias{CO2}
-\title{Carbon Dioxide Uptake in Grass Plants}
-\description{
-  The \code{CO2} data frame has 84 rows and 5 columns of data from an
-  experiment on the cold tolerance of the grass species
-  \emph{Echinochloa crus-galli}.
-}
-\usage{CO2}
-\format{
-  This object of class \code{c("nfnGroupedData", "nfGroupedData",
-    "groupedData", "data.frame")} containing the following columns:
-  \describe{
-    \item{Plant}{
-      an ordered factor with levels
-      \code{Qn1} < \code{Qn2} < \code{Qn3} < \dots < \code{Mc1}
-      giving a unique identifier for each plant.
-    }
-    \item{Type}{
-      a factor with levels
-      \code{Quebec} 
-      \code{Mississippi}
-      giving the origin of the plant
-    }
-    \item{Treatment}{
-      a factor with levels
-      \code{nonchilled} 
-      \code{chilled}
-    }
-    \item{conc}{
-      a numeric vector of ambient carbon dioxide concentrations (mL/L).
-    }
-    \item{uptake}{
-      a numeric vector of carbon dioxide uptake rates
-      (\eqn{\mu\mbox{mol}/m^2}{umol/m^2} sec).
-    }
-  }
-}
-\details{
-  The \eqn{CO_2}{CO2} uptake of six plants from Quebec and six plants
-  from Mississippi was measured at several levels of ambient
-  \eqn{CO_2}{CO2} concentration.  Half the plants of each type were
-  chilled overnight before the experiment was conducted.
-  
-  This dataset was originally part of package \code{nlme}, and that has
-  methods (including for \code{[}, \code{as.data.frame}, \code{plot} and
-  \code{print}) for its grouped-data classes. 
-}
-\source{
-  Potvin, C., Lechowicz, M. J. and Tardif, S. (1990)
-  \dQuote{The statistical analysis of ecophysiological response curves
-  obtained from experiments involving repeated measures}, \emph{Ecology},
-  \bold{71}, 1389--1400.
-
-  Pinheiro, J. C. and Bates, D. M. (2000)
-  \emph{Mixed-effects Models in S and S-PLUS}, Springer.
-}
-\examples{
-require(stats); require(graphics)
-\testonly{options(show.nls.convergence=FALSE)}
-coplot(uptake ~ conc | Plant, data = CO2, show.given = FALSE, type = "b")
-## fit the data for the first plant
-fm1 <- nls(uptake ~ SSasymp(conc, Asym, lrc, c0),
-   data = CO2, subset = Plant == 'Qn1')
-summary(fm1)
-## fit each plant separately
-fmlist <- list()
-for (pp in levels(CO2$Plant)) {
-  fmlist[[pp]] <- nls(uptake ~ SSasymp(conc, Asym, lrc, c0),
-      data = CO2, subset = Plant == pp)
-}
-## check the coefficients by plant
-print(sapply(fmlist, coef), digits=3)
-}
-\keyword{datasets}

data/lib/ext/csv.rb

@@ -1,22 +0,0 @@
-require 'csv'
-require 'statsample'
-
-class CSV
-  def to_dataset mode=:col
-    CSV::Table.new(self).send("by_#{mode}.to_s".to_sym).to_dataset
-  end
-end
-
-class CSV::Table
-  def to_dataset
-    begin
-      h = {}
-      self.headers.each { |header|  h[header] = self[header].to_scale }
-      h
-    rescue NoMethodError => e # Table has no headers. Try a different way.
-      v = []
-      0.upto(self.size-1).each { |j|  v[j] = self[j].to_scale }
-      v
-    end.to_dataset
-  end
-end

data/lib/ext/shoes.rb

@@ -1,131 +0,0 @@
-require "green_shoes"
-
-class Shoes
-  class App
-    # This has been integrated into Green Shoes in the repo, but is not yet in the current gem.
-    # Creates an edit_box for source code editing, using gtksourceview2.
-    def code_box args={}
-      require 'gtksourceview2'
-      args = basic_attributes args
-
-      args[:width]  = 400 if args[:width].zero?
-      args[:height] = 300 if args[:height].zero?
-
-      (change_proc = args[:change]; args.delete :change) if args[:change]
-      sv = Gtk::SourceView.new
-      sv.show_line_numbers = true
-      sv.insert_spaces_instead_of_tabs = true
-      sv.smart_home_end = Gtk::SourceView::SMART_HOME_END_ALWAYS
-      sv.tab_width = 2
-      sv.buffer.text = args[:text].to_s
-      sv.buffer.language = Gtk::SourceLanguageManager.new.get_language('ruby')
-      sv.buffer.highlight_syntax = true
-      sv.modify_font(Pango::FontDescription.new(args[:font])) if args[:font]
-
-      cb = Gtk::ScrolledWindow.new
-      cb.set_size_request args[:width], args[:height]
-      cb.set_policy Gtk::POLICY_AUTOMATIC, Gtk::POLICY_AUTOMATIC
-      cb.set_shadow_type Gtk::SHADOW_IN
-      cb.add sv
-
-      sv.buffer.signal_connect "changed" do
-        yield @_cb
-      end if block_given?
-
-      @canvas.put cb, args[:left], args[:top]
-
-      cb.show_all
-      args[:real], args[:app], args[:textview] = cb, self, sv
-      @_cb = CodeBox.new(args).tap{|s| s.change &change_proc}
-    end
-
-
-    # Helper function for image() [with no name provided]. Currently only understands SVGs. Converts whatever it's given to
-    # the format needed by Gtk::Image.new().
-    #
-    # Arguments:
-    # * :data can be a string (e.g., for an SVG), an RSVG::Handle, a Gdk::Pixbuf, or even a Gtk::Image. If it can't tell which, it'll try
-    #   calling the pixbuf() method on :data, or just returning it as is.
-    # * :format, when it works, will specify the content-type of :data when that is not implicit in the class of :data. For example, if
-    #   :data is a string, :format might be :svg.
-    def image_handle args={}
-      if args[:data].is_a?(String)
-        raise(NotImplementedError, "Currently only RSVG::Handle is implemented.") if args.has_key?(:format) && args[:format] != :svg
-        RSVG::Handle.new_from_data(args[:data]).tap{|s|s.close}.pixbuf
-      elsif args[:data].is_a?(RSVG::Handle)
-        args[:data].pixbuf
-      elsif args[:data].is_a?(Gdk::Pixbuf) || args[:data].is_a?(Gtk::Image)
-        args[:data]
-      else
-        # Unknown format. Try asking for a pixbuf, otherwise just assume it's already a pixbuf.
-        args[:data].respond_to?(:pixbuf) ? args[:data].pixbuf : args[:data]
-      end
-    end
-
-
-    # Improvement on Green Shoes' image function: accepts already-loaded images, such as those you might
-    # create in-app. This has mostly been merged into green shoes, but that version is buggy.
-    def image name, args={}
-      # Handle case where no name is given -- typically, :data argument will be set.
-      if name.is_a?(Hash)
-        args = name
-        name = nil
-        raise(ArgumentError, ":data must be set if no name given") unless args.has_key?(:data)
-      end
-
-      args = basic_attributes args
-      args[:full_width] = args[:full_height] = 0
-      (click_proc = args[:click]; args.delete :click) if args[:click]
-
-      if name.nil?
-        img = Gtk::Image.new image_handle(args)
-
-        args[:full_width], args[:full_height] = img.size_request if (!args[:width].zero? or !args[:height].zero?)
-        downloading = false
-
-      elsif name =~ /^(http|https):\/\//
-        tmpname = File.join(Dir.tmpdir, "__green_shoes_#{Time.now.to_f}.png")
-        d = download name, save: tmpname
-        img = Gtk::Image.new File.join(DIR, '../static/downloading.png')
-        downloading = true
-      else
-        img = Gtk::Image.new name
-        downloading = false
-      end
-
-      if (!args[:width].zero? or !args[:height].zero?) and !downloading
-        args[:full_width], args[:full_height] = imagesize(name) unless name.nil?
-        args[:width] = args[:full_width] if args[:width].zero?
-        args[:height] = args[:full_height] if args[:height].zero?
-        img = Gtk::Image.new img.pixbuf.scale(args[:width], args[:height])
-      end
-      @canvas.put img, args[:left], args[:top]
-      img.show_now
-      @canvas.remove img if args[:hidden]
-      args[:real], args[:app], args[:path] = img, self, name
-      Image.new(args).tap do |s|
-        @dics.push([s, d, tmpname]) if downloading
-        s.click &click_proc if click_proc
-      end
-    end
-
-
-    def icon filename=nil
-      filename.nil? ? win.icon : win.icon = filename
-    end
-
-    class << self
-      def default_icon= filename
-        Gtk::Window.set_default_icon(filename)
-      end
-    end
-  end
-
-  class CodeBox < EditBox; end
-end
-
-module SciRuby
-  ICON_PATH = File.join(DIR, '..', 'static', 'sciruby-icon.png')
-end
-
-Shoes::App.default_icon = SciRuby::ICON_PATH

data/lib/ext/string.rb

@@ -1,39 +0,0 @@
-class String
-  unless method_defined?(:constantize)
-    # Based on constantize from ActiveSupport::Inflector
-    def constantize
-      names = self.split('::')
-      names.shift if names.empty? || names.first.empty?
-
-      constant = Object
-      names.each do |name|
-        constant = constant.const_defined?(name, false) ? constant.const_get(name) : constant.const_missing(name)
-      end
-      constant
-    end
-  end
-
-  unless method_defined?(:camelize)
-    # Adapted from camelize from ActiveSupport::Inflector
-    def camelize first_letter_in_uppercase = true
-      if first_letter_in_uppercase
-        self.to_s.gsub(/\/(.?)/) { "::#{$1.upcase}" }.gsub(/(?:^|_)(.)/) { $1.upcase }
-      else
-        self.to_s[0].chr.downcase + self[1..-1].camelize
-      end
-    end
-  end
-
-  unless method_defined?(:underscore)
-    # Adapted from underscore from ActiveSupport::Inflector
-    def underscore
-      word = self.dup
-      word.gsub!(/::/, '/')
-      word.gsub!(/([A-Z]+)([A-Z][a-z])/, '\1_\2')
-      word.gsub!(/([a-z\d])([A-Z])/,'\1_\2')
-      word.tr!("-", "_")
-      word.downcase!
-      word
-    end
-  end
-end

data/lib/sciruby/analysis/suite.rb

@@ -1,87 +0,0 @@
-require "statsample"
-
-module SciRuby
-  module Analysis
-    class Suite
-      include ::Statsample::Shorthand
-      attr_accessor :output
-      attr_accessor :name
-      attr_reader :block
-      def initialize(opts=Hash.new(), &block)
-        if !opts.is_a? Hash
-          opts={:name=>opts}
-        end
-
-        @block=block
-        @name=opts[:name] || "Analysis #{Time.now}"
-        @attached=[]
-        @output=opts[:output] || ::STDOUT
-      end
-      # Run the analysis, putting output on
-      def run
-         @block.arity<1 ? instance_eval(&@block) : @block.call(self)
-      end
-      # Provides a description of the procedure. Only appears as a commentary on
-      # SuiteReportBuilder outputs
-      def desc(d)
-        @output.puts("Description:")
-        @output.puts("  #{d}")
-      end
-      def echo(*args)
-        @output.puts(*args)
-      end
-      def summary(obj)
-        obj.summary
-      end
-      def add_to_reportbuilder(rb)
-        SuiteReportBuilder.new({:name=>name, :rb=>rb}, &block)
-      end
-
-      def generate(filename)
-        ar=SuiteReportBuilder.new({:name=>name}, &block)
-        ar.generate(filename)
-      end
-      def to_text
-        ar=SuiteReportBuilder.new({:name=>name}, &block)
-        ar.to_text
-      end
-
-      def attach(ds)
-        @attached.push(ds)
-      end
-      def detach(ds=nil)
-        if ds.nil?
-          @attached.pop
-        else
-          @attached.delete(ds)
-        end
-      end
-      alias :old_boxplot :boxplot
-      alias :old_histogram :histogram
-      alias :old_scatterplot :scatterplot
-
-      def show_svg(svg)
-        require 'tmpdir'
-        fn=Dir.tmpdir+"/image_#{Time.now.to_f}.svg"
-        File.open(fn,"w") {|fp| fp.write svg}
-        `xdg-open '#{fn}'`
-      end
-      def boxplot(*args)
-        show_svg(old_boxplot(*args).to_svg)
-      end
-      def histogram(*args)
-        show_svg(old_histogram(*args).to_svg)
-      end
-      def scatterplot(*args)
-        show_svg(old_scatterplot(*args).to_svg)
-      end
-
-      def method_missing(name, *args,&block)
-        @attached.reverse.each do |ds|
-          return ds[name.to_s] if ds.fields.include? (name.to_s)
-        end
-        raise "Method #{name} doesn't exists"
-      end
-    end
-  end
-end