x <- KBneat$x[,1]
xv <- KBneat$x[,2]
y <- KBneat$y[,1]
yv <- KBneat$y[,2]
synthetic(x,xv,y,yv,w=1,method="T")
synthetic(x,xv,y,yv,w=1,method="L")
synthetic(x,xv,y,yv,w=1,method="F",scale=0:36,vscale=0:12)
Run the code above in your browser using DataLab