powered by
PipeR(Data,Ndg=3,Method="Poly")
aa <- sin(seq(0,1,.1)) bb <- sin(seq(0.5,1.5,.1)) cc <- sin(seq(0.9,1.9,.1)) res <- PipeR(rbind(aa,bb,cc))
Run the code above in your browser using DataLab