MonetDB: RIntegration - R API: Aggregation and Filtering test cases

[Hannes Muehleisen]

Changeset: 3bce1fdba615 for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=3bce1fdba615
Added Files:
        monetdb5/extras/rapi/Tests/rapi05.mal
        monetdb5/extras/rapi/Tests/rapi06.mal
Modified Files:
        monetdb5/extras/rapi/Tests/All
Branch: RIntegration
Log Message:

R API: Aggregation and Filtering test cases


diffs (56 lines):

diff --git a/monetdb5/extras/rapi/Tests/All b/monetdb5/extras/rapi/Tests/All
--- a/monetdb5/extras/rapi/Tests/All
+++ b/monetdb5/extras/rapi/Tests/All
@@ -3,3 +3,5 @@ HAVE_LIBR?rapi01
 HAVE_LIBR?rapi02
 HAVE_LIBR?rapi03
 HAVE_LIBR?rapi04
+HAVE_LIBR?rapi05
+HAVE_LIBR?rapi06
diff --git a/monetdb5/extras/rapi/Tests/rapi05.mal 
b/monetdb5/extras/rapi/Tests/rapi05.mal
new file mode 100644
--- /dev/null
+++ b/monetdb5/extras/rapi/Tests/rapi05.mal
@@ -0,0 +1,27 @@
+g:= bat.new(:oid,:int);
+bat.append(g,1);
+bat.append(g,2);
+bat.append(g,3);
+bat.append(g,1);
+bat.append(g,2);
+bat.append(g,3);
+bat.append(g,1);
+bat.append(g,2);
+bat.append(g,3);
+bat.append(g,1);
+
+b:= bat.new(:oid,:int);
+bat.append(b,1804289383);
+bat.append(b,846930886);
+bat.append(b,1681692777);
+bat.append(b,1714636915);
+bat.append(b,1957747793);
+bat.append(b,424238335);
+bat.append(b,719885386);
+bat.append(b,1649760492);
+bat.append(b,596516649);
+bat.append(b,1189641421);
+
+(r:bat[:oid,:int], s:bat[:oid,:dbl]) := 
rapi.eval("aggregate(arg1,by=list(arg2),FUN=function(x){sort(x)[max(length(x)-arg3,0)]})",g,b,1);
+
+io.print(r,s);
diff --git a/monetdb5/extras/rapi/Tests/rapi06.mal 
b/monetdb5/extras/rapi/Tests/rapi06.mal
new file mode 100644
--- /dev/null
+++ b/monetdb5/extras/rapi/Tests/rapi06.mal
@@ -0,0 +1,10 @@
+ts:= bat.new(:oid,:int);
+bat.append(ts,1387360138);
+bat.append(ts,451665720);
+bat.append(ts,514382400);
+bat.append(ts,1000209600);
+bat.append(ts,1326272400);
+
+r:bat[:oid,:int] := 
rapi.eval("library(moonsun);options(latitude=arg2,longitude=arg3);angles <- 
sapply(arg1,FUN=function(x){ts <- as.POSIXlt(x,origin = 
\"1970-01-01\",tz=\"UTC\");moon(jd(epoch=ts)+ts$hour/24)$angle});return(arg1[angles
 > 0])",ts,52.3,4.8);
+
+io.print(r);
_______________________________________________
checkin-list mailing list
checkin-list@monetdb.org
https://www.monetdb.org/mailman/listinfo/checkin-list