ich sitze mal wieder an meinen Problemen, die ich zwar gelöst habe aber ich glaube sehr ineffizient.
Folgendes Szenario:
Ich habe ein lineares Model und lasse mir das Ergebnis ausgeben.
Wir sollen die CI des Intercepters und Y in einem tibble mit Namensvariable angeben um es dann in rMarkdown zu nehmen und dort mittels kable eine Tabelle zu erstellen, die hübsch ist.
Mein Code sieht so aus:
Code: Alles auswählen
x <- c(0, 90, 180, 360)
y <- c(25.5, 25.6, 25.8, 26.0)
sample1 <- data.frame(x, y)
fit_H1 <- lm((y ~ x), data=sample1)
summary(fit_H1)
model1_ci <- confint(fit_H1, level =0.90)
model1_ci_tibble <- as_tibble(model1_ci)
Name <- c("Intercepter", "Tag")
beschreibung <- cbind(Name)
beschreibung <- as_tibble(beschreibung )
model1_ci_tibble_2 <- add_column(beschreibung, model1_ci_tibble)
model1_ci_tibble_2
VG
Andreas