w******4
发帖数: 488 | 1 > work <- work[order(work$weekdays),]
> ncol(sapply(split(work,work$weekdays),function(Z){
tmp<-Z[1,]
tmp}))
The result is 5. And this is the first week of Year 2012... | c**y
发帖数: 2282 | 2 这什么语言呀
【在 w******4 的大作中提到】
: > work <- work[order(work$weekdays),]
: > ncol(sapply(split(work,work$weekdays),function(Z){
: tmp<-Z[1,]
: tmp}))
: The result is 5. And this is the first week of Year 2012...
| w******4
发帖数: 488 | 3 R
【在 c**y 的大作中提到】
: 这什么语言呀
| w******4
发帖数: 488 | 4 R
【在 c**y 的大作中提到】
: 这什么语言呀
|
|
