Final prerelease of 0.2.1

Author: chrismainey

.Rbuildignore

@@ -14,3 +14,4 @@ cran-comments.md
 ^pkgdown$
 ^CRAN-RELEASE$
 ^README\.Rmd$
+testers.R

cran-comments.md

@@ -16,7 +16,7 @@ This is a second release of a package wrapper for ggplot2 to draw funnel plots f
 There were no ERRORs or WARNINGs.
 
 NOTES on win-builder and r-hub about possibly invalid links.
-These refer to DOIs in references in the vignette.  I've manually tested all links and they are valid.
+These refer to DOIs for references in the vignette.  I've manually tested all links and they are valid.
 
 Further note on win-builder and some r-hub builds about a CRAN reference not being in canonical form.  This has been changed to use https as suggested.
 

testsers.R

@@ -0,0 +1,41 @@
+a<-2
+b<-2
+
+if(a==1 | a==2 & b==1){
+  print("yes")
+} else print("no")
+
+
+number.seq<-seq(5,50,5)
+
+t <- 0.5
+
+t * ((qchisq(0.975, 2 * number.seq, lower.tail = FALSE) / 2) / number.seq)
+
+
+
+funnel_plot(numerator = c(8, 15,18,8,12, 22), denominator= c(12, 21, 26,15,20, 30), OD_adjust=FALSE,
+               group = factor(c("a","b","c", "d","e","f")), type = "pr", return_elements = "plot")
+)
+
+
+
+mod_plot<-data.frame(numerator = c(8, 15,18,8,12, 22), denominator= c(12, 21, 26,15,20, 30),
+               group = factor(c("a","b","c", "d","e","f")))
+
+mod_plot_agg<-aggregate_func(mod_plot)
+  
+aggregate_func<- function(mod_plot) {
+  
+  mod_plot_agg <- mod_plot %>%
+    dplyr::group_by(.data$group) %>%
+    dplyr::summarise(
+      numerator = as.numeric(sum(.data$numerator)),
+      denominator = as.numeric(sum(.data$denominator)),
+      ratio = .data$numerator / .data$denominator
+    )
+  
+  return(mod_plot_agg)
+  
+}
+