# NOT RUN {
library(DFA)
data("data5")
data("data6")
x<-log10(data6)
y<-log10(data5)
npoint=1
secante(x,y,npoint)
#Example with different number of crossover
#points and other dataset.
library(DFA)
part1 <- seq(1,20)
part2 <- seq(20,1)
y = c(part1,part2)
x<-seq(1,40)
plot(x,y)
secante(x,y,npoint=1)
# }
Run the code above in your browser using DataLab