`# Identity_matrix Creation\' I_mat <- matrix(0, 4, 4) diag(I_mat) <-1 View(I_mat) length(I_mat) \'#Reading the data from CSV\' Numerator<-read.csv(file