# * Rserve client for Perl # * @author Djun Kim # * Based on Clément Turbelin's PHP client # * Licensed under GPL v2 or at your option v3 # * Supports Rserve protocol 0103 only (used by Rserve 0.5 and higher) # * # * Developed using code from Simple Rserve client for PHP by Simon # * Urbanek Licensed under GPL v2 or at your option v3 # * This code is inspired from Java client for Rserve (Rserve package # * v0.6.2) developed by Simon Urbanek(c) # R Double vector # class Rserve_REXP_Double extends Rserve_REXP_Vector { #use warnings; #use autodie; use Statistics::RserveClient; use Statistics::RserveClient qw (:xt_types ); use Statistics::RserveClient::REXP::Vector; package Statistics::RserveClient::REXP::Double; our $VERSION = 'CPAN-0.08'; #VERSION our @ISA = qw(Statistics::RserveClient::REXP::Vector); sub isInteger() { return FALSE; } sub isNumeric() { return TRUE; } sub isDouble() { return TRUE; } sub getType() { return Statistics::RserveClient::XT_ARRAY_DOUBLE; } 1;