Как я могу написать функцию матрицы?

Question

Как написать функцию, которая получает целое число y и выводит матрицу размера y × y. Матрица должна быть все нули, кроме ее кадра?

E<-matrix(data=0, nrow=10, ncol=10);
for (i in 1:10)
{ 
  for (j in 1:10) 
  {
    if (i==1 | j==1 | i==10 | j==10) {E[i,j]=1}
    else {E[i,j]=0}
  }
};
E

это то, что я пытался

myf <- function(y){
E<-matrix(data=0, nrow=y, ncol=y);
for (i in 1:y)
{ 
  for (j in 1:y) 
  {
    if (i==1 | j==1 | i==y | j==y) {E[i,j]=1}
    else {E[i,j]=0}
  }
}
};
myf(4)