version 1.0.2

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: greybox
 Type: Package
 Title: Toolbox for Model Building and Forecasting
-Version: 1.0.1
-Date: 2021-09-21
+Version: 1.0.2
+Date: 2021-12-01
 Authors@R: c(person("Ivan", "Svetunkov", email = "ivan@svetunkov.ru", role = c("aut", "cre"),
                   comment="Lecturer at Centre for Marketing Analytics and Forecasting, Lancaster University, UK"),
              person("Yves R.", "Sagaert", role = c("ctb"),
@@ -30,11 +30,11 @@ RoxygenNote: 7.1.1
 VignetteBuilder: knitr
 Encoding: UTF-8
 NeedsCompilation: yes
-Packaged: 2021-09-21 17:49:19 UTC; config
+Packaged: 2021-11-30 23:49:47 UTC; config
 Author: Ivan Svetunkov [aut, cre] (Lecturer at Centre for Marketing Analytics
     and Forecasting, Lancaster University, UK),
   Yves R. Sagaert [ctb] (Visiting Research at Centre for Marketing
     Analytics and Forecasting, Lancaster University, UK)
 Maintainer: Ivan Svetunkov <ivan@svetunkov.ru>
 Repository: CRAN
-Date/Publication: 2021-09-22 08:50:05 UTC
+Date/Publication: 2021-12-01 07:50:02 UTC

MD5

@@ -1,9 +1,9 @@
-1696d19ea198117b6730f31ad54fc37f *DESCRIPTION
+a1e7f005704605b89626b7235ddf7848 *DESCRIPTION
 1a869cb65120807545f7cae04e59af7f *NAMESPACE
-8e7bb17f7edcf06844262b25caa9f991 *NEWS
+fecb65222c9ac71039e49d452bb9354b *NEWS
 b04f00196442fad912053f13321c737f *R/RcppExports.R
 84102924dc2ea9f9e6a6617a36c72b17 *R/alaplace.R
-3571027538a53fcdb73cf32189bd4e4a *R/alm.R
+2ffb5ff86d0f02f256b7d3269d93d6b7 *R/alm.R
 7f57915462e0aded02869de96d8eb3f9 *R/association.R
 80bfe3c5a617af67cc15f5624113138a *R/bcnorm.R
 d056586e3cae9050471ff0c4a480c3f3 *R/coefbootstrap.R
@@ -28,7 +28,7 @@ c3f66f453aac76ab1434b1157a947a53 *R/laplace.R
 08e116585c9cd7d3cc474d095dcff303 *R/rmcb.R
 1388d5674a0ec484be12d4be702cb7bd *R/ro.R
 cca5f35f48f22824b2266764af2e0cd1 *R/scaler.R
-2fa996d255c09ea8361d3e6847507e47 *R/spread.R
+0c69dd93f08fd6a0eac3b18d648b92d4 *R/spread.R
 7cafa6e9aea7f3db1a301b0874020236 *R/stepwise.R
 c0dcee3748719186f72a9d1db2850232 *R/svet.R
 dd5249700fe80009f7954f8c9bf2d1f8 *R/tableplot.R
@@ -37,22 +37,22 @@ ecd3e77665fe428e2035ea8c5726cc85 *R/tplnorm.R
 fd8048081217c0a47442e805713b5dae *R/xregExpander.R
 bdb7ecee051a442d310f4e83e6e9865d *R/xregMultiplier.R
 964ae5b1c6a404c9bcfdb87d7512f2c3 *R/xregTransformer.R
-15085c68a39b2348bd455a143c1401f5 *R/zzz.R
+1319ac04db470f9410600e62d35fde38 *R/zzz.R
 4d455c144e16325d724e5b057bb3432c *README.md
-eae5e24d1a30a972d483f471c169f5c9 *build/partial.rdb
-8fa101f8a798e28a1e058114020bcc32 *build/vignette.rds
+93a090981f697527711880436baccdb5 *build/partial.rdb
+a588e57e375fd59a2995a7a1444ba2d7 *build/vignette.rds
 92a2d13f9591a56dee4c887ac4183da4 *inst/doc/alm.R
 f3a0f27a1a322cf68bac89b785e40ec8 *inst/doc/alm.Rmd
-195b421f37750594c5d2b81008fdb7be *inst/doc/alm.html
+579159332b1d2f5b0441c95ae5e19a4f *inst/doc/alm.html
 75d5150f03862add1eaf3c26ef9b289a *inst/doc/greybox.R
 928d78f6bdd54bfc5adc543975288559 *inst/doc/greybox.Rmd
-b361a4902dbead1c0a7f6040e9bba5a0 *inst/doc/greybox.html
+2aac4fa8ef31e69aed7434e8b98e38c3 *inst/doc/greybox.html
 35f3b10303d1942a7d0726228f9fe5d4 *inst/doc/maUsingGreybox.R
 6b5fcb2644ce454ac2bf05431c2e36ef *inst/doc/maUsingGreybox.Rmd
-1cc053d3e37ad1c56d4f93611ea432d4 *inst/doc/maUsingGreybox.html
+17915277dd1f9827cb8e1ba03aeb6ad0 *inst/doc/maUsingGreybox.html
 10b8eca7f21953371ad6814000a88e7d *inst/doc/ro.R
 19ceb5991b7e482e47e8bc8f75ff5b5c *inst/doc/ro.Rmd
-c46df1f0db4c56fd9f567fb565443277 *inst/doc/ro.html
+4cb8a2bcaea84f0243e2ce06db8a5e0a *inst/doc/ro.html
 084cfd9d04d61751b81f50f6017fa29d *man/ALaplace.Rd
 86b0ff67fc5f746252e691cb2ec7e913 *man/BCNormal.Rd
 06dfe4ddda355a61e1414d16b970e76d *man/FNormal.Rd

NEWS

@@ -1,3 +1,14 @@
+greybox v1.0.2 (Release data: 2021-12-01)
+==============
+
+Changes:
+* Trying to resolve the long lasting issue with forecast generic again.
+* alm() now returns a proper formula if user asked for something like "variable~."
+
+Bugfixes:
+* spread() would not produce correct labels in cases of missing values in numerical variables.
+
+
 greybox v1.0.1 (Release data: 2021-09-21)
 ==============
 

R/alm.R

@@ -1072,6 +1072,7 @@ alm <- function(formula, data, subset, na.action,
 
     dataWork <- eval(mf, parent.frame());
     dataTerms <- terms(dataWork);
+    cl$formula <- formula(dataTerms);
     # Make this numeric, to address potential issues with zoo + data.table
     y <- as.numeric(dataWork[,1]);
 

R/spread.R

@@ -119,7 +119,7 @@ spread <- function(data, histograms=FALSE, log=FALSE, lowess=FALSE, ...){
                     }
                     else{
                         if(numericData[i]){
-                            midPoint <- (max(data[[i]])+min(data[[i]]))/2;
+                            midPoint <- (max(data[[i]], na.rm=TRUE)+min(data[[i]], na.rm=TRUE))/2;
                             plot(data[[i]], data[[i]], col="white", axes=FALSE);
                             text(midPoint,midPoint,variablesNames[i],cex=1.5);
                         }

R/zzz.R

@@ -57,7 +57,7 @@ overwrite_S3_method <- function(pkg, generic){
 .onLoad <- function(...) {
   # Do things if fabletools is present in the installed packages
   if(length(find.package("fabletools", quiet=TRUE, verbose=FALSE))!=0){
-    overwrite_S3_method("fabletools","forecast");
+    # overwrite_S3_method("fabletools","forecast");
     register_S3_method("fabletools","forecast","greybox");
     register_S3_method("fabletools","forecast","alm");
   }

inst/doc/greybox.html

@@ -12,7 +12,7 @@
 
 <meta name="author" content="Ivan Svetunkov" />
 
-<meta name="date" content="2021-09-21" />
+<meta name="date" content="2021-11-30" />
 
 <title>Greybox main vignette</title>
 
@@ -163,7 +163,7 @@
 
 <h1 class="title toc-ignore">Greybox main vignette</h1>
 <h4 class="author">Ivan Svetunkov</h4>
-<h4 class="date">2021-09-21</h4>
+<h4 class="date">2021-11-30</h4>
 
 
 
@@ -284,7 +284,7 @@ <h2>stepwise</h2>
 <div class="sourceCode" id="cb5"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb5-1"><a href="#cb5-1" aria-hidden="true" tabindex="-1"></a>ourModel <span class="ot">&lt;-</span> <span class="fu">stepwise</span>(BJxreg)</span></code></pre></div>
 <p>And here’s what it returns (the object of class <code>lm</code>):</p>
 <div class="sourceCode" id="cb6"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb6-1"><a href="#cb6-1" aria-hidden="true" tabindex="-1"></a>ourModel</span>
-<span id="cb6-2"><a href="#cb6-2" aria-hidden="true" tabindex="-1"></a><span class="co">#&gt; Time elapsed: 0.08 seconds</span></span>
+<span id="cb6-2"><a href="#cb6-2" aria-hidden="true" tabindex="-1"></a><span class="co">#&gt; Time elapsed: 0.07 seconds</span></span>
 <span id="cb6-3"><a href="#cb6-3" aria-hidden="true" tabindex="-1"></a><span class="co">#&gt; Call:</span></span>
 <span id="cb6-4"><a href="#cb6-4" aria-hidden="true" tabindex="-1"></a><span class="co">#&gt; alm(formula = y ~ xLag4 + xLag9 + xLag3 + xLag10 + xLag5 + xLag6 + </span></span>
 <span id="cb6-5"><a href="#cb6-5" aria-hidden="true" tabindex="-1"></a><span class="co">#&gt;     xLead9 + xLag7 + xLag8, data = data, distribution = &quot;dnorm&quot;)</span></span>

inst/doc/maUsingGreybox.html

@@ -12,7 +12,7 @@
 
 <meta name="author" content="Ivan Svetunkov" />
 
-<meta name="date" content="2021-09-21" />
+<meta name="date" content="2021-11-30" />
 
 <title>Marketing analytics with greybox</title>
 
@@ -141,7 +141,7 @@
 
 <h1 class="title toc-ignore">Marketing analytics with greybox</h1>
 <h4 class="author">Ivan Svetunkov</h4>
-<h4 class="date">2021-09-21</h4>
+<h4 class="date">2021-11-30</h4>