Displaying 2 results from an estimated 2 matches for "setrealsxp".
2006 Apr 12
0
headerfile translation to Delphi (Pascal) completed
...egin
_ab[i + j]:= _ab[i + j] + _a[i]*_b[j]
end {for};
end {for};
end {ConvC};
{ ConvCallRInternals }
function ConvCallRInternals( _a, _b: pSExp ): pSExp; cdecl;
var
i, j, na, nb, nab: aRLen;
pxa, pxb, pxab: pDoubleArr;
begin
_a:= riProtect( riCoerceVector( _a, setRealSxp ) );
_b:= riProtect( riCoerceVector( _b, setRealSxp ) );
na:= riLength( _a ); nb:= riLength( _b ); nab:= na + nb - 1;
result:= riProtect( riAllocVector( setRealSxp, nab ) );
pxa:= riReal( _a ); pxb:= riReal( _b );
pxab:= riReal( result );
for i := 0 to nab - 1 do pxab[i]:=...
2006 Oct 16
6
NULL or NA for missing function arguments?
Hi,
I am troubled by the use of NULL or NA to indicate
missing/non-specified function arguments.
In the R code that I have looked at, it seems that both forms are used
(NULL seems to be used more often though). Sometimes both variants are
in the same declaration, e.g.
format.default <-
function(x, trim = FALSE, digits = NULL, nsmall = 0,
justify = c("left",