Lab Name

library(tidyverse)
library(openintro)
library(infer)

#creating a model

In the first problem, we’ll create a model for an unfair coin

#Create a tibble with 45 "Heads" and 55 "Tails". Call it Unfair_Coin
Unfair_Coin <- tibble(coin_side = c(rep("Heads", 45), rep("Tails", 55)))

#Graphing the Model

#Create a bar chart of Unfair_Coin
ggplot(Unfair_Coin, aes(x = coin_side)) +
  geom_bar()