7 lines
109 B
R
7 lines
109 B
R
Identity_matrix=function(size){
|
|
x=matrix(0,size,size)
|
|
for (i in 1:size) {
|
|
x[i,i]=1
|
|
}
|
|
return(x)
|
|
}
|