actor")), .Names = c("Tag", "site",
> "DATE", "date"), row.names = c(NA, -3L), class = "data.frame")
>
> A$date<-factor(A$DATE, levels=c("t1","t2","t3"))
> tmp <- split(A, A$Tag)
> head(tmp)
&
Hi Kristi,
This is a bit hard to follow, but I'll try. As you are replacing the
numeric values of the intermediate table with the character values of the
factor A$date, it looks to me as though the answer is as it should be. 2 ->
ENL, 3 -> ENM. I suspect that the solution is not difficult, but I
te"), row.names = c(NA, -3L), class = "data.frame")
A$date<-factor(A$DATE, levels=c("t1","t2","t3"))
tmp <- split(A, A$Tag)
head(tmp)
tail(tmp)
tmp1 <- do.call(rbind, lapply(tmp, function(x){
tb <- table(A$date)
idx <- which(tb>0)
t
3 matches
Mail list logo