# NOT RUN {
#use iris data set
data(iris)
testset <- sample(1:150,20)
train <- as.matrix(iris[,1:4])
colors = rainbow(length(unique(iris$Species)))
names(colors) = unique(iris$Species)
#for matrix
ecb = function(x,y){
plot(x,t='n');
text(x,labels=iris$Species, col=colors[iris$Species])
}
kpc2 <- qtSNE(train, kernel = "rbfbase", qpar = list(sigma=1,q=0.8),
epoch_callback = ecb, perplexity=10, max_iter = 500)
#cndernf
cndkernf(kpc2)
#dimRed
plot(dimRed(kpc2),col=train)
# }
Run the code above in your browser using DataLab