Assignment 6

 # Part 1 

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

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

> A + B

     [,1] [,2]

[1,]    7    5

[2,]    2    2

> A - B

     [,1] [,2]

[1,]   -3   -3

[2,]   -2    4


# Part 2

> diag(c(4,1,2,3))

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

[1,]    4    0    0    0

[2,]    0    1    0    0

[3,]    0    0    2    0

[4,]    0    0    0    3


# Part 3

> matrix(c(3,2,2,2,2,1,3,0,0,0,1,0,3,0,0,1,0,0,3,0,1,0,0,0,3), nrow = 5, byrow = FALSE)

     [,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

Comments

Post a Comment

Popular posts from this blog

Assignment 12

 I felt that Markdown was pretty simple on R studio as it lays out the format for you when you select the "R markdown" option. I used the existing R data set cars to get the data as well as create a plot from the data. The plot was a scatter plot that compared the distance vs the speed. However, I need to explore more of the different Markdown features in order to be more comfortable with it. 
Read more

Assignment 10

  Often times I face the difficulty of not being able to save all my  results from my R console to a file to refer back to it later. However, with my  new package "checkpoint",  it will be able to save the code and all the results from the consol  into a file and will be able to update the results for each line of code  incase you want to edit it and rerun it. This will help me really keep track of my results in one location without it being disorganized. https://github.com/aishwaryashiv10/Lis6371/blob/08a989e95e6e79ff1c97950fef1e3f7fb45b6de3/Module%2010%20Assignment.R
Read more

Assignment 11

## Original Code tukey_multiple <- function(x) {   outliers <- array(TRUE,dim=dim(x))   for (j in 1:ncol(x))   {     outliers[,j] <- outliers[,j] && tukey.outlier(x[,j])   }   outlier.vec <- vector(length=nrow(x))   for (i in 1:nrow(x))   { outlier.vec[i] <- all(outliers[i,]) } return(outlier.vec) } #DeBugged Code tukey_multiple <- function(x) {   outliers <- array(TRUE, dim=dim(x))   for (j in 1:ncol(x)) {     outliers[,j] <- outliers[,j] && #tukey.outlier(x[,j])  ## tukey.outlier does not exist       }   outlier.vec <- vector(length=nrow(x))   for (i in 1:nrow(x)) {     outlier.vec[i] <- all(outliers[i,])   }   return(outlier.vec)  } To start debugging, I pasted the code into RStudio to see what kind of error it would throw. The syntax was wrong with the alignment of certain brackets and parentheses. I then realized that ...
Read more