Module 9. Assignment

Question 1: 

    
Generate (1) a one-way table for "purchased"

> purchased <-c("No", "Yes", "No", "No", "Yes", "Yes", "No", "Yes", "No", "Yes")
> results <- table(purchased)
> results
purchased
 No Yes 

  5   5 

    
a two-way table for "country" and "purchased".

> country <-c("France", "Spain", "Germany", "Spain", "Germany", "France", "Spain", "France", "Germany", "France")
> purchased <-c("No", "Yes", "No", "No", "Yes", "Yes", "No", "Yes", "No", "Yes")> results <- table(country, purchased)
> results
         purchased
country   No Yes
  France   1   3
  Germany  2   1
  Spain    2   1

Question 2: 

Generate Contingency table also known as rx C table using mtcars dataset


2.1 : 
> data(mtcars)
> mtcars_df <- table(mtcars$gear, mtcars$cyl, dnn = c("Gears", "Cylinders"))
> addmargins(mtcars_df)
     Cylinders
Gears  4  6  8 Sum
  3    1  2 12  15
  4    8  4  0  12
  5    2  1  2   5
  Sum 11  7 14  32

2.2 : 

prop.table(mtcars_df)
     Cylinders
Gears       4       6       8
    3 0.03125 0.06250 0.37500
    4 0.25000 0.12500 0.00000
    5 0.06250 0.03125 0.06250