# create data
x <- seq(-20,20,0.1)
y <- sin(x)/x + rnorm(401,sd=0.05)
# train relevance vector machine
foo <- rvm(x, y)
foo
alpha(foo)
RVindex(foo)
fit(foo)
kernelf(foo)
nvar(foo)
## show slots
slotNames(foo)
Run the code above in your browser using DataLab