

 
 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`?
 
Tammy
_________________________________________________________________
Drag n’ drop—Get easy photo sharing with Windows Live™ Photos.

http://www.microsoft.com/windows/windowslive/products/photos.aspx
	[[alternative HTML version deleted]]


