write R language

Write a function to compute the covariance matrix for a given collection of sample data using the matrix A = (I - ee^T). Use it to compute the covariance matrices of the following datasets. Compare your results with the built-in R function cov(). x = [1 2 3], y = [-1 5 0], z = [7 0 0] x_1 = [1 2 2 1], x_2 = [3 -3 3 -3], x_3 = [17 16 0 0], x_4 = [7 -9 -3 1] alpha = [0.12 -0.03 0.23 0.14 -0.54], beta = [0.62 -0.12 0.31 0.97 -0.22] Write a function to compute the covariance matrix for a given collection of sample data using the matrix A = (I - ee^T). Use it to compute the covariance matrices of the following datasets. Compare your results with the built-in R function cov(). x = [1 2 3], y = [-1 5 0], z = [7 0 0] x_1 = [1 2 2 1], x_2 = [3 -3 3 -3], x_3 = [17 16 0 0], x_4 = [7 -9 -3 1] alpha = [0.12 -0.03 0.23 0.14 -0.54], beta = [0.62 -0.12 0.31 0.97 -0.22]