Programmation R + matrice triangulaire sup

Bonjour,

J'aimerais savoir comment vous feriez sous R pour vérifier qu'une matrice est une matrice triangulaire supérieure.
J'avais commencé un petit travail mais je suis vraiment peu certaine de moi :

{A<-matrix(1:4,nrow=2,ncol=2,byrow=TRUE);
x<-c(0,0,0);
y<-c(1,1,1);
for (i in 1:nrow(A))
{for (j in 1:ncol(A))
if ((i==j)&&(A[i,j]!=0))
{x[1]<-1;
}
if ((i>j)&(A[i,]>A[,j])!=0)
{x[2]<-1;
}
if ((i<j)&(A[i,]>A[,j])==0)
{x[3]<-1;
}}
if (x==y)
{print("la matrice est une matrice triangulaire supérieure");
} else
{print("la matrice n'est pas une matrice triangulaire supérieure");
}
}
x

Merci d'avance pour votre réponse !