View source: R/U_box_activity.R
| box_activity | R Documentation | 
Box activity estimate based on light-barrier to transponder ratio
box_activity(lastday, days_before = 1)
| lastday | a Date object | 
A data.table
MV
    
## Not run: 
   x = box_activity()
   require(ggplot2)   
   require(ggrepel)   
  
  ggplot(x, aes(x = log(total_tr_reads+1), y = log(total_lb_reads), 
          color = `N_transp\ndetected`  ) ) +
  geom_point() + geom_abline(intercept = 0, slope = 1) + 
  geom_text_repel(data =x[unk_act > .5], 
   aes(x = log(total_tr_reads+1), y = log(total_lb_reads), label = box) ) +
   xlab('log [ total transponder reads]') + 
   ylab('log [ total light-barrier reads]') + 
    scale_colour_brewer(palette = "Set1")
 
## End(Not run)            
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.