Module # 9 assignment

-

 Issaiah Jennings 


Module # 9 assignment


In this assignment, you have two questions.

1. Your data.frame is

> assignment_data <- data.frame( Country = c("France","Spain","Germany","Spain","Germany", "France","Spain","France","Germany","France"), age = c(44,27,30,38,40,35,52,48,45,37), salary = c(6000,5000,7000,4000,8000,5500, 4500, 6000, 7500, 5000), Purchased=c("No","Yes","No","No","Yes", "Yes","No","Yes","No","Yes"))

Generate simple table in R that consists of four columns: Country, age, salary and purchased.



> assignment_data <- data.frame(

+   Country = c("France", "Spain", "Germany", "Spain", "Germany", "France", "Spain", "France", "Germany", "France"),

+   age = c(44, 27, 30, 38, 40, 35, 52, 48, 45, 37),

+   salary = c(6000, 5000, 7000, 4000, 8000, 5500, 4500, 6000, 7500, 5000),

+   Purchased = c("No", "Yes", "No", "No", "Yes", "Yes", "No", "Yes", "No", "Yes")

+ )

> 

> # Display the table

> print(assignment_data)

   Country age salary Purchased

1   France  44   6000        No

2    Spain  27   5000       Yes

3  Germany  30   7000        No

4    Spain  38   4000        No

5  Germany  40   8000       Yes

6   France  35   5500       Yes

7    Spain  52   4500        No

8   France  48   6000       Yes

9  Germany  45   7500        No

10  France  37   5000       Yes

> 



2. Generate contingency table also known as r x c table using mtcars dataset i.e. data(mtcars)

assignment9 <- table(mtcars$gear, mtcars$cyl, dnn=c("gears", "cylinders")


2.1 Add the addmargins() function to report on the sum totals of the rows and columns of assignment9 table

>addmargins(assignment9)


2.2 Add prop.tables() function, and report on the proportional weight of each value in a assignment9 table


2.3 Add margin = 1 to the argument under prop.table() function, and report on the row proportions found in assignment9 table.


# Load mtcars dataset

> data(mtcars)

> 

> # Create the contingency table

> assignment9 <- table(mtcars$gear, mtcars$cyl, dnn = c("gears", "cylinders"))

> 

> # Add margins (sums of rows and columns)

> addmargins(assignment9)

     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


> # Proportional table for all values

> prop.table(assignment9)

     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



> # Proportions by row (gears)

> prop.table(assignment9, margin = 1)

     cylinders

gears          4          6          8

    3 0.06666667 0.13333333 0.80000000

    4 0.66666667 0.33333333 0.00000000

    5 0.40000000 0.20000000 0.40000000

> 

Comments

Post a Comment

Popular posts from this blog

The Final project in this class

-
Image
  Issaiah Jennings  Final Project Introduction My project aimed to determine whether smoking status and region (northeast, southeast, southwest, northwest) significantly impact insurance charges. Specifically, I wanted to see if smokers incur higher charges compared to non-smokers and whether insurance costs differ across regions. Understanding these relationships could help insurance providers identify how lifestyle and geographic factors influence healthcare costs, ultimately guiding pricing strategies and market targeting. Methods This project closely relates to concepts from class, particularly hypothesis testing and statistical analysis. For example, I used a t-test to compare the average insurance charges between smokers and non-smokers, a method we learned to analyze differences between two groups. Similarly, I applied ANOVA (Analysis of Variance) to test for differences in average charges across multiple groups, in this case, the regions. These methods align with the c...
Read more

Module # 8 Assignment

-
  Issaiah Jennings Module # 8 Assignment Your assignment: A researcher is interested in the effects of drug against stress reaction. She gives a reaction time test to three different groups of subjects: one group that is under a great deal of stress, one group under a moderate amount of stress, and a third group that is under almost no stress. The subjects of the study were instructed to take the drug test during their next stress episode and to report their stress on a scale of 1 to 10 (10 being most pain). High Stress Moderate Stress Low Stress 10 8 4 9 10 6 8 6 6 9 7 4 10 8 2 8 8 2 Report on drug and stress level by using R. Provide a full summary report on the result of ANOVA testing and what does it mean. More specifically, report  using the following R functions: Df, Sum, Sq Mean, Sq, F value, Pr(>F) > # Create a dataframe with stress levels and corresponding pain levels > stress_data <- data.frame( + stress_level = factor(rep(c("High", "Moderate...
Read more

Module # 6 assignment

-
Issaiah  Jennings  Module # 6 assignment Consider a population consisting of the following values, which represents the number of ice cream purchases during the academic year for each of the five housemates. 8, 14, 16, 10, 11 a. Compute the mean of this population. > # Population data > population <- c(8, 14, 16, 10, 11) >  > # Population mean > population_mean <- mean(population) > population_mean [1] 11.8 b. Select a random sample of size 2 out of the five members. See the example used in the Power-point presentation slide # 13. c. Compute the mean and standard deviation of your sample. d. Compare the Mean and Standard deviation of your sample to the entire population of this set (8,14, 16, 10, 11). > # Sample data > sample_data <- c(8, 14) >  > # Sample mean > sample_mean <- mean(sample_data) >  > # Calculate the squared differences from the mean > squared_diff <- (sample_data - sample_mean)^2 >...
Read more