strengejacke

easystats::install_latest(force= TRUE)
library(datawizard)  # data wrangling and preparation
library(parameters)  # model summaries
library(glmmTMB)     # multilevel modelling

# sample data set
data(efc, package = "ggeffects")

efc <- efc |>
  # numeric to factors, set labels as levels

strengejacke

library(easystats)
library(palmerpenguins)
library(lme4)
library(ggplot2)


# data generation -----------------------

data(penguins)
d <- penguins |>

strengejacke

#' ---
#' title: "Compile Report"
#' author: ""
#' date: ""
#' ---

#' Comments that are to be displayed as normal text are marked with `#'`
#' at the beginning of the line. Comments that are to be displayed as
#' code are marked with `#` at the beginning of the line.

strengejacke

Positron Version: 2025.09.0 (system setup) build 5
Code - OSS Version: 1.102.0
Commit: df4dfe533fe81e0f3191fcf60bbf5f588411a1ad
Date: 2025-08-01T04:07:02.449Z
Electron: 35.6.0
Chromium: 134.0.6998.205
Node.js: 22.15.1
V8: 13.4.114.21-electron.0
OS: Windows_NT x64 10.0.26100

strengejacke

library(easystats)

set.seed(1234)
n <- 100
baseline <- rnorm(n, 5, 1.5)
d <- data.frame(
  RT1 = rnorm(n, baseline, 0.5),
  RT2 = rnorm(n, baseline, 0.5),
  RT3 = rnorm(n, baseline, 0.5),
  RT4 = rnorm(n, baseline, 0.5),

strengejacke

Replicates plots from this vignette:
https://easystats.github.io/modelbased/articles/plotting.html

Not working

m <- lm(neg_c_7 ~ c12hour * barthtot * c160age, data = efc)
# gpplot2 version
estimate_means(m, c("c12hour", "barthtot", "c160age")) |> plot()
## FIXME not working yet
estimate_means(m, c("c12hour", "barthtot", "c160age")) |> plt()