Skip to content
Snippets Groups Projects
Commit 32a8a3be authored by Lukas Stadler's avatar Lukas Stadler
Browse files

work on WhichFunctions

parent 759400dd
Branches
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 130 additions and 100 deletions
com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/BasePackage.java
+ 2
− 2
View file @ 32a8a3be
......@@ -624,8 +624,8 @@ public class BasePackage extends RBuiltinPackage {
add(Vector.class, VectorNodeGen::create);
add(Warning.class, WarningNodeGen::create);
add(WhichFunctions.Which.class, WhichFunctionsFactory.WhichNodeGen::create);
add(WhichFunctions.WhichMax.class, WhichFunctionsFactory.WhichMaxNodeGen::create);
add(WhichFunctions.WhichMin.class, WhichFunctionsFactory.WhichMinNodeGen::create);
add(WhichFunctions.WhichMax.class, WhichFunctions.WhichMax::create);
add(WhichFunctions.WhichMin.class, WhichFunctions.WhichMin::create);
add(Xtfrm.class, XtfrmNodeGen::create);
}
......
com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/Scan.java
+ 15
− 16
View file @ 32a8a3be
......@@ -12,7 +12,16 @@
package com.oracle.truffle.r.nodes.builtin.base;
import static com.oracle.truffle.r.nodes.builtin.CastBuilder.Predef.*;
import static com.oracle.truffle.r.nodes.builtin.CastBuilder.Predef.charAt0;
import static com.oracle.truffle.r.nodes.builtin.CastBuilder.Predef.constant;
import static com.oracle.truffle.r.nodes.builtin.CastBuilder.Predef.length;
import static com.oracle.truffle.r.nodes.builtin.CastBuilder.Predef.lengthLte;
import static com.oracle.truffle.r.nodes.builtin.CastBuilder.Predef.logicalValue;
import static com.oracle.truffle.r.nodes.builtin.CastBuilder.Predef.lt;
import static com.oracle.truffle.r.nodes.builtin.CastBuilder.Predef.nullValue;
import static com.oracle.truffle.r.nodes.builtin.CastBuilder.Predef.singleElement;
import static com.oracle.truffle.r.nodes.builtin.CastBuilder.Predef.stringValue;
import static com.oracle.truffle.r.nodes.builtin.CastBuilder.Predef.toBoolean;
import static com.oracle.truffle.r.runtime.builtins.RBehavior.IO;
import static com.oracle.truffle.r.runtime.builtins.RBuiltinKind.INTERNAL;
......@@ -30,7 +39,6 @@ import com.oracle.truffle.r.nodes.unary.CastToVectorNodeGen;
import com.oracle.truffle.r.runtime.RError;
import com.oracle.truffle.r.runtime.RInternalError;
import com.oracle.truffle.r.runtime.RRuntime;
import com.oracle.truffle.r.runtime.builtins.RBehavior;
import com.oracle.truffle.r.runtime.builtins.RBuiltin;
import com.oracle.truffle.r.runtime.conn.RConnection;
import com.oracle.truffle.r.runtime.conn.StdConnections;
......@@ -45,14 +53,11 @@ import com.oracle.truffle.r.runtime.data.RNull;
import com.oracle.truffle.r.runtime.data.RRaw;
import com.oracle.truffle.r.runtime.data.RString;
import com.oracle.truffle.r.runtime.data.RVector;
import com.oracle.truffle.r.runtime.data.model.RAbstractIntVector;
import com.oracle.truffle.r.runtime.data.model.RAbstractLogicalVector;
import com.oracle.truffle.r.runtime.data.model.RAbstractStringVector;
import com.oracle.truffle.r.runtime.data.model.RAbstractVector;
import com.oracle.truffle.r.runtime.ops.na.NACheck;
import com.sun.org.apache.bcel.internal.generic.INSTANCEOF;
@SuppressWarnings("unused")
@RBuiltin(name = "scan", kind = INTERNAL, parameterNames = {"file", "what", "nmax", "sep", "dec", "quote", "skip", "nlines", "na.strings", "flush", "fill", "strip.white", "quiet", "blank.lines.skip",
"multi.line", "comment.char", "allowEscapes", "encoding", "skipNull"}, behavior = IO)
public abstract class Scan extends RBuiltinNode {
......@@ -74,6 +79,7 @@ public abstract class Scan extends RBuiltinNode {
return ((RAbstractVector) castVector.execute(value)).materialize();
}
@SuppressWarnings("unused")
private static class LocalData {
RAbstractStringVector naStrings = null;
boolean quiet = false;
......@@ -181,7 +187,6 @@ public abstract class Scan extends RBuiltinNode {
// TODO: quite a few more things happen in GNU R around connections
data.con = file;
Object result = RNull.instance;
data.save = 0;
try (RConnection openConn = data.con.forceOpen("r")) {
......@@ -199,14 +204,6 @@ public abstract class Scan extends RBuiltinNode {
}
}
private static int firstElementOrNA(RAbstractIntVector nmaxVec) {
return nmaxVec.getLength() == 0 ? RRuntime.INT_NA : nmaxVec.getDataAt(0);
}
private static byte firstElementOrNA(RAbstractLogicalVector flushVec) {
return flushVec.getLength() == 0 ? RRuntime.LOGICAL_NA : flushVec.getDataAt(0);
}
private static int getFirstQuoteInd(String str, char sepChar) {
int quoteInd = str.indexOf(sepChar);
if (quoteInd >= 0) {
......@@ -320,7 +317,8 @@ public abstract class Scan extends RBuiltinNode {
}
}
private RVector scanFrame(RList what, int maxRecords, int maxLines, boolean flush, boolean fill, boolean stripWhite, boolean blSkip, boolean multiLine, LocalData data) throws IOException {
private RVector scanFrame(RList what, int maxRecords, int maxLines, boolean flush, boolean fill, @SuppressWarnings("unused") boolean stripWhite, boolean blSkip, boolean multiLine, LocalData data)
throws IOException {
int nc = what.getLength();
if (nc == 0) {
......@@ -442,7 +440,8 @@ public abstract class Scan extends RBuiltinNode {
}
@TruffleBoundary
private RVector scanVector(RAbstractVector what, int maxItems, int maxLines, boolean flush, boolean stripWhite, boolean blSkip, LocalData data) throws IOException {
private RVector scanVector(RAbstractVector what, int maxItems, int maxLines, @SuppressWarnings("unused") boolean flush, @SuppressWarnings("unused") boolean stripWhite, boolean blSkip,
LocalData data) throws IOException {
int blockSize = maxItems > 0 ? maxItems : SCAN_BLOCKSIZE;
RVector vec = what.createEmptySameType(blockSize, RDataFactory.COMPLETE_VECTOR);
naCheck.enable(true);
......
com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/WhichFunctions.java
+ 101
− 65
View file @ 32a8a3be
......@@ -22,23 +22,28 @@
*/
package com.oracle.truffle.r.nodes.builtin.base;
import static com.oracle.truffle.r.nodes.builtin.CastBuilder.Predef.logicalValue;
import static com.oracle.truffle.r.runtime.builtins.RBehavior.PURE;
import static com.oracle.truffle.r.runtime.builtins.RBuiltinKind.INTERNAL;
import java.util.ArrayList;
import com.oracle.truffle.api.CompilerDirectives.TruffleBoundary;
import com.oracle.truffle.api.dsl.Cached;
import com.oracle.truffle.api.dsl.Specialization;
import com.oracle.truffle.api.profiles.ConditionProfile;
import com.oracle.truffle.api.profiles.LoopConditionProfile;
import com.oracle.truffle.r.nodes.builtin.CastBuilder;
import com.oracle.truffle.r.nodes.builtin.RBuiltinNode;
import com.oracle.truffle.r.nodes.builtin.base.WhichFunctionsFactory.WhichMinMaxNodeGen;
import com.oracle.truffle.r.nodes.profile.VectorLengthProfile;
import com.oracle.truffle.r.runtime.RRuntime;
import com.oracle.truffle.r.runtime.builtins.RBuiltin;
import com.oracle.truffle.r.runtime.data.RAttributeProfiles;
import com.oracle.truffle.r.runtime.data.RDataFactory;
import com.oracle.truffle.r.runtime.data.RIntVector;
import com.oracle.truffle.r.runtime.data.RNull;
import com.oracle.truffle.r.runtime.data.RStringVector;
import com.oracle.truffle.r.runtime.data.model.RAbstractDoubleVector;
import com.oracle.truffle.r.runtime.data.model.RAbstractLogicalVector;
import com.oracle.truffle.r.runtime.nodes.RNode;
import com.oracle.truffle.r.runtime.ops.na.NACheck;
/**
......@@ -49,94 +54,125 @@ public class WhichFunctions {
@RBuiltin(name = "which", kind = INTERNAL, parameterNames = {"x"}, behavior = PURE)
public abstract static class Which extends RBuiltinNode {
private final NACheck naCheck = NACheck.create();
private final RAttributeProfiles attrProfiles = RAttributeProfiles.create();
@Override
protected void createCasts(CastBuilder casts) {
casts.arg("x").mustBe(logicalValue()).asLogicalVector();
}
@Specialization(guards = "!hasNames(x)")
@TruffleBoundary
protected RIntVector which(RAbstractLogicalVector x) {
ArrayList<Integer> w = new ArrayList<>();
for (int i = 0; i < x.getLength(); i++) {
@Specialization
protected RIntVector which(RAbstractLogicalVector x,
@Cached("create()") VectorLengthProfile lengthProfile,
@Cached("createCountingProfile()") LoopConditionProfile loopProfile,
@Cached("createBinaryProfile()") ConditionProfile hasNamesProfile,
@Cached("create()") RAttributeProfiles attrProfiles,
@Cached("create()") NACheck naCheck) {
int length = lengthProfile.profile(x.getLength());
loopProfile.profileCounted(length);
// determine the length of the result
int resultLength = 0;
for (int i = 0; loopProfile.inject(i < length); i++) {
if (x.getDataAt(i) == RRuntime.LOGICAL_TRUE) {
w.add(i);
resultLength++;
}
}
int[] result = new int[w.size()];
for (int i = 0; i < result.length; i++) {
result[i] = w.get(i) + 1;
}
return RDataFactory.createIntVector(result, RDataFactory.COMPLETE_VECTOR);
}
@Specialization(guards = "hasNames(x)")
@TruffleBoundary
protected RIntVector whichNames(RAbstractLogicalVector x) {
ArrayList<Integer> w = new ArrayList<>();
ArrayList<String> n = new ArrayList<>();
RStringVector oldNames = x.getNames(attrProfiles);
naCheck.enable(oldNames);
for (int i = 0; i < x.getLength(); i++) {
// collect result indexes
int[] result = new int[resultLength];
int pos = 0;
for (int i = 0; loopProfile.inject(i < length); i++) {
if (x.getDataAt(i) == RRuntime.LOGICAL_TRUE) {
w.add(i);
String s = oldNames.getDataAt(i);
naCheck.check(s);
n.add(s);
result[pos++] = i + 1;
}
}
int[] result = new int[w.size()];
for (int i = 0; i < result.length; i++) {
result[i] = w.get(i) + 1;
RStringVector names = x.getNames(attrProfiles);
if (hasNamesProfile.profile(names != null)) {
// collect result names
String[] resultNames = new String[resultLength];
naCheck.enable(names);
pos = 0;
for (int i = 0; i < x.getLength(); i++) {
if (x.getDataAt(i) == RRuntime.LOGICAL_TRUE) {
String name = names.getDataAt(i);
naCheck.check(name);
resultNames[pos++] = name;
}
}
return RDataFactory.createIntVector(result, RDataFactory.COMPLETE_VECTOR, RDataFactory.createStringVector(resultNames, naCheck.neverSeenNA()));
} else {
return RDataFactory.createIntVector(result, RDataFactory.COMPLETE_VECTOR);
}
String[] names = new String[n.size()];
return RDataFactory.createIntVector(result, RDataFactory.COMPLETE_VECTOR, RDataFactory.createStringVector(n.toArray(names), naCheck.neverSeenNA()));
}
protected boolean hasNames(RAbstractLogicalVector x) {
return x.getNames(attrProfiles) != null;
}
}
@RBuiltin(name = "which.max", kind = INTERNAL, parameterNames = {"x"}, behavior = PURE)
public abstract static class WhichMax extends RBuiltinNode {
@Override
protected void createCasts(CastBuilder casts) {
casts.toDouble(0);
public abstract static class WhichMax {
private WhichMax() {
// private
}
@Specialization
protected int which(RAbstractDoubleVector x) {
double max = x.getDataAt(0);
int maxIndex = 0;
for (int i = 0; i < x.getLength(); i++) {
if (x.getDataAt(i) > max) {
max = x.getDataAt(i);
maxIndex = i;
}
}
return maxIndex + 1;
public static WhichMinMax create(RNode[] arguments) {
return WhichMinMaxNodeGen.create(true, arguments);
}
}
@RBuiltin(name = "which.min", kind = INTERNAL, parameterNames = {"x"}, behavior = PURE)
public abstract static class WhichMin extends RBuiltinNode {
public abstract static class WhichMin {
private WhichMin() {
// private
}
public static WhichMinMax create(RNode[] arguments) {
return WhichMinMaxNodeGen.create(false, arguments);
}
}
public abstract static class WhichMinMax extends RBuiltinNode {
private final boolean isMax;
protected WhichMinMax(boolean isMax) {
this.isMax = isMax;
}
@Override
protected void createCasts(CastBuilder casts) {
casts.toDouble(0);
casts.arg(0, "x").asDoubleVector(true, false, false);
}
@Specialization
protected int which(RAbstractDoubleVector x) {
double minimum = x.getDataAt(0);
int minIndex = 0;
for (int i = 0; i < x.getLength(); i++) {
if (x.getDataAt(i) < minimum) {
minimum = x.getDataAt(i);
minIndex = i;
protected RIntVector which(RAbstractDoubleVector x,
@Cached("create()") VectorLengthProfile lengthProfile,
@Cached("createCountingProfile()") LoopConditionProfile loopProfile,
@Cached("createBinaryProfile()") ConditionProfile isNaNProfile,
@Cached("createBinaryProfile()") ConditionProfile hasNamesProfile,
@Cached("create()") RAttributeProfiles attrProfiles) {
int length = lengthProfile.profile(x.getLength());
loopProfile.profileCounted(length);
double extreme = Double.NaN;
int extremeIndex = -1;
for (int i = 0; loopProfile.inject(i < length); i++) {
double d = x.getDataAt(i);
// inverted comparison to pass when extreme is NaN
if (!Double.isNaN(d) && (isMax ? !(d <= extreme) : !(d >= extreme))) {
extreme = x.getDataAt(i);
extremeIndex = i;
}
}
return minIndex + 1;
if (isNaNProfile.profile(extremeIndex == -1)) {
return RDataFactory.createEmptyIntVector();
}
RStringVector names = x.getNames(attrProfiles);
if (hasNamesProfile.profile(names != null)) {
// collect result names
RStringVector resultNames = RDataFactory.createStringVectorFromScalar(names.getDataAt(extremeIndex));
return RDataFactory.createIntVector(new int[]{extremeIndex + 1}, true, resultNames);
} else {
return RDataFactory.createIntVectorFromScalar(extremeIndex + 1);
}
}
@Specialization
protected RIntVector which(@SuppressWarnings("unused") RNull x) {
return RDataFactory.createEmptyIntVector();
}
}
}
com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_whichmax.java
+ 5
− 6
View file @ 32a8a3be
......@@ -24,7 +24,7 @@ public class TestBuiltin_whichmax extends TestBase {
@Test
public void testwhichmax2() {
assertEval(Ignored.Unknown, "argv <- list(structure(c(TRUE, FALSE), .Names = c('d', 'I(as.numeric(d)^2)'))); .Internal(which.max(argv[[1]]))");
assertEval("argv <- list(structure(c(TRUE, FALSE), .Names = c('d', 'I(as.numeric(d)^2)'))); .Internal(which.max(argv[[1]]))");
}
@Test
......@@ -34,23 +34,22 @@ public class TestBuiltin_whichmax extends TestBase {
@Test
public void testwhichmax4() {
assertEval(Ignored.Unknown,
"argv <- list(structure(c(NA, 87, 82, 75, 63, 50, 43, 32, 35, 60, 54, 55, 36, 39, NA, NA, 69, 57, 57, 51, 45, 37, 46, 39, 36, 24, 32, 23, 25, 32, NA, 32, 59, 74, 75, 60, 71, 61, 71, 57, 71, 68, 79, 73, 76, 71, 67, 75, 79, 62, 63, 57, 60, 49, 48, 52, 57, 62, 61, 66, 71, 62, 61, 57, 72, 83, 71, 78, 79, 71, 62, 74, 76, 64, 62, 57, 80, 73, 69, 69, 71, 64, 69, 62, 63, 46, 56, 44, 44, 52, 38, 46, 36, 49, 35, 44, 59, 65, 65, 56, 66, 53, 61, 52, 51, 48, 54, 49, 49, 61, NA, NA, 68, 44, 40, 27, 28, 25, 24, 24), .Tsp = c(1945, 1974.75, 4), class = 'ts')); .Internal(which.max(argv[[1]]))");
assertEval("argv <- list(structure(c(NA, 87, 82, 75, 63, 50, 43, 32, 35, 60, 54, 55, 36, 39, NA, NA, 69, 57, 57, 51, 45, 37, 46, 39, 36, 24, 32, 23, 25, 32, NA, 32, 59, 74, 75, 60, 71, 61, 71, 57, 71, 68, 79, 73, 76, 71, 67, 75, 79, 62, 63, 57, 60, 49, 48, 52, 57, 62, 61, 66, 71, 62, 61, 57, 72, 83, 71, 78, 79, 71, 62, 74, 76, 64, 62, 57, 80, 73, 69, 69, 71, 64, 69, 62, 63, 46, 56, 44, 44, 52, 38, 46, 36, 49, 35, 44, 59, 65, 65, 56, 66, 53, 61, 52, 51, 48, 54, 49, 49, 61, NA, NA, 68, 44, 40, 27, 28, 25, 24, 24), .Tsp = c(1945, 1974.75, 4), class = 'ts')); .Internal(which.max(argv[[1]]))");
}
@Test
public void testwhichmax5() {
assertEval(Ignored.Unknown, "argv <- list(NULL); .Internal(which.max(argv[[1]]))");
assertEval("argv <- list(NULL); .Internal(which.max(argv[[1]]))");
}
@Test
public void testwhichmax6() {
assertEval(Ignored.Unknown, "argv <- list(list()); .Internal(which.max(argv[[1]]))");
assertEval("argv <- list(list()); .Internal(which.max(argv[[1]]))");
}
@Test
public void testwhichmax8() {
assertEval(Ignored.Unknown, "argv <- structure(list(x = c(NA, NA)), .Names = 'x');do.call('which.max', argv)");
assertEval("argv <- structure(list(x = c(NA, NA)), .Names = 'x');do.call('which.max', argv)");
}
@Test
......
com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_whichmin.java
+ 7
− 11
View file @ 32a8a3be
......@@ -19,41 +19,37 @@ public class TestBuiltin_whichmin extends TestBase {
@Test
public void testwhichmin1() {
assertEval(Ignored.Unknown,
"argv <- list(structure(c(345595, 172795, 69115, 34555, 23035, 11515, 5755, 2875, 1147, 571, 379, 187, 91, 27, 11, 3, 1, 3, 4.42857142857143, 4.73716632443532, 4.86858316221766, 4.95619438740589, 4.97809719370294, 4.98904859685147, 4.99452429842574, 4.99780971937029, 4.99890485968515, 4.99945242984257, 4.99978097193703, 4.99989048596851, 4.99994524298426, 4.9999780971937, 4.99998904859685), .Names = c('1 sec', '2 secs', '5 secs', '10 secs', '15 secs', '30 secs', '1 min', '2 mins', '5 mins', '10 mins', '15 mins', '30 mins', '1 hour', '3 hours', '6 hours', '12 hours', '1 DSTday', '2 DSTdays', '1 week', 'halfmonth', '1 month', '3 months', '6 months', '1 year', '2 years', '5 years', '10 years', '20 years', '50 years', '100 years', '200 years', '500 years', '1000 years'))); .Internal(which.min(argv[[1]]))");
assertEval("argv <- list(structure(c(345595, 172795, 69115, 34555, 23035, 11515, 5755, 2875, 1147, 571, 379, 187, 91, 27, 11, 3, 1, 3, 4.42857142857143, 4.73716632443532, 4.86858316221766, 4.95619438740589, 4.97809719370294, 4.98904859685147, 4.99452429842574, 4.99780971937029, 4.99890485968515, 4.99945242984257, 4.99978097193703, 4.99989048596851, 4.99994524298426, 4.9999780971937, 4.99998904859685), .Names = c('1 sec', '2 secs', '5 secs', '10 secs', '15 secs', '30 secs', '1 min', '2 mins', '5 mins', '10 mins', '15 mins', '30 mins', '1 hour', '3 hours', '6 hours', '12 hours', '1 DSTday', '2 DSTdays', '1 week', 'halfmonth', '1 month', '3 months', '6 months', '1 year', '2 years', '5 years', '10 years', '20 years', '50 years', '100 years', '200 years', '500 years', '1000 years'))); .Internal(which.min(argv[[1]]))");
}
@Test
public void testwhichmin2() {
assertEval(Ignored.Unknown,
"argv <- list(structure(c(295, 145, 55, 25, 15, 5, 0, 2.5, 4, 4.5, 4.66666666666667, 4.83333333333333, 4.91666666666667, 4.97222222222222, 4.98611111111111, 4.99305555555556, 4.99652777777778, 4.99826388888889, 4.99950396825397, 4.99977184576774, 4.99988592288387, 4.99996197429462, 4.99998098714731, 4.99999049357366, 4.99999524678683, 4.99999809871473, 4.99999904935737, 4.99999952467868, 4.99999980987147, 4.99999990493574, 4.99999995246787, 4.99999998098715, 4.99999999049357), .Names = c('1 sec', '2 secs', '5 secs', '10 secs', '15 secs', '30 secs', '1 min', '2 mins', '5 mins', '10 mins', '15 mins', '30 mins', '1 hour', '3 hours', '6 hours', '12 hours', '1 DSTday', '2 DSTdays', '1 week', 'halfmonth', '1 month', '3 months', '6 months', '1 year', '2 years', '5 years', '10 years', '20 years', '50 years', '100 years', '200 years', '500 years', '1000 years'))); .Internal(which.min(argv[[1]]))");
assertEval("argv <- list(structure(c(295, 145, 55, 25, 15, 5, 0, 2.5, 4, 4.5, 4.66666666666667, 4.83333333333333, 4.91666666666667, 4.97222222222222, 4.98611111111111, 4.99305555555556, 4.99652777777778, 4.99826388888889, 4.99950396825397, 4.99977184576774, 4.99988592288387, 4.99996197429462, 4.99998098714731, 4.99999049357366, 4.99999524678683, 4.99999809871473, 4.99999904935737, 4.99999952467868, 4.99999980987147, 4.99999990493574, 4.99999995246787, 4.99999998098715, 4.99999999049357), .Names = c('1 sec', '2 secs', '5 secs', '10 secs', '15 secs', '30 secs', '1 min', '2 mins', '5 mins', '10 mins', '15 mins', '30 mins', '1 hour', '3 hours', '6 hours', '12 hours', '1 DSTday', '2 DSTdays', '1 week', 'halfmonth', '1 month', '3 months', '6 months', '1 year', '2 years', '5 years', '10 years', '20 years', '50 years', '100 years', '200 years', '500 years', '1000 years'))); .Internal(which.min(argv[[1]]))");
}
@Test
public void testwhichmin3() {
assertEval(Ignored.Unknown, "argv <- list(NULL); .Internal(which.min(argv[[1]]))");
assertEval("argv <- list(NULL); .Internal(which.min(argv[[1]]))");
}
@Test
public void testwhichmin4() {
assertEval(Ignored.Unknown, "argv <- list(list()); .Internal(which.min(argv[[1]]))");
assertEval("argv <- list(list()); .Internal(which.min(argv[[1]]))");
}
@Test
public void testwhichmin5() {
assertEval(Ignored.Unknown,
"argv <- list(c(NA, 0.951840581382975, 0.805577027554469, 0.663985017923499, 0.53717416750558, 0.496765449963868, 0.472038350505409, 0.463306413812878, 0.485896454097402, 0.520777596351646, 0.524391122960607, 0.492063804965834, 0.513821989320989, 0.521702559081969, 0.533525525673351)); .Internal(which.min(argv[[1]]))");
assertEval("argv <- list(c(NA, 0.951840581382975, 0.805577027554469, 0.663985017923499, 0.53717416750558, 0.496765449963868, 0.472038350505409, 0.463306413812878, 0.485896454097402, 0.520777596351646, 0.524391122960607, 0.492063804965834, 0.513821989320989, 0.521702559081969, 0.533525525673351)); .Internal(which.min(argv[[1]]))");
}
@Test
public void testwhichmin6() {
assertEval(Ignored.Unknown,
"argv <- list(structure(c(NA, 87, 82, 75, 63, 50, 43, 32, 35, 60, 54, 55, 36, 39, NA, NA, 69, 57, 57, 51, 45, 37, 46, 39, 36, 24, 32, 23, 25, 32, NA, 32, 59, 74, 75, 60, 71, 61, 71, 57, 71, 68, 79, 73, 76, 71, 67, 75, 79, 62, 63, 57, 60, 49, 48, 52, 57, 62, 61, 66, 71, 62, 61, 57, 72, 83, 71, 78, 79, 71, 62, 74, 76, 64, 62, 57, 80, 73, 69, 69, 71, 64, 69, 62, 63, 46, 56, 44, 44, 52, 38, 46, 36, 49, 35, 44, 59, 65, 65, 56, 66, 53, 61, 52, 51, 48, 54, 49, 49, 61, NA, NA, 68, 44, 40, 27, 28, 25, 24, 24), .Tsp = c(1945, 1974.75, 4), class = 'ts')); .Internal(which.min(argv[[1]]))");
assertEval("argv <- list(structure(c(NA, 87, 82, 75, 63, 50, 43, 32, 35, 60, 54, 55, 36, 39, NA, NA, 69, 57, 57, 51, 45, 37, 46, 39, 36, 24, 32, 23, 25, 32, NA, 32, 59, 74, 75, 60, 71, 61, 71, 57, 71, 68, 79, 73, 76, 71, 67, 75, 79, 62, 63, 57, 60, 49, 48, 52, 57, 62, 61, 66, 71, 62, 61, 57, 72, 83, 71, 78, 79, 71, 62, 74, 76, 64, 62, 57, 80, 73, 69, 69, 71, 64, 69, 62, 63, 46, 56, 44, 44, 52, 38, 46, 36, 49, 35, 44, 59, 65, 65, 56, 66, 53, 61, 52, 51, 48, 54, 49, 49, 61, NA, NA, 68, 44, 40, 27, 28, 25, 24, 24), .Tsp = c(1945, 1974.75, 4), class = 'ts')); .Internal(which.min(argv[[1]]))");
}
@Test
public void testwhichmin8() {
assertEval(Ignored.Unknown, "argv <- structure(list(x = c(NA, NA, Inf)), .Names = 'x');do.call('which.min', argv)");
assertEval("argv <- structure(list(x = c(NA, NA, Inf)), .Names = 'x');do.call('which.min', argv)");
}
@Test
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment