mirror of
https://github.com/theoleuthardt/homelab-docker-compose.git
synced 2026-06-05 15:41:07 +00:00
12 lines
No EOL
379 B
R
12 lines
No EOL
379 B
R
library(OneR)
|
|
library(readxl)
|
|
setwd("~/Klausur")
|
|
qq <- read_excel("quallen.XLS")
|
|
qq$giftig <- as.factor(qq$giftig)
|
|
model <- OneR(giftig ~ ., data = qq)
|
|
summary(model)
|
|
|
|
tstdat <- data.frame(Farbe = "gelb", Größe = "mittel", transparent = "nein",
|
|
Geschmack = "süß")
|
|
colnames(tstdat) <- c("Farbe","Größe","transparent","Geschmack")
|
|
predict(model, tstdat) |