That worked.. thanks Peter On 2/22/2011 5:40 PM, Peter Ehlers wrote: > popm <- as.matrix(pop) > recm <- matrix(rep(rec, n), nr=n, byrow=TRUE) > newpop <- data.frame(rbind(popm, recm))