Hello, I have a problem with this program.
library(ggplot2)
library(magrittr)
library(dplyr)
library(tidytext)
library(gutenbergr)
library(tm)
library(fields)
library(tidyr)
library(igraph)
library(reshape2)
library(wordcloud)
library(MASS)
library(e1071)
data.bbc <- as_tibble(read.table("something", stringsAsFactors = F))
for(i in seq(1, 8867, 1))
{
if (data.bbc[i,2] == -1) data.bbc[i,2] <- 1
}
data.bbc %<>% arrange(desc(emo)) %>% slice(-c(500:(n()-500)))
data.bbc <- data.bbc[sample(1:nrow(data.bbc)),]
data.bbc$doc_id <- 1:nrow(data.bbc)
source <- DataframeSource(as.data.frame(data.bbc))
corpus <- VCorpus(source)
tdm <- DocumentTermMatrix(corpus)
bbc.svml <- svm(tdm, class, type = "C-classification", kernel = "linear")
bbc.svml.pred <- predict(bbc.svml, tdm)
table(class, bbc.svml.pred)
Every time I try to run this I have errors like this.
bbc.svml <- svm(tdm, class, type = "C-classification", kernel = "linear")
Błąd w poleceniu 'complete.cases(object)':niepoprawny 'type' (builtin) argumentu
bbc.svml.pred <- predict(bbc.svml, tdm)
Błąd w poleceniu 'predict(bbc.svml, tdm)':nie znaleziono obiektu 'bbc.svml'
table(class, bbc.svml.pred)
Błąd w poleceniu 'table(class, bbc.svml.pred)':
nie znaleziono obiektu 'bbc.svml.pred'
I 'll be thankful, if anyone 'd help me with it.