data.mat <-
cbind( "timeSeries"=c(0, 3, 6, 9, 11, 21, 24, 27, 33, 38, 39, 42),
"signal"=c(3.930, 3.973, 4.005, 4.110, 4.164, 4.165, 4.186,
4.265, 4.266, 4.357, 4.503, 4.690) )
dataEqualSpace.mat <- equalInterval.fn(x=data.mat[,1], y=data.mat[,2], Interval=3)
data.mat
dataEqualSpace.mat
Run the code above in your browser using DataLab