Hello,
>
> my idea is to get results like this:
> user, sector, source, destine, count, average
> 7 1 22 22 4 186.25 #
> (109+100+214+322)
> 7 2 161 97 1 68
> 7 2 97 97 1 196
> 7 2 97 22 1 427
> 7 2 22 22 2 383
>
Your second column, 'sector', comes from where? What is it?
Without it, try this.
text="
user pos communications source v_destine
7 1 109 22 22
7 2 100 22 22
7 3 214 22 22
7 4 322 22 22
7 5 69920 22 161
7 6 68 161 97
7 7 196 97 97
7 8 427 97 22
7 9 460 22 22
7 10 307 22 22
7 11 9582 22 22
7 12 55428 22 22
7 13 9192 22 22
7 14 19 22 22
"
df1 <- read.table(textConnection(text), header=TRUE)
inx <- df1$comm > 1000
comm1000 <- cumsum(inx)
result <- split(df1[!inx, ], list(comm1000[!inx], df1$source[!inx],
df1$v_destine[!inx]))
result <- sapply(result, function(x) c(x$user[1], x$source[1],
x$v_destine[1], nrow(x), mean(x$comm)))
result <- na.exclude(t(result))
rownames(result) <- 1:nrow(result)
colnames(result) <- c("user", "source",
"v_destine", "count", "average")
attr(result, "na.action") <- NULL
attr(result, "class") <- NULL
result
Hope this helps,
Rui Barradas
--
View this message in context:
http://r.789695.n4.nabble.com/R-extract-parts-tp4509042p4510566.html
Sent from the R help mailing list archive at Nabble.com.