Lorem ipsum dolor sit amet, consectetur adipiscing elit. Nulla gravida placerat risus nec ultrices. Praesent lacinia eros non velit sagittis, in placerat lorem euismod. Sed condimentum mi ac vestibulum tempus. Praesent eget neque et urna aliquam dictum et porta sapien. Maecenas et lobortis odio. Mauris quis sem aliquam, congue sapien nec, laoreet lorem. Maecenas ut ultricies massa, id viverra libero. Morbi nec feugiat metus. Fusce porttitor viverra tortor, vitae suscipit odio dapibus sed. Vestibulum maximus tortor sed ipsum efficitur, eu cursus enim aliquam.
Example slide
Custom bolded text
Lorem ipsum dolor sit amet, consectetur adipiscing elit. Nulla gravida placerat risus nec ultrices. Praesent lacinia eros non velit sagittis, in placerat lorem euismod. Sed condimentum mi ac vestibulum tempus. Praesent eget neque et urna aliquam dictum et porta sapien. Maecenas et lobortis odio. Mauris quis sem aliquam, congue sapien nec, laoreet lorem. Maecenas ut ultricies massa, id viverra libero. Morbi nec feugiat metus. Fusce porttitor viverra tortor, vitae suscipit odio dapibus sed. Vestibulum maximus tortor sed ipsum efficitur, eu cursus enim aliquam.
x <-rnorm(n =10, mean =10, sd =5)y <- x *runif(n =10, min =0, max =1)data <-data.frame(y = y, x = x)fit <-glm(formula = y ~ x, data = data)broom::tidy(fit) |> kableExtra::kbl(align ="c", digits =2)