DZone Snippets is a public source code repository. Easily build up your personal collection of code snippets, categorize them with tags / keywords, and share them with the world
Create An Identity Matrix.
> diag(n)
Or the long way:
> n<-c(5) > I <- matrix(0,nrow=n,ncol=n) > I[row(I)==col(I)] <- 1





