Mathematical Computations Using R

# Addition
a <- 5
b <- 3

# Sum calculation
sum_result <- a + b
print("The sum is:")
print(sum_result)  

# Subtraction
# Difference calculation
difference_result <- a - b
print("The difference is:")
print(difference_result) 

# Multiplication
# Product calculation
product_result <- a * b
print("The product is:")
print(product_result)  

# Division
# Quotient calculation
quotient_result <- a / b
print("The quotient is:")
print(quotient_result) 

# Create a numeric vector
values <- c(10, 20, 30, 40, 50)

# Calculate mean
mean_value <- mean(values)
print("The mean is:")
print(mean_value)  

# Calculate standard deviation
sd_value <- sd(values)
print("The Standard deviation is:")
print(sd_value) 

# Create a matrix
matrix_data <- matrix(1:9, nrow = 3, ncol = 3)
# Apply sum across rows
row_sums <- apply(matrix_data, 1, sum)
print(row_sums)  

# Create a list
num_list <- list(1:3, 4:6, 7:9)

# Custom function to calculate the mean
custom_mean <- function(x) {
  return(mean(x))
}

# Apply custom function to each element of the list
mean_values <- lapply(num_list, custom_mean)
print(mean_values)  

# Assigning a negative value to x
x <- -4
# Using abs() to get the absolute value
result <- abs(x)
# Printing the result
print(result) 


# Assigning a positive value to x
x <- 4
# Using sqrt() to get the square root
result <- sqrt(x)
# Printing the result
print(result)  


# Assigning a floating-point value to x
x <- 4.5
# Using ceiling() to round up
result <- ceiling(x)
# Printing the result
print(result) 


# Assigning a floating-point value to x
x <- 4.5
# Using floor() to round down
result <- floor(x)
# Printing the result
print(result)