Re: [R] binned tabulation

2012-04-09 Thread Rui Barradas
Hello, Jean V Adams wrote > > Delia, > > name <- data.frame(Behavior=c(1, 2, 1, 2, 1), Time=c(0, 40, 45, 55, 57)) > > appear <- name$Time[name$Behavior==1] > disappear <- name$Time[name$Behavior==2] > if(length(appear) > length(disappear)) disappear <- c(disappear, 60) > sum(disappear - appear

Re: [R] binned tabulation

2012-04-09 Thread Jean V Adams
Delia, name <- data.frame(Behavior=c(1, 2, 1, 2, 1), Time=c(0, 40, 45, 55, 57)) appear <- name$Time[name$Behavior==1] disappear <- name$Time[name$Behavior==2] if(length(appear) > length(disappear)) disappear <- c(disappear, 60) sum(disappear - appear) Delia Shelton wrote on 04/09/2012 12:30:23 P

[R] binned tabulation

2012-04-09 Thread Delia Shelton
Hi, I am attempting to tabulate binned data. The '1' represents the appearance of the focal mouse pup, and '2' represents the disappearance of the focal mouse pup. The code written below is intended to calculate the total time spent appeared out of 3600s. For Sample 1, both the hand calculat