diff --git a/R/toolGetUnitDollar.R b/R/toolGetUnitDollar.R
new file mode 100644
index 0000000..502cf8f
--- /dev/null
+++ b/R/toolGetUnitDollar.R
@@ -0,0 +1,8 @@
+toolGetUnitDollar <- function(returnOnlyBase = FALSE, inPPPP = TRUE) {
+  base <- 2017
+  if (returnOnlyBase) {
+    return(base)
+  }
+  pppOrMer <- if (inPPPP) " Int$PPP" else " US$MER"
+  paste0("constant ", base, pppOrMer)
+}