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()

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

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

#' ---
#' 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

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


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

data(penguins)
d <- penguins |>

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

// save to windows-user directory

linters: with_defaults(object_name_linter = NULL,
                       object_length_linter(50),
                       commented_code_linter = NULL,
                       object_usage_linter = NULL,
                       line_length_linter(120),
                       cyclocomp_linter = cyclocomp_linter(50))

strengejacke

[
    {
        "description": "R Build Docs",
        "key": "ctrl+shift+d",
        "command": "r.document",
        "when": "resourceLangId == 'r'"
    },
    {
        "description": "R Pipe Operator",
        "key": "ctrl+shift+m",

strengejacke

library(insight)
library(datawizard)
library(modelbased)
library(ggeffects)
library(emmeans)
library(marginaleffects)

data(efc, package = "ggeffects")
efc <- data_to_factor(efc, select = "c161sex")
model <- lm(neg_c_7 ~ barthtot + c160age * c161sex, data = efc)

strengejacke

library(easystats)
#> # Attaching packages: easystats 0.4.3
#> ✔ insight     0.17.0.6   ✔ datawizard  0.4.0.14
#> ✔ bayestestR  0.12.1     ✔ performance 0.9.0.3 
#> ✔ parameters  0.17.0.9   ✔ effectsize  0.6.0.7 
#> ✔ modelbased  0.8.0      ✔ correlation 0.8.0.1 
#> ✔ see         0.7.0.2    ✔ report      0.5.1.1
library(emmeans)
library(marginaleffects)