Raw Message

Message-ID: <4324103B.80801@ozemail.com.au>
Date: 2005-09-11T11:08:43Z
From: Jim Lemon
Subject: help with one matrix

Is this what you want?

make.odd.matrix<-function(matsize) {
  newmat<-matrix(0,nrow=matsize,ncol=matsize)
  for(i in 1:matsize) {
   for(j in 1:matsize)
    newmat[i,j]<-ifelse(i==j,NA,abs(i-j)+1)
  }
  return(newmat)
}

Jim