avoid partial matching

R/pmc.R

@@ -130,8 +130,8 @@ pmc_fit <- function(tree, data, model, ...){
 plot.pmc <- function(x, ...){
     df <- data.frame(null = x$null, test = x$test)
     dat <- tidyr::gather_(df, "variable", "value", gather_cols = c("null", "test"))
-    ggplot(dat) + geom_density(aes_string("value", fill="variable"), alpha=.7) +
-           geom_vline(x=x$lr, lwd=1, lty=2)
+    ggplot(dat) + geom_density(aes_string("value", fill = "variable"), alpha = .7) +
+           geom_vline(xintercept = x$lr, lwd = 1, lty = 2)
 }
 
 

pmc.Rproj

@@ -0,0 +1,17 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX
+
+BuildType: Package
+PackageUseDevtools: Yes
+PackageInstallArgs: --no-multiarch --with-keep.source