_ | 覦覈襦 | 豕蠏手 | 殊螳 | 譯殊碁
FrontPage › K-NearestNeighbors

x螳 讌 螳 螳蟾 蟇磯Μ(企Μ 蟇磯Μ;Euclidean distance) k螳 谿場 れ, k螳 企 覿襯 讌襯 螳() 螳 襷 覿襯 蟆朱 x襯 覿襯 蠍磯

R
install.packages("class")
library("class")

tr <- sqldf("select var1, var2 from training")
te <- sqldf("select var1, var2 from test2")
pred <- knn(tr, te, training$is_out, k = 21, prob=TRUE)
table(pred, test2$is_out)


python
from numpy import *
import operator

def createDataSet():
    group = array([[1.0, 1.1], [1.0, 1.0], [0, 0], [0,0.1]])
    labels = ['A', 'A', 'B', 'B']
    return group, labels

def classfy0(inX, dataSet, labels, k):
    dataSetSize = dataSet.shape[0]
    diffMat = tile(inX, (dataSetSize, 1)) - dataSet
    sqDiffMat = diffMat ** 2
    sqDistnaces = sqDiffMat.sum(axis = 1)
    distnaces = sqDistnaces ** 0.5
    sortedDistIndicies = distnaces.argsort()
    classCount = {}
    for i in range(k):
        voteIlabel = labels[sortedDistIndicies[i]]
        classCount[voteIlabel] = classCount.get(voteIlabel, 0) + 1
    sortedClassCount = sorted(classCount.iteritems(), key=operator.itemgetter(1), reverse = True)
    return sortedClassCount[0][0]

import kNN
group, labels = kNN.createDataSet()
kNN.classfy0([0,0], group, labels, 3)
蠍 蠍郁鍵..
企: : るジ讓曙 襦螻豺 企Ν 譯殊語. 襦螻豺
EditText : Print : Mobile : FindPage : DeletePage : LikePages : Powered by MoniWiki : Last modified 2018-04-13 23:12:52

覯碁 伎朱襦 蟾讌 讌 狩 覦覯企.