Анализ настроений с помощью KNN с использованием R Shiny - PullRequest
Новая
       13

Анализ настроений с помощью KNN с использованием R Shiny

0 голосов
/ 23 января 2020

Я пытаюсь провести анализ настроений с помощью KNN, используя R Shiny, но есть ошибка

Server.r 

library(shiny)
library(plyr)
library(tm)
library(stringr)
library(e1071)

knn <- reactive({
    set.seed(123)
    dfcorpus <- Corpus(VectorSource(df()$text))
    dtm <- DocumentTermMatrix(dfCorpus, control = list(weighting = function(x) weightTfIdf(x, normalize = FALSE)))
    sparse_req_dtm <- removeSparseTerms(dtm, sparse= 0.99) 
    dtm.df <- as.data.frame(data.matrix(sparse_req_dtm), stringsAsFactors = FALSE)
    dtm.df <- cbind(dtm.df, df()$class)
    colnames(dtm.df)[ncol(dtm.df)] <- "class"
    train_set <- sample(1:nrow(dtm.df), 15)
    test_set <- (1:nrow(dtm.df))[- train_set]
    classifier <- dtm.df[, "class"]
    modeldata <- dtm.df[,!colnames(dtm.df) %in% "class"]
    knn.pred <- knn(modeldata[train_set, ], modeldata[test_set, ], classifier[train_set], k=5)
    confusionMatrix(data=knn.pred, reference = classifier[test_set])

  })


  output$confm <- renderPrint({
    knn()
  })

ui.r 

library(shiny)
titlePanel("Twitter Text Analysis"),

  sidebarLayout(
    sidebarPanel(
      fileInput("finput",label = h3("Upload File CSV"))),

    mainPanel(
      tabsetPanel(type = "tab",
                  tabPanel("Confusion Matrix KNN",
                           verbatimTextOutput("confm"))

                )
            )
          )
      )

Ошибка: неиспользуемые аргументы (train = modeldata [train_set,], test = modeldata [test_set,], cl = классификатор [train_set], k = 5)

эта ошибка не появляется в сценарии R.

...