Module # 3 assignment

-

 Module # 3 assignment


# Data sets

set1 <- c(10, 2, 3, 2, 4, 2, 5)

set2 <- c(20, 12, 13, 12, 14, 12, 15)


# Central Tendency

mean_set1 <- mean(set1)

median_set1 <- median(set1)

mode_set1 <- as.numeric(names(sort(-table(set1)))[1])  # Mode


mean_set2 <- mean(set2)

median_set2 <- median(set2)

mode_set2 <- as.numeric(names(sort(-table(set2)))[1])  # Mode


# Variation

range_set1 <- range(set1)

iqr_set1 <- IQR(set1)

variance_set1 <- var(set1)

std_dev_set1 <- sd(set1)


range_set2 <- range(set2)

iqr_set2 <- IQR(set2)

variance_set2 <- var(set2)

std_dev_set2 <- sd(set2)


# Output

cat("Set 1\n")

cat("Mean:", mean_set1, "\n")

cat("Median:", median_set1, "\n")

cat("Mode:", mode_set1, "\n")

cat("Range:", diff(range_set1), "\n")

cat("IQR:", iqr_set1, "\n")

cat("Variance:", variance_set1, "\n")

cat("Standard Deviation:", std_dev_set1, "\n\n")


cat("Set 2\n")

cat("Mean:", mean_set2, "\n")

cat("Median:", median_set2, "\n")

cat("Mode:", mode_set2, "\n")

cat("Range:", diff(range_set2), "\n")

cat("IQR:", iqr_set2, "\n")

cat("Variance:", variance_set2, "\n")

cat("Standard Deviation:", std_dev_set2, "\n")


Output

> cat("Set 1\n")

Set 1

> cat("Mean:", mean_set1, "\n")

Mean: 4 

> cat("Median:", median_set1, "\n")

Median: 3 

> cat("Mode:", mode_set1, "\n")

Mode: 2 

> cat("Range:", diff(range_set1), "\n")

Range: 8 

> cat("IQR:", iqr_set1, "\n")

IQR: 2.5 

> cat("Variance:", variance_set1, "\n")

Variance: 8.333333 

> cat("Standard Deviation:", std_dev_set1, "\n\n")

Standard Deviation: 2.886751 


> 

> cat("Set 2\n")

Set 2

> cat("Mean:", mean_set2, "\n")

Mean: 14 

> cat("Median:", median_set2, "\n")

Median: 13 

> cat("Mode:", mode_set2, "\n")

Mode: 12 

> cat("Range:", diff(range_set2), "\n")

Range: 8 

> cat("IQR:", iqr_set2, "\n")

IQR: 2.5 

> cat("Variance:", variance_set2, "\n")

Variance: 8.333333 

> cat("Standard Deviation:", std_dev_set2, "\n")

Standard Deviation: 2.886751 

> Set 1 has lower values around 4, while Set 2 centers around 14. Set 2's larger values, both sets have identical variability, with the same interquartile range, variance, and standard deviation. This shows that the values differ, but the spread and distribution are the same.

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