# 1a
Real_variable <- 'Hi'
# 1b
a = 2
b = 3
a_to_the_power_of_b=a^b
# 1c
Numerical_vector <- 1:5
# 1d
Boolean_vector <- c(TRUE, FALSE, TRUE, FALSE)
# 1e
c <- 1:10
d <- 11:20
# 2a
Dataset <- c(2, 12, 4, 5, 3, 14, 6, 7, 5, 4, 9, 10, 11, 11, 2, 1, 3, 4)
Mean_Dataset <- mean(Dataset)
Max_Dataset <- max(Dataset)
Min_Dataset <- min(Dataset)
Sum_Dataset <- sum(Dataset)
Variance_Dataset <- var(Dataset)
Stdev <- sd(Dataset)
# 2b
Customset <- c(11, 8, 7, 9, 4, 14, 77, 23, 35, 34, 33, 13, 30, 11, 0, 2)
Mean_Customset <- mean(Customset)
Max_Customset <- max(Customset)
Min_Customset <- min(Customset)
Sum_Customset <- sum(Customset)
Variance_Customset <- var(Customset)
Stdev <- sd(Customset)
# 3a
Dataset_table <- table(Dataset)
print(Dataset_table)
## Dataset
## 1 2 3 4 5 6 7 9 10 11 12 14
## 1 2 2 3 2 1 1 1 1 2 1 1
# 3b
Histogram_Dataset <- hist(Dataset)
# 3c
Boxplot_Dataset <- boxplot(Dataset)
