# NOT RUN {
data(iris)
train <- as.matrix(iris[,1:4])
labeltrain<- as.integer(iris[,5])
## S4 method for signature 'matrix'
qkpc <- qsammon(train, kernel = "rbfbase", qpar = list(sigma = 0.5, q = 0.9),
dims = 2, Initialisation = 'pca', MaxHalves = 50)
cndkernf(qkpc)
dimRed(qkpc)
kcall(qkpc)
# }
Run the code above in your browser using DataLab