NAME Rstats - R language build on Perl (EXPERIMENTAL) INSTALLATION curl -L cpanmin.us | perl - -n git@github.com:yuki-kimoto/Rstats.git Usage use Rstats; my $r = Rstats->new; # Vector my $v1 = $r->c([1, 2, 3]); my $v2 = $r->c([2, 3, 4]); my $v3 = $v1 + v2; print $v3; See examples in t directory to know current inplemented features. Corresponding to R # print a1 print $a1 # array(1:24, c(4, 3, 2)) array('1:24', [4, 3, 2]) # 1:24 c('1:24') # c(1, 2, 3) c([1, 2, 3]) # names # names(a1) $r->names($a1) # names(a1) = c("n1", "n2") $r->names($a1 => ["n1", "n2"]); # matrix # matrix(1:12, 4, 3) $r->matrix('1:12', 4, 3) # matrix(1:12, nrow=4, ncol=3) $r->matrix('1:12', {nrow => 4, ncol => 3}); # matrix(1:12, 4, 3, byrow=TRUE) $r->matrix('1:12', 4, 3, {byrow => 1}); # a1 + a2 $a1 + $a2 # a1 - a2 $a1 - $a2 # a1 * a2 $a1 * $a2 # a1 / a2 $a1 / $a2 # a1 ^ a2 (power) $a1 ** $a2 # a1 %% a2 (reminder) $a1 % $a2 # a1 %/% a2 (integer quotient) $r->tranc($a1 / $a2) # as.matrix(a1) $r->as_matrix($a1) # as.vector(a1) $r->as_vector($a1) # as.array(a1) $r->as_array($a1) # is.matrix(a1) $r->is_matrix($a1) # is.vector(a1) $r->is_vector($a1) # is.array(a1) $r->is_array($a1) # abs(a1) $r->abs($a1) # sqrt(a1) $r->sqrt($a1) # exp(a1) $r->exp($a1) # expm1(a1) $r->expm1($a1) # log(a1) $r->log($a1) # logb(a1) $r->logb($a1) # log2(a1) $r->log2($a1) # log10(a1) $r->log10($a1) # sin(a1) $r->sin($a1) # cos(a1) $r->cos($a1) # tan(a1) $r->tan($a1) # asin(a1) $r->asin($a1) # acos(a1) $r->acos($a1) # atan(a1) $r->atan($a1) # sinh(a1) $r->sinh($a1) # sinh(a1) $r->sinh($a1) # cosh(a1) $r->cosh($a1) # cosh(a1) $r->cosh($a1) # atan(a1) $r->atan($a1) # tanh(a1) $r->tanh($a1) # asinh(a1) $r->asinh($a1) # acosh(a1) $r->acosh($a1) # acosh(a1) $r->acosh($a1) # atanh(a1) $r->atanh($a1) # ceiling(a1) $r->ceiling($a1) # floor(a1) $r->floor($a1) # trunc(a1) $r->trunc($a1) # round # round(a1) $r->round($a1) # round(a1, digit) $r->round($a1, $digits) # round(a1, digits=1) $r->round($a1, {digits => 1}); # t $r->t($a1) # rownames # rownames(a1) $r->rownames($a1) # rownames(a1) = c("r1", "r2") $r->rownames($a1 => ["r1", "r2"]) # colnames # colnames(a1) $r->colnames($a1) # colnames(a1) = c("r1", "r2") $r->colnames($a1 => ["r1", "r2"]) # nrow(a1) $r->nrow($a1) # ncol(a1) $r->ncol($a1) # row(a1) $r->row($a1) # col(a1) $r->col($a1) # colMeans(a1) $r->colMeans($a1) # rowMeans(a1) $r->rowMeans($a1) # rowSums(a1) $r->rowSums($a1) # rbind(c(1, 2), c(3, 4), c(5, 6)) $r->rbind([1, 2], [3, 4], [5, 6]) # cbind(c(1, 2), c(3, 4), c(5, 6)) $r->cbind([1, 2], [3, 4], [5, 6]);