Révision 3764

TXM/trunk/bundles/org.txm.ca.core/src/org/txm/ca/core/chartsengine/r/REigenvaluesChartCreator.java (revision 3764)
53 53 
		xLabels.append("c("); //$NON-NLS-1$
54 54 
		REXP sv;
55 55 
		try {
56 
			sv = RWorkspace.getRWorkspaceInstance().eval("length(" + ca.getSymbol() + "$eig$eigenvalue)");  //$NON-NLS-1$ $NON-NLS-2$
56 
			sv = RWorkspace.getRWorkspaceInstance().eval("length(" + ca.getSymbol() + "$eig[,1])");  //$NON-NLS-1$ $NON-NLS-2$
57 57 
			int ncol = sv.asInteger();
58 58
59 59 
			for (int i = 0, c = ncol; i < c; i++) {
......
64 64 
			}
65 65 
			xLabels.append(")"); //$NON-NLS-1$
66 66
67 
			String cmd = "tmpY <- " + ca.getSymbol() + "$eig$eigenvalue[1:" + ncol + "];\n"; //$NON-NLS-1$ //$NON-NLS-2$ //$NON-NLS-3$
67 
			String cmd = "tmpY <- " + ca.getSymbol() + "$eig[,1];\n"; //$NON-NLS-1$ //$NON-NLS-2$ //$NON-NLS-3$
68 68 
			cmd += "barplot(tmpY, main=\"" //$NON-NLS-1$
69 69 
					+ CACoreMessages.eigenvalues + "\", ylab=\"" + //$NON-NLS-1$
70 70 
					CACoreMessages.eigenvalue + "\", xlab=\"" + //$NON-NLS-1$
TXM/trunk/bundles/org.txm.ca.core/src/org/txm/ca/core/statsengine/r/functions/FactoMineRCA.java (revision 3764)
495 495 
	public double[] getEigenvalues() throws RWorkspaceException, REXPMismatchException {
496 496 
		if (eigenvalues == null) {
497 497 
			// try {
498 
			REXP sv = rw.eval(symbol + "$eig$eigenvalue"); //$NON-NLS-1$
498 
			REXP sv = rw.eval(symbol + "$eig[,1]"); //$NON-NLS-1$
499 499 
			eigenvalues = RWorkspace.toDouble(sv);
500 500 
			// remove last singular value
501 501 
			if (eigenvalues.length == this.getColumnsCount()) {
......
519 519 
	 */
520 520 
	@Override
521 521 
	public String getEigenvaluesRSymbol() throws StatException {
522 
		return symbol + "$eig$eigenvalue";
522 
		return symbol + "$eig[,1]";
523 523 
	}
524 524
525 525 
	/*

Formats disponibles : Unified diff