Revision 1775

tmp/org.txm.statsengine.r.core/src/org/txm/statsengine/r/core/RWorkspace.java (revision 1775)
1527 1527
			} 
1528 1528
			else if (rexp instanceof org.rosuda.REngine.REXPDouble) {
1529 1529
				if (rexp.isVector()) {
1530
					return rexp.asDouble();
1530
					return Arrays.toString(rexp.asDoubles());
1531 1531
				}
1532 1532
				else {
1533
					return Arrays.toString(rexp.asDoubles());
1533
					return rexp.asDouble();
1534 1534
				}
1535 1535
			}
1536 1536
			else if (rexp instanceof org.rosuda.REngine.REXPInteger) {
1537 1537
				if (rexp.isVector()) {
1538
					return rexp.asInteger();
1538
					return Arrays.toString(rexp.asIntegers());
1539 1539
				}
1540 1540
				else {
1541
					return Arrays.toString(rexp.asIntegers());
1541
					return rexp.asInteger();
1542 1542
				}
1543 1543
			}
1544 1544
			else if (rexp instanceof org.rosuda.REngine.REXPNull) {

Also available in: Unified diff