.Rhistory

y <- 20
print(y)
e_list
e_vector <- c(1,2,3,4,5)
e_vector
e_list
e_list <- list(1,2,3,4,5)
e_vector <- c(1,2,3,4,5)
e_vector
e_list
e_list <- list(1,2,3,4,5)
e_vector <- c(1,2,3,4,5)
e_vector
e_list
print(e_vector, e_list)
e_list <- list(1,2,3,4,5)
e_list <- list(1,2,3,4,5)
e_vector <- c(1,2,3,4,5)
e_vector
e_list
print(e_vector)
print(e_list)
e_list <- list('a','b','c','d','e')
e_vector <- c('a','b','c','d','e')
print(e_vector)
print(e_list)
# Exercise 1
A <- 13
B <- 27
C <- 14
sum_1 <- A + B + C
sum_2 <- sum(c(A, B, C))
mean_1 <- sum_1 / 3
mean_2 <- mean(c(A, B, C))
product <- A * B * C
cat("# Exercise 1\n")
print(
data.frame(
Variables = c("sum_1", "sum_2", "mean_1", "mean_2", "product"),
Values = c(sum_1, sum_2, mean_1, mean_2, product)
)
)
cat("\n\n")
a
# HM2
set.seed(12)
a <- runif(200, 0, 200)
a
set.seed(12)
a <- runif(200, 0, 200)
hist(a)
# HM2
set.seed(12)
a <- runif(200, 0, 200)
interval <- 10
hist(a, breaks = 200 / interval)
set.seed(12)
a <- runif(200, 0, 200)
interval <- 10
hist(a, breaks = 200 / interval)
set.seed(11)
a <- runif(200, 0, 200)
interval <- 10
hist(a, breaks = 200 / interval)
# HM2
set.seed(12)
a <- runif(200, 0, 200)
interval <- 10
hist(a, breaks = 200 / interval)
# HM2
set.seed(12)
codes <- runif(200, 0, 200)
interval <- 10
hist(codes, breaks = 200 / interval, xlab="The x-axis", ylab="The y axis")
# HM2
set.seed(12)
codes <- runif(200, 0, 200)
interval <- 10
hist(codes, breaks=200 / interval, main="Vestel Production", xlab="The Codes of The Products by Vestel", ylab="The Quantities by Vestel")