Displaying 2 results from an estimated 2 matches for "riunprotect".
Did you mean:
rf_unprotect
2006 Apr 25
1
protection needed?
..._colHeader, _skipLines: pSExp ): pSExp;
cdecl;".
I did:
skipLines:= riInteger( riCoerceVector( _skipLines, setIntSxp ) )[0];
but am unsure if I would have to something along:
skipInt:= riProtect( riCoerceVector( _skipLines, setIntSxp ) );
skipLines:= riInteger( skipInt )[0];
riUnprotect( 1 );
According to the manual the second is probably more appropriate but as
I found some places in the R sources where no protection was made, I
decided to ask. Thanks a lot !
--
Regards,
Hans-Peter
2006 Apr 12
0
headerfile translation to Delphi (Pascal) completed
...r( setRealSxp, nab ) );
pxa:= riReal( _a ); pxb:= riReal( _b );
pxab:= riReal( result );
for i := 0 to nab - 1 do pxab[i]:= 0.0;
for i := 0 to na - 1 do begin
for j := 0 to nb - 1 do begin
pxab[i + j]:= pxab[i + j] + pxa[i]*pxb[j]
end {for};
end {for};
riUnprotect( 3 );
end {ConvCallRInternals};
{ ConvCallRDefines }
function ConvCallRDefines( _a, _b: pSExp ): pSExp; cdecl;
var
i, j, na, nb, nab: integer;
pxa, pxb, pxab: pDoubleArr;
ab: pSExp;
begin
_a:= riProtect( rdAsNumeric( _a ) );
_b:= riProtect( rdAsNumeric( _b ) );
na:=...