# NOT RUN {
## create toy data set
x <- rbind(matrix(rnorm(100),,2),matrix(rnorm(100)+3,,2))
y <- matrix(c(rep(1,50),rep(-1,50)),,1)
## initialize onlearn object
on <- inlearn(2,kernel="rbfdot",kpar=list(sigma=0.2),
type="classification")
ind <- sample(1:100,100)
## learn one data point at the time
for(i in ind)
on <- onlearn(on,x[i,],y[i],nu=0.03,lambda=0.1)
## or learn all the data
on <- onlearn(on,x[ind,],y[ind],nu=0.03,lambda=0.1)
sign(predict(on,x))
# }
Run the code above in your browser using DataLab