#create test signal data
#
x<-runif(100)
y<-make.signal2("blocks",x=x)
#
a<-transmatdual(x,y,Pred=AdaptNeigh,neigh=2)
#
#computes the transition matrix for the specified options
#
W<-a$Wnew
#
condno(W,"F")
#
condno(W,"l1")
#
condno(W,"1")
#
Run the code above in your browser using DataLab