feat: add rstudio deployment

This commit is contained in:
theo 2026-02-16 09:40:38 +00:00
parent 7486662cc8
commit 8d2f7ec654
225 changed files with 1582 additions and 5 deletions

12
rstudio/Klausur/Quallen.R Normal file
View file

@ -0,0 +1,12 @@
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)