Displaying 3 results from an estimated 3 matches for "iscomplex".
2019 Apr 05
2
patch to improve matrix conformability error message
...e arguments of dimension (%d, %d) and (%d, %d)"),
+ nrx, ncx, nry, ncy);
}
else {
if (ncx != ncy)
- error(_("non-conformable arguments"));
+ error(_("non-conformable arguments of dimension (%d, %d) and (%d, %d)"),
+ nrx, ncx, nry, ncy);
}
if (isComplex(CAR(args)) || isComplex(CADR(args)))
--
2.19.1
2019 Apr 30
0
patch to improve matrix conformability error message
...%d, %d)"),
>+ nrx, ncx, nry, ncy);
> }
> else {
> if (ncx != ncy)
>- error(_("non-conformable arguments"));
>+ error(_("non-conformable arguments of dimension (%d, %d) and (%d, %d)"),
>+ nrx, ncx, nry, ncy);
> }
>
> if (isComplex(CAR(args)) || isComplex(CADR(args)))
>--
>2.19.1
>
>______________________________________________
>R-devel at r-project.org mailing list
>https://stat.ethz.ch/mailman/listinfo/r-devel
>
2008 Apr 05
2
Adding a Matrix Exponentiation Operator
...=0; j < nrows; ++j)
REAL(b)[i * nrows + j] = REAL(a)[i * nrows + j];
}
SEXP do_matexp(SEXP call, SEXP op, SEXP args, SEXP rho)
{
int nrows, ncols;
SEXP matrix, tmp, dims, dims2;
SEXP x, y, x_, x__;
int i,j,e,mode;
// Still need to fix full complex support
mode = isComplex(CAR(args)) ? CPLXSXP : REALSXP;
SETCAR(args, coerceVector(CAR(args), mode));
x = CAR(args);
y = CADR(args);
dims = getAttrib(x, R_DimSymbol);
nrows = INTEGER(dims)[0];
ncols = INTEGER(dims)[1];
if (nrows != ncols)
error(_("can only raise square matrix to...