seinzumtode https://blog.hatena.ne.jp/seinzumtode/ how to code something https://seinzumtode.hatenadiary.jp/ モデルによって最適なカーネルが異なる > kernel.vec <- c('linear','poly','radial','sigmoid') > scores <- data.frame() > for(word in kernel.vec){ + iris.svm <- svm(Species~.,iris,kernel=word,cross=5) + prediction <- predict(iris.svm,iris[,1:4]) + result <- table(prediction,iris$Species) + score <- sum(diag(result))/sum(… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fseinzumtode.hatenadiary.jp%2Fentry%2F20140420%2F1397985159" title="SVMのカーネル比較 - how to code something" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2014-04-20 18:12:39 rich https://seinzumtode.hatenadiary.jp/entry/20140420/1397985159 1.0 100%