[R] Removing

David Winsemius dwinsemius at comcast.net
Thu Mar 12 15:31:46 CET 2009


Much simpler would be:

act2[!duplicated(act2$Rep),]   #use the negation of the duplicated  
function on $Rep and indexing

          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

Cannot reproduce the blank line though.
-- 
David Winsemius


On Mar 12, 2009, at 5:02 AM, Tammy Ma wrote:

>
> 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[j]==act_2$Rep[i]){
>   act_2<-act_2[-j,]
> }else{
> act_2<-act_2
> }
> }
> return(act_2)
> }
>
> But it only remove one row..whats the problem? How should i modify  
> it? Thanks  alot.
>
> Tammy
>
>
> _________________________________________________________________
> Invite your mail contacts to join your friends list with Windows  
> Live Spaces. It's easy!
> http://spaces.live.com/spacesapi.aspx?wx_action=create&wx_url=/friends.aspx&mkt=en-us
> 	[[alternative HTML version deleted]]
>
> ______________________________________________
> R-help at 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.

David Winsemius, MD
Heritage Laboratories
West Hartford, CT




More information about the R-help mailing list