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