Jean,

Take a look at the cut() function,
?cut

For example ...

mydf <- data.frame(nest=1:100, d2veg=runif(100, 0, 60))
mydf$dgroup <- cut(mydf$d2veg, breaks=seq(0, 70, 5), include.lowest=TRUE)
head(mydf)

(another) Jean



Jhope <jeanwaijang@gmail.com> wrote on 10/04/2012 02:27:38 AM:
> 
> Hi R listers, 
> 
> I am trying to group distances of nests to the vegetation into classes 
that
> are define by (0-5m, 6-10m, 11-15m, 16-20m, 21-25m, 26-30m, 31-35m, 
36-40m,
> 41-45m, 46-50m, 51-55m, 56-60m). Each row is a nest and all the 
distances to
> the vegetation is in a column. 
> 
> In plyr, I have tried - below script but I think I am going about this 
the
> wrong way and am not successful. 
> 
> #Veg index star = resp
> Veg.index <- function(values, weights=c(0, 5, 10, 15, 20, 25, 30, 35, 
40,
> 45, 50, 55, 60, 65, 70)) {
>   star <- values*weights
>   return(apply(star, 1, sum) / apply(values, 1, sum))
> }
> data.to.analyze$VegIndex <- Veg.index(data.to.analyze[,c("0", "5", "10",
> "15", "20", "25", "30", "35", "40", "45", "50", "55", "60", "65", 
"70")])
> write.csv(data.to.analyze, "3turtlehatch.csv", row.names=FALSE)
> 
> Please advise, Jean

	[[alternative HTML version deleted]]


