STA4809
Assignment 03 2025
Unique No: 896346
, ASSIGNMENT 03
Unique Nr.: 896346
Fixed closing date: 27 June 2025
Nonparametric Regression
Question 1: App Usage Time Analysis
a) Histogram and Kernel Density Estimate
The dataset represents app usage times (minutes) for 20 users. Below is the R script to
generate visualizations:
r
# Load required libraries
library(ggplot2)
library(KernSmooth)
# Dataset
app_usage <- c(5, 7, 10, 12, 15, 17, 20, 21, 22, 25, 30, 33, 35, 36, 38, 40, 42, 45, 50,
55)
# Histogram
ggplot(data.frame(app_usage), aes(x = app_usage)) +
geom_histogram(binwidth = 5, fill = "skyblue", color = "black", alpha = 0.7) +
ggtitle("Histogram of App Usage Time") +
xlab("Time (minutes)") + ylab("Frequency")
# Kernel density estimates
Assignment 03 2025
Unique No: 896346
, ASSIGNMENT 03
Unique Nr.: 896346
Fixed closing date: 27 June 2025
Nonparametric Regression
Question 1: App Usage Time Analysis
a) Histogram and Kernel Density Estimate
The dataset represents app usage times (minutes) for 20 users. Below is the R script to
generate visualizations:
r
# Load required libraries
library(ggplot2)
library(KernSmooth)
# Dataset
app_usage <- c(5, 7, 10, 12, 15, 17, 20, 21, 22, 25, 30, 33, 35, 36, 38, 40, 42, 45, 50,
55)
# Histogram
ggplot(data.frame(app_usage), aes(x = app_usage)) +
geom_histogram(binwidth = 5, fill = "skyblue", color = "black", alpha = 0.7) +
ggtitle("Histogram of App Usage Time") +
xlab("Time (minutes)") + ylab("Frequency")
# Kernel density estimates
