From 9d20e38318450d310da0ae2f1e7aa58ccf6aa9a9 Mon Sep 17 00:00:00 2001
From: adokter <adriaandokter@gmail.com>
Date: Mon, 26 Jun 2017 14:37:36 +0200
Subject: [PATCH] Fixes to pass CRAN checks

---
 DESCRIPTION          | 2 +-
 R/DroppingInterval.R | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 985a67a..caec98b 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -5,7 +5,7 @@ Version: 1.0.0
 Date: 2017-06-26
 Author: Adriaan M. Dokter
 Maintainer: Adriaan M. Dokter <a.m.dokter@uva.nl>
-Description: package IntRvals calculates event rates and compares means and variances of groups of interval data corrected for missed arrival observations.
+Description: Calculates event rates and compares means and variances of groups of interval data corrected for missed arrival observations.
 License: GNU General Public License
 Imports: plyr,lme4
 LazyData: TRUE
diff --git a/R/DroppingInterval.R b/R/DroppingInterval.R
index 5a9c918..ef36e74 100644
--- a/R/DroppingInterval.R
+++ b/R/DroppingInterval.R
@@ -1375,6 +1375,8 @@ partition=function(x,conf.level=0.9,alpha=0.05,silent=F){
     return(list('p<alpha'=F,sigma.within=NA,sigma=x$sigma,p.within=NA,n.within=NA,n.repeat=0,n.total=length(x$data)))
   }
   dat.fund=data.frame(interval=x$data[index],group_id=x$group[index])
+  # suppress CRAN checks on invisible binding
+  interval=NULL
   # calculate group statistics
   dat.fund=ddply(dat.fund, c("group_id"), transform, offset = scale(interval,scale=F), mean = mean(interval), n = length(interval))
   if(!silent) cat(paste("intervals in fundamental:",nrow(dat.fund),"of",length(x$data)))