# Create data
cars2 <- cars
cars2[["parts"]] <- rep(1:10, each = 5)
# Run analysis
res <- BF_for_everyone(.df = cars2, .participant = "parts",
formula = "dist ~ speed", hypothesis = "speed > 0")
# View GPBF results
res$GPBF
Run the code above in your browser using DataLab