Module # 6 Doing math in R part 2 (R Programming)

 1. Consider A=matrix(c(2,0,1,3), ncol=2) and B=matrix(c(5,2,4,-1), ncol=2).

a) Find A + B 

A <- matrix(c(2, 0, 1, 3), ncol = 2)

B <- matrix(c(5, 2, 4, -1), ncol = 2)


result_addition <- A + B

print(result_addition)


     [,1] [,2]
[1,]    7    2
[2,]    5    2 


Description: A = [2 0, 1 3 ], B = [ 5 2, 4 -1 ]. Add both A + B = [ 2+5 , 0 +2 , 1 + 4 , 3+(-1) ] = [ 7 2 , 5 2 ] 


b) Find A - B

result_subtraction <- A - B
print(result_subtraction)

     [,1] [,2]
[1,]   -3   -2
[2,]   -3    4

Description: A - B = [ 2 - 5, 0 - 2, 1 -4, 3 - (-1) ] = [ -3 -2, -3 4 ] 

2. Using the diag() function to build a matrix of size 4 with the following values in the diagonal 4, 1, 2, 

diagonal_values <- c(4, 1, 2, 3)
result_matrix <- diag(diagonal_values)
print(result_matrix)

     [,1] [,2] [,3] [,4]
[1,]    4    0    0    0
[2,]    0    1    0    0
[3,]    0    0    2    0
[4,]    0    0    0    3

Description: 
  • Using the diag() function, we create a diagonal matrix with specified values on the diagonal.
  • The resulting matrix has the specified values on the diagonal and zeros elsewhere


3. Generate the following matrix:

result_matrix <- diag(3, 5)
print(result_matrix)

     [,1] [,2] [,3] [,4] [,5]
[1,]    3    1    1    1    1
[2,]    2    3    0    0    0
[3,]    2    0    3    0    0
[4,]    2    0    0    3    0
[5,]    2    0    0    0    3

Description: 
  • Using the diag() function with the argument 3 and size 5, we generate a diagonal matrix with 3 on the diagonal.
  • The resulting matrix has 3 on the diagonal and zeros elsewhere.

Comments

Post a Comment

Popular posts from this blog

Module # 10 assignment

Image
 In this blog post, I'll delve into the world of time series analysis using ggplot2, a powerful data visualization package in R. Time series data involves observations collected or recorded at regular time intervals, making it a crucial area of study in various fields such as finance, economics, and environmental science. Visualizing time series data not only helps in understanding patterns and trends but also aids in making informed decisions based on the insights gained. Code:  # Extract year from date year <- function(x) as.POSIXlt(x)$year + 1900 economics$year <- year(economics$date) # Plot unemployment rate over time plot_unemployment <- ggplot(economics, aes(x = date, y = unemploy / pop)) +   geom_line() +   labs(title = "Unemployment Rate Over Time",        x = "Year",        y = "Unemployment Rate") +   theme_minimal() print(plot_unemployment) This plot provides a clear visualization of how the unemploymen...
Read more

Module # 7 assignment (Visual Analytics)

Image
  In this example, I've created two scatter plots, one for mpg vs. hp and another for mpg vs. wt, using mtcars and arranged them in a grid using the grid.arrange function.  My opinion on Few's recommendations.  Simplicity:   Few emphasize simplicity to avoid overwhelming the audience. The scatter plots are relatively simple, displaying two variables at a time (mpg vs. hp, mpg vs. wt). This simplicity aids in easy interpretation without unnecessary complexity. Clarity: Is a key principle in Few's recommendations. The use of grid arrangement helps in comparing the two scatter plots side by side, making it easier for viewers to identify patterns and differences between the variables. Accuracy: This is crucial, and Few often advocate for accurate representation of data. The scatter plots accurately represent the relationship between variables, allowing viewers to make informed observations about the distribution and correlation. Color Usage: Few often advise agai...
Read more

Module # 3 assignment

First, let's create the data sets Set#1 and Set#2: set1 <- c(10, 2, 3, 2, 4, 2, 5) set2 <- c(20, 12, 13, 12, 14, 12, 15)   Now, let's calculate the measures of central tendency for each set: # Mean for Set#1 and Set#2 mean_set1 <- mean(set1) mean_set2 <- mean(set2)   # Median for Set#1 and Set#2 median_set1 <- median(set1) median_set2 <- median(set2)   # Mode for Set#1 and Set#2 mode_set1 <- as.numeric(names(sort(table(set1), decreasing = TRUE)[1])) mode_set2 <- as.numeric(names(sort(table(set2), decreasing = TRUE)[1]))   Now, let's calculate the measures of variation for each set:   # Range for Set#1 and Set#2 range_set1 <- range(set1) range_set2 <- range(set2)   # Interquartile Range (IQR) for Set#1 and Set#2 iqr_set1 <- IQR(set1) iqr_set2 <- IQR(set2)   # Variance for Set#1 and Set#2 variance_set1 <- var(set1) variance_set2 <- var(set2)   # S...
Read more