Displaying 9 results from an estimated 9 matches for "call_dqags".
2005 May 09
2
use "integrate" for functions defined in C, not R
...nction "Cintfn" in
place of "Rintfn"
double f1(double x){ return(x);}
static void Cintfn(double *x, int n)
{
int i;
for(i = 0; i < n; i++)
x[i] = f1(x[i]);
return;
}
3. Similar to "call_dqags", I define a C function "my_call_dqags" that
has it's own parameters of "lower, upper" and etc define in C, instead of
parsing from R. And I call
Rdqags(Cintfn,
&lower, &upper, &epsabs, &epsrel, &result,
&abserr, &neval,...
2004 Jul 08
1
(PR#7070)
...1.5e-05
> pnorm(1,-1,7)
[1] 0.6124515
> pnorm(1,0,1)
[1] 0.8413447
Example 2
*********
fex <- function(x, v, M)
{
(x - t(v) %*% M %*% v)^2
}
debug(integrate)
integrate(fex,lower=3D-3,upper=3D7,subdivisions=3D100,c(1,2,3),matrix(2,3=
,3))
results in
.
.
.
debug: wk <- .External("call_dqags", ff, rho =3D environment(), =
as.double(lower),
as.double(upper), as.double(abs.tol), as.double(rel.tol),
limit =3D limit, PACKAGE =3D "base")
Browse[1]>
Error in t(v) : Argument "v" is missing, with no default
2012 Sep 25
1
how to pass a function to a function inside a function
..., ...)
limit <- as.integer(subdivisions)
if (limit < 1 || (abs.tol <= 0 && rel.tol < max(50 *
.Machine$double.eps,
5e-29)))
stop("invalid parameter values")
if (is.finite(lower) && is.finite(upper)) {
wk <- .External("call_dqags", ff, rho = environment(),
as.double(lower), as.double(upper), as.double(abs.tol),
as.double(rel.tol), limit = limit, PACKAGE = "base")
}
else {
if (is.na(lower) || is.na(upper))
stop("a limit is missing")
if (is.f...
2004 Jul 08
0
a not-a-bug report on integrate (PR#7070)
...> Example 2
> *********
> fex <- function(x, v, M)
> {
> (x - t(v) %*% M %*% v)^2
> }
> debug(integrate)
> integrate(fex,lower=3D-3,upper=3D7,subdivisions=3D100,c(1,2,3),matrix(2,3=
> ,3))
>
> results in
> .
> .
> .
> debug: wk <- .External("call_dqags", ff, rho =3D environment(), =
> as.double(lower),
> as.double(upper), as.double(abs.tol), as.double(rel.tol),
> limit =3D limit, PACKAGE =3D "base")
> Browse[1]>
> Error in t(v) : Argument "v" is missing, with no default
>
> _______________...
2007 Mar 08
2
integrate function (PR#9557)
Full_Name: Bert De Boeck
Version: R 2.2.0
OS: Windows
Submission from: (NULL) (157.193.193.152)
I think there is a bug when using integrate for integrating a function which is
0 in a whole sub-interval. For example:
#define uniform function
f<-function(x){ifelse(x<1,0,ifelse(x<3,1,0))}
#this is the correct integral
integrate(f,-10,10)
#here there is a problem
integrate(f,-50,50)
2007 Jan 30
1
Solaris 10 compilation issue
...platform.o
R_getProcTime memory.o
R_ExpandFileName Renviron.o
R_OpenInitFile main.o
R_getClockIncrement eval.o
R_ReadConsole connections.o
Rf_initialize_R Rmain.o
call_dqags registration.o
call_dqagi registration.o
deflateEnd connections.o
ptr_R_EditFile ../unix/libunix.a(edit.o)
inflateEnd connections.o
Rf_lchoose arithmetic...
2007 Jan 30
1
Difficulty with compiling R-2.4.1 on solaris 10
...platform.o
R_getProcTime memory.o
R_ExpandFileName Renviron.o
R_OpenInitFile main.o
R_getClockIncrement eval.o
R_ReadConsole connections.o
Rf_initialize_R Rmain.o
call_dqags registration.o
call_dqagi registration.o
deflateEnd connections.o
ptr_R_EditFile ../unix/libunix.a(edit.o)
inflateEnd connections.o
Rf_lchoose arithmetic...
2007 Jan 30
0
R Compiling issue
...Rf_qt arithmetic.o
Rf_rf random.o
Rf_rt random.o
chol_ registration.o
gzeof connections.o
do_syssleep names.o
R_EditFiles platform.o
R_getProcTime memory.o
R_ExpandFileName Renviron.o
R_OpenInitFile main.o
R_getClockIncrement eval.o
R_ReadConsole connections.o
Rf_initialize_R Rmain.o
call_dqags registration.o
call_dqagi registration.o
deflateEnd connections.o
ptr_R_EditFile ../unix/libunix.a(edit.o)
inflateEnd connections.o
Rf_lchoose arithmetic.o
R_ChooseFile platform.o
lminfl_ registration.o
deflateInit2_ connections.o
N01_kind RNG.o
do_machine names.o
libintl_dcigettext ../e...
2007 Jan 30
0
Issue with compiling R on solaris 10
...platform.o
R_getProcTime memory.o
R_ExpandFileName Renviron.o
R_OpenInitFile main.o
R_getClockIncrement eval.o
R_ReadConsole connections.o
Rf_initialize_R Rmain.o
call_dqags registration.o
call_dqagi registration.o
deflateEnd connections.o
ptr_R_EditFile ../unix/libunix.a(edit.o)
inflateEnd connections.o
Rf_lchoose arithmetic...