> Hi All,
>
>
> > act_2
> Date Dtime Hour Min Second Rep
> 51 2006-02-22 14:52:18 14 52 18 useractivity_act
> 52 2006-02-22 14:52:18 14 52 18 4
> 55 2006-02-22 14:52:49 14 52 49 4
> 57 2006-02-22 14:52:51 14 52 51 4
> 58 2006-02-22 14:52:52 14 52 52 3
> 60 2006-02-22 14:54:42 14 54 42 useractivity_idle
>
> I want to change act_2 to
> Date Dtime Hour Min Second Rep
>
> 51 2006-02-22 14:52:18 14 52 18 useractivity_act
>
> 52 2006-02-22 14:52:18 14 52 18 4
> 58 2006-02-22 14:52:52 14 52 52 3
> 60 2006-02-22 14:54:42 14 54 42 useractivity_idle
>
> in other word, I want to keep 1st if there are many repeated value,
> I made the program as:
>
>
> rm_r<-function(act_2){
> dm<-dim(act_2)[1]-1
> for(i in 2:dm){
>
> if(act_2$Rep[i+1]==act_2$Rep[i]){
> act_2<-act_2[-(i+1),]
> }else{
> act_2<-act_2
> }
> }
> return(act_2)
> }
>
> when it moved one row on 1st loop, i should still start 2 but it
> become 3 at 2nd loop, if I add i<-i-1, then i go to 1
> seems not reasonbale. How should I modify it`?
Please don't repeatedly post the same question - it is irritating, and
you're not likely to get a favourable response. Try explaining your
problem more clearly. What is the condition that you want to use to keep
rows? (In your example, each of the rows is different, yet you kept some
and discarded others.)
If you just want to discard some rows form a data frame, you don't need a
loop, e.g.
dfr <- data.frame(x=1:10, y=runif(10))
dfr[c(1,3,5,5),]
Regards,
Richie.
Mathematical Sciences Unit
HSL
------------------------------------------------------------------------
ATTENTION:
This message contains privileged and confidential inform...{{dropped:20}}
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
