Hi Arun, There is one more question... you explained me how to use split(dat1,cumsum(dat1$action=="login")) in one of previous questions, and that is great. Now, if I have something like this:
id module event time time_on_task 1 sys login 1373502892 80 2 task add 1373502892 80 3 task add 1373502972 23 4 sys login 1373502892 80 5 list delete 1373502995 901 6 list view 1373503896 100 7 task add 1373503996 NA I know how to split at each "login" occurrence, and I know how to add new column with time differences. But, how to add new column "category" which will be calculated based on columns "module" and "even"? For example if module=task and event=add => category= A... Srecko On Thu, Aug 29, 2013 at 11:22 AM, arun <smartpink...@yahoo.com> wrote: > Hi Srecko, > No problem. > Regards, > Arun > > > > > > > ________________________________ > From: srecko joksimovic <sreckojoksimo...@gmail.com> > To: arun <smartpink...@yahoo.com> > Sent: Thursday, August 29, 2013 2:22 PM > Subject: Re: [R] Add new calculated column to data frame > > > > Sorry... I should figure it out... > > thanks so much! > Srecko > > > > On Thu, Aug 29, 2013 at 11:21 AM, arun <smartpink...@yahoo.com> wrote: > > Hi, > >The one you showed is: > > > >dat1$time_on_task<- c(diff(dat1$time),NA) > > > > dat1 > ># id event time time_on_task > >#1 1 add 1373502892 80 > > > >#2 2 add 1373502972 23 > >#3 3 delete 1373502995 901 > >#4 4 view 1373503896 100 > >#5 5 add 1373503996 NA > > > > > > > > > >________________________________ > >From: srecko joksimovic <sreckojoksimo...@gmail.com> > > > >To: arun <smartpink...@yahoo.com> > >Cc: R help <r-help@r-project.org> > >Sent: Thursday, August 29, 2013 2:15 PM > >Subject: Re: [R] Add new calculated column to data frame > > > > > > > > > >Thanks Arun, > > > >this is great. However, it should be just a little bit different: > > > ># id event time time_on_task > >#1 1 add 1373502892 80 > >#2 2 add 1373502972 23 > >#3 3 delete 1373502995 901 > >#4 4 view 1373503896 100 > >#5 5 add 1373503996 NA > > > > > >When I calculate difference, I need to know how long each activity was. > It is id2-id1 for the first activity... > > > > > > > >On Thu, Aug 29, 2013 at 11:03 AM, arun <smartpink...@yahoo.com> wrote: > > > > > >> > >>Hi, > >>Try: > >>dat1<- read.table(text=" > >>id event time > >> > >>1 add 1373502892 > >>2 add 1373502972 > >>3 delete 1373502995 > >>4 view 1373503896 > >>5 add 1373503996 > >>",sep="",header=TRUE,stringsAsFactors=FALSE) > >> dat1$time_on_task<- c(NA,diff(dat1$time)) > >> dat1 > >># id event time time_on_task > >>#1 1 add 1373502892 NA > >>#2 2 add 1373502972 80 > >>#3 3 delete 1373502995 23 > >>#4 4 view 1373503896 901 > >>#5 5 add 1373503996 100 > >> > >>#Not sure whether this depends on the values of "event" or not.. > >>A.K. > >> > >> > >> > >> > >> > >> > >>----- Original Message ----- > >>From: srecko joksimovic <sreckojoksimo...@gmail.com> > >>To: R help <R-help@r-project.org> > >>Cc: > >>Sent: Thursday, August 29, 2013 1:52 PM > >>Subject: [R] Add new calculated column to data frame > >> > >>Hi, > >> > >>I have a following data set: > >>id event time (in sec) > >>1 add 1373502892 > >>2 add 1373502972 > >>3 delete 1373502995 > >>4 view 1373503896 > >>5 add 1373503996 > >>... > >> > >>I'd like to add new column "time on task" which is time elapsed between > two > >>events (id2 - id1...). What would be the best approach to do that? > >> > >>Thanks, > >>Srecko > >> > >> [[alternative HTML version deleted]] > >> > >>______________________________________________ > >>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. > >> > >> > > > [[alternative HTML version deleted]] ______________________________________________ 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.
