search for: tgrid

Hi when I call the function below in R, i get the error: Object 'pairlist' can't be converted to 'double'. #include <R.h> #include <Rdefines.h> #include <Rmath.h> SEXP CSimPoisson(SEXP lambda, SEXP tgrid, SEXP T2M, SEXP Ni, SEXP NT) { double sign, EVar; double *xlambda, *xtgrid, *xT2M, *xNi, *xNT, *xtau; SEXP tau; int ltgrid =0; int i = 0; int j = 0; sign = 0; EVar = 0; ltgrid = LENGTH(tgrid); PROTECT(lambda = AS_NUMERIC(lambda)); PROTECT(tgrid = AS_NUMERIC(tgrid)); PROTECT(T2M = AS_...

.../usr/local/lib/ruby/gems/1.8/gems/wxruby2-preview-0.0.38-i686- darwin8.4.1/lib/wx/classes/app.rb:10: warning: method redefined; discarding old on_assert ./grid.rb:10: [BUG] Bus Error ruby 1.8.4 (2005-12-24) [i686-darwin8.8.3] Abort trap --------------- The code is below, line 10 is the call to tgrid = Wx::Grid.new(frame, -1), what the heck am I missing? The bigdemo works (although it usually crashes after I''ve run a three or four of the demos) so I think that everything''s installed properly on my system. I copied the code below from the tutorial---------- #!/usr/bin/...

Hi I want to write a C function for the R Code below and call it with .Call: SimPoisson <- function(lambda,tgrid,T2M) #Simulation eines Poissonprozesses { NT <- 0 Ni <- rep(0,length(tgrid)) tau <- 0 sign <- 0 if(lambda != 0) { i=1 j=1 while (1) { EVar <- rexp(1,lambda) sign <- sign + EVar if (sign > T2M) { break } tau[i] <- sign i = i+1 for...