Examples of RList

Examples of org.rosuda.REngine.RList

    return map;    
  }


  /** Convert from R expression to Java array. */
  private static Object asArray(REXP rexp, Class<?> type) throws REXPMismatchException {
    RList rlist = rexp.asList();
    int len = rlist.size();
    Object array = Array.newInstance(type, len);
    for(int i = 0; i < len; ++i) {
      Object val = rexp2jobj(rlist.at(i), type);
      Array.set(array, i, val);
    }
    return array;
  }

View Full Code Here

Examples of org.rosuda.REngine.RList


  /** Convert from R expression to Java RObject. */
  @SuppressWarnings("unused")
  private static Object asRObject(REXP rexp, Class<?> type) {
    try {
      RList rlist = rexp.asList();
      Object obj = type.newInstance();
      if(rlist.isNamed()) {
        for(int i = 0; i < rlist.size(); ++i) {
          String name = rlist.names.get(i).toString();
          Field fld = type.getField(name);
          REXP value = (REXP) rlist.get(i);
          Object val = rexp2jobj(value, fld.getType());
          fld.set(obj, val);
        }
      }
      return obj;

View Full Code Here

Examples of org.rosuda.REngine.RList

      Map<String, PropertyDescriptor> map =
        new HashMap<String, PropertyDescriptor>(props.length * 2);
      for(PropertyDescriptor prop : props) {
        map.put(prop.getName(), prop);
      }
      RList rlist = rexp.asList();
      Object obj = type.newInstance();
      if(rlist.isNamed()) {
        for(int i = 0; i < rlist.size(); ++i) {
          String name = rlist.names.get(i).toString();
          PropertyDescriptor prop = map.get(name);
          Method method = prop.getWriteMethod();
          REXP value = (REXP) rlist.get(i);
          Object val = rexp2jobj(value, prop.getPropertyType());
          method.invoke(obj, val);
        }
      }
      return obj;

View Full Code Here

Examples of org.rosuda.REngine.RList

    for(int i = 0; i < nrow; ++i) {
      for(int j = 0; j < ncol; ++j) {
        ret[j * nrow + i] = mat[i][j];
      }
    }
    RList rlist = new RList();
    rlist.put("dim", new REXPInteger(new int[] { nrow, ncol }));
    REXPList attrs = new REXPList(rlist);
    return new REXPDouble(ret, attrs);
  }

View Full Code Here

Examples of org.rosuda.REngine.RList

    return namevalues2rexp(names, rexps);
  }


  /** Convert name value pairs to R expression. */
  private static REXP namevalues2rexp(String[] names, REXP[] rexps) {
    return new REXPGenericVector(new RList(rexps, names));    
  }

View Full Code Here

Examples of org.rosuda.REngine.RList

  private static REXP list2rexp(Collection<?> list) {
    List<REXP> rexps = new ArrayList<REXP>(list.size());
    for(Object o : list) {
      rexps.add(jobj2rexp(o));
    }
    return new REXPGenericVector(new RList(rexps));
  }

View Full Code Here

Examples of org.rosuda.REngine.RList

    }


    private void handleList(REXPGenericVector list, StringBuffer sb,
        boolean isTerminate) throws REXPMismatchException,
        HiveException {
      RList rlist = list.asList();


      if (!isTerminate)
        sb.append("list(");


      for (int i = 0; i < rlist.size(); i++) {


        Object result = rlist.get(i);


        if (result instanceof REXPVector) {


          REXPVector vector = (REXPVector) result;
          handleVector(vector, sb, isTerminate);


        } else if (result instanceof REXPString) {
          sb.append("'" + ((REXPString) result).asString() + "'");
        } else if (result instanceof REXPDouble) {
          sb.append(Double.toString(((REXPDouble) result).asDouble()));
        } else if (result instanceof REXPInteger) {
          sb.append(Integer.toString(((REXPInteger) result)
              .asInteger()));
        } else {
          throw new HiveException(
              "only support vector, string, double and integer in List");
        }


        if (i < (rlist.size() - 1))
          sb.append(",");
      }


      if (!isTerminate)
        sb.append(")");

View Full Code Here

0 1

TOP

All source code are property of their respective owners. Java is a trademark of Sun Microsystems, Inc and owned by ORACLE Inc. Contact coftware#gmail.com.