# another example using the iris
data(iris)
test <- sample(1:50,20)
kpc <- kha(~.,data=iris[-test,-5], kernel="rbfdot",
kpar=list(sigma=0.2),features=2, eta=0.001, maxiter=65)
#print the principal component vectors
pcv(kpc)
kernelf(kpc)
eig(kpc)
Run the code above in your browser using DataLab