Displaying 1 result from an estimated 1 matches for "calcstepgram".
2006 Jan 10
3
Issue with c++ .C call
.............................. done
Reading symbols for shared libraries . done
Reading symbols for shared libraries . done
> dyn.load('StepGram/src/Stepgram.so')
Reading symbols for shared libraries .. done
> mySG <- function(dat1,thresh,noise) {
vec <- c(thresh,noise)
.C('calcStepgram',
data=as.double(dat1),
prm=as.double(vec),
intervals=double(10000*3+1),
max=as.integer(10000),
n=as.integer(length(dat1)),
plot=double(length(dat1)))}
> dat <- c(0.01,0.1,-0.2, 0.1,-0.1,-1000,3.2,3.5,-1.3,3.1,
3.2,3.1,-0.1,0.2,0.15,-0.05,-0.1,0.2,0.1,-0.1)
&...