data2elrm<-cbind(mydata,n=rep(1,dim(mydata)[1]))
>
 More logic would be:

data2elrm2<-cbind(mydata,n=rep(1,nrow(mydata)))

Sorry for obfuscation.

-- 
Miłego dnia

	[[alternative HTML version deleted]]

