hi,
I have a problem when I do my research using S.
how can I get access to the C code file for dynloading into S.
for example, in the library(wavethresh),
under wd there is
wavelet.decomposition <- .C("wavedecomp", C = as.double(C),
LengthC = as.integer(fl.dbase$ntotal), D = as.double(rep(0,
fl.dbase$ntotal.d)), LengthD = as.integer(fl.dbase$ntotal.d),
H = as.double(filter$H), LengthH = as.integer(length(filter$H)),
nlevels = as.integer(nlevels), firstC = as.integer(fl.dbase$first.last.c[,
1]), lastC = as.integer(fl.dbase$first.last.c[, 2]),
offsetC = as.integer(fl.dbase$first.last.c[, 3]), firstD =
as.integer(fl.dbase$first.last.d[,
1]), lastD = as.integer(fl.dbase$first.last.d[, 2]),
offsetD = as.integer(fl.dbase$first.last.d[, 3]), nbc = as.integer(nbc),
error = as.integer(error))
how can I source the c code of the wavedecomp?
I would appreciate it if you can tell me how to do it.
thanks a lot!
wei
|