xvzftube

library(tidyverse)
library(tidymodels)
library(lightgbm)
library(janitor)
library(skimr)
library(bonsai)
library(baguette)
library(doParallel)
library(darknerdthemes)
train_df <- read_csv("train.csv") |>

xvzftube

##################################################################################
library(tidyverse)
library(tidymodels)
library(lightgbm)
library(janitor)
library(skimr)
library(bonsai)
library(baguette)
library(doParallel)
train_df <- read_csv("train.csv") |>

xvzftube

library(MASS)
waiting <- geyser$waiting
n <- length(waiting)
m <- 14
a <- min(waiting)
b <- max(waiting)
h <- 7.27037
delta <- h / m

# get the bin counts

xvzftube

library(MASS)
waiting <- geyser$waiting

n <- length(waiting)
print(n)
m <- 3
a <- min(waiting)
b <- max(waiting)
h <- 7.27037
delta <- h / m

xvzftube

library(MASS)
library(tidyverse)

waiting <- geyser$waiting

n <- length(waiting)
print(n)
m <- 16
a <- min(waiting)
b <- max(waiting)