powered by
sslMarkovRandomWalks(xl, yl, xu, t = 10, dist.type = "Euclidean", k = 10, gamma = 1, improvement = 1e-04)
dist
pr_DB
sslMarkovRandomWalks
data(iris) xl<-iris[c(1:20,51:70),-5] xu<-iris[c(21:50,71:100),-5] yl<-rep(c(1,-1),each=20) yu<-sslMarkovRandomWalks(xl,yl,xu)
Run the code above in your browser using DataLab