[R] who can give me some hint?

[Richard.Cotton at hsl.gov.uk]

>  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}}