#example1:
X<-data.frame(cbind(x=c(-2,-0.75,-0.25,0.5,1),alpha=c(0,0.3,1,0,0.3)))
E<-translator(X,4)
E
#example2
X<-data.frame(cbind(x=c(-2,-0.75,-0.25,0.5,1),alpha=c(0,0.6,1,1,0)))
E<-translator(X,3)
head(E)
plot(X,type="l")
lines(E,type="l",col="red")
#example3
data(XX)
E<-translator(XX[[3]],11)
plot(XX[[3]],type="l")
lines(E,type="l",col="red")Run the code above in your browser using DataLab