K Ближайший сосед в R Shiny разной длины - PullRequest
Новая
       9

K Ближайший сосед в R Shiny разной длины

0 голосов
/ 26 декабря 2018

Вот мой код: 

library(shiny)
library(shinydashboard)
library(plotly)
library(readxl)
library(png)
library(xlsx)
library(DT)
library(class)

shinyServer(function(input, output, session){
normalisasi <- function(data){
((data-min(data))/(max(data)-min(data)))
}

datatrain <- read_xlsx("E:/fix/data training.xlsx")
datauji <- read_xlsx("E:/fix/data uji.xlsx")

normtrain <- as.data.frame(lapply(datatrain[,c(4,5,6,7,8,9)],normalisasi))
normuji <- as.data.frame(lapply(datauji[,c(4,5,6,7,8,9)],normalisasi))
labeldata <- datatrain[,3, drop = TRUE]
labeltarget <- datauji[,3]
prediksi <- knn(train=normtrain,test=normuji,cl=labeldata, k=input$nilaik)
hasilknn <- cbind(normuji, label=as.vector(prediksi))
output$hasil <- renderDataTable({
table(labeltarget,prediksi)
})
})

Но я получаю эту ошибку.

Ошибка в knn (train = normtrain, test = normuji, cl = labeldata,k = input $ nilaik) 'train' и 'class' имеют разную длину

Почему?пожалуйста!помощь

...