200922_Lab_3_Redo

getwd()

## [1] "C:/Users/Jerome/Documents/Math_217"

#library(tidyverse)
#library(openintro)
#glimpse(kobe_basket)

#write.csv (kobe_basket, file = "kobe_basket.csv")
#kobe_basket
#table(kobe_basket$shot)

kobe_basket <- read.csv("kobe_basket.csv")
table (kobe_basket$shot)

## 
##  H  M 
## 58 75

Exercise 1

#kobe_streak <- calc_streak(kobe_basket$shot)
#ggplot(data = kobe_streak, aes(x=length)) +
   #geom_bar()

#table(kobe_streak)
#write.csv (kobe_streak, file = "kobe_streak.csv")

#kobe_streak <- read.csv ("kobe_streak.csv")

Exercise 3

coin_outcomes <- c("heads", "tails")
sample(coin_outcomes, size = 1, replace = TRUE)

## [1] "tails"

sim_fair_coin <-sample(coin_outcomes, size = 100, replace = TRUE)

sim_fair_coin

##   [1] "tails" "tails" "tails" "tails" "tails" "heads" "tails" "heads" "heads"
##  [10] "tails" "tails" "tails" "tails" "heads" "heads" "tails" "heads" "heads"
##  [19] "heads" "heads" "tails" "heads" "tails" "heads" "heads" "heads" "tails"
##  [28] "heads" "heads" "tails" "heads" "heads" "tails" "heads" "heads" "heads"
##  [37] "tails" "heads" "heads" "tails" "heads" "tails" "heads" "heads" "heads"
##  [46] "tails" "tails" "heads" "heads" "tails" "tails" "tails" "tails" "tails"
##  [55] "heads" "heads" "tails" "heads" "tails" "heads" "tails" "tails" "heads"
##  [64] "tails" "tails" "tails" "tails" "heads" "tails" "tails" "heads" "heads"
##  [73] "tails" "tails" "tails" "tails" "tails" "heads" "heads" "tails" "tails"
##  [82] "tails" "heads" "tails" "heads" "heads" "tails" "heads" "tails" "tails"
##  [91] "heads" "tails" "heads" "tails" "tails" "heads" "tails" "tails" "heads"
## [100] "tails"

table(sim_fair_coin)

## sim_fair_coin
## heads tails 
##    46    54

sim_unfair_coin <-sample(coin_outcomes, size = 100, replace = TRUE, prob = c(0.2, 0.8))
sim_unfair_coin <-sample(coin_outcomes, size = 100, replace = TRUE)

sim_unfair_coin

##   [1] "tails" "tails" "tails" "tails" "tails" "tails" "tails" "tails" "heads"
##  [10] "tails" "heads" "tails" "heads" "tails" "tails" "tails" "heads" "tails"
##  [19] "tails" "tails" "heads" "tails" "heads" "tails" "heads" "tails" "heads"
##  [28] "tails" "heads" "heads" "tails" "heads" "tails" "heads" "tails" "heads"
##  [37] "tails" "heads" "tails" "heads" "heads" "heads" "tails" "tails" "heads"
##  [46] "tails" "tails" "heads" "heads" "tails" "tails" "heads" "tails" "tails"
##  [55] "heads" "tails" "heads" "heads" "tails" "heads" "tails" "heads" "heads"
##  [64] "heads" "heads" "heads" "tails" "tails" "tails" "tails" "heads" "heads"
##  [73] "heads" "tails" "tails" "tails" "tails" "tails" "heads" "tails" "tails"
##  [82] "heads" "tails" "heads" "heads" "tails" "tails" "tails" "tails" "tails"
##  [91] "tails" "tails" "tails" "heads" "tails" "tails" "tails" "heads" "tails"
## [100] "tails"

table(sim_unfair_coin)

## sim_unfair_coin
## heads tails 
##    39    61

set.seed(740117)
sim_unfair_coin <-sample(coin_outcomes, size = 100, replace = TRUE, prob = c(0.2, 0.8))
sim_unfair_coin <-sample(coin_outcomes, size = 100, replace = TRUE)

sim_unfair_coin

##   [1] "heads" "heads" "heads" "heads" "heads" "tails" "heads" "tails" "heads"
##  [10] "tails" "tails" "tails" "tails" "tails" "tails" "heads" "heads" "tails"
##  [19] "tails" "tails" "heads" "tails" "tails" "tails" "heads" "tails" "tails"
##  [28] "tails" "tails" "heads" "tails" "heads" "heads" "tails" "tails" "heads"
##  [37] "tails" "heads" "heads" "tails" "tails" "heads" "tails" "tails" "heads"
##  [46] "tails" "tails" "heads" "tails" "heads" "heads" "heads" "heads" "heads"
##  [55] "heads" "tails" "tails" "tails" "heads" "heads" "tails" "tails" "heads"
##  [64] "tails" "heads" "heads" "tails" "heads" "tails" "tails" "tails" "heads"
##  [73] "heads" "tails" "tails" "tails" "heads" "heads" "tails" "heads" "heads"
##  [82] "tails" "heads" "tails" "heads" "tails" "tails" "tails" "tails" "heads"
##  [91] "tails" "heads" "heads" "tails" "heads" "tails" "tails" "heads" "heads"
## [100] "heads"

table(sim_unfair_coin)

## sim_unfair_coin
## heads tails 
##    47    53

Exercise 4

shot_outcomes <- c("H", "M")
sim_basket_ind <- sample(shot_outcomes, size = 1, replace = TRUE)
shot_outcomes <- c("H", "M")
sim_basket_ind <- sample(shot_outcomes, size = 133, replace = TRUE,
                   prob = c(0.45, 0.55))
table(sim_basket_ind)

## sim_basket_ind
##  H  M 
## 60 73

Exercise 5

#sim_streak <- calc_streak (sim_basket_ind)
#ggplot(data=sim_streak, aes(x = length)) +
 #geom_bar()

#table (sim_streak)