Version 1.2.1 patch update

Author: tylerJPike

.Rbuildignore

@@ -11,3 +11,4 @@
 ^CRAN-RELEASE$
 ^development_test.R$
 ^\.github$
+^CRAN-SUBMISSION$

.github/.gitignore

@@ -1 +1,2 @@
 *.html
+cran-comments.md

.gitignore

@@ -3,4 +3,4 @@
 .RData
 .Ruserdata
 to-do.md  
-CRAN-RELEASE
+cran-comments.md

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: sovereign
 Title: State-Dependent Empirical Analysis 
-Version: 1.2.0
+Version: 1.2.1
 Authors@R: 
     person(given = "Tyler J.",
            family = "Pike",

NEWS.md

@@ -1,5 +1,11 @@
 # Sovereign: State-Dependent Empirical Analysis  
 
+## Version 1.2.1
+(2021-12-30)
+- Bug fixes
+  - removed as.vector() call in solve_b.R
+  - change is.na to anyNA in regimes()
+
 ## Version 1.2.0 
 (2021-07-23)
 

R/covid_correction.R

@@ -147,7 +147,8 @@ covid_volatility_correction = function(
       N = N
     )
 
-  theta = as.vector(theta$par)
+  # theta = as.vector(theta$par)
+  theta = theta$par
 
   # correct data -------------------------------
 

R/regimes.R

@@ -90,7 +90,7 @@ regimes = function(
     breakpoints = strucchange::breakpoints(x ~ lag(x), data = X)
     breakpoints$breakpoints
 
-    if(is.na(breakpoints$breakpoints)){
+    if(anyNA(breakpoints$breakpoints)){
       regimes = data.frame(date = X.date, X, regime = 0)
     }else{
       regimes.val = c(0:length(breakpoints$breakpoints))

R/sovle_b.R

@@ -85,8 +85,7 @@ solve_B = function(var, report_iv = TRUE){
         second_stage_beta = model.second_stage$coefficients[2]
         return(second_stage_beta)
 
-      }) %>%
-      as.vector()
+      })
 
     # scale size of the shock
     #  see Gertler and Karadi (2015) for background

README.md

@@ -4,7 +4,7 @@
 [![License: GPL v3](https://img.shields.io/badge/License-GPL%20v3-blue.svg)](http://www.gnu.org/licenses/gpl-3.0)
 [![CRAN status](https://www.r-pkg.org/badges/version/sovereign)](https://CRAN.R-project.org/package=sovereign)
 [![Lifecycle: stable](https://img.shields.io/badge/lifecycle-stable-brightgreen.svg)](https://lifecycle.r-lib.org/articles/stages.html)
-[![codecov](https://codecov.io/gh/tylerJPike/sovereign/branch/main/graph/badge.svg?token=WXLWR6H93B)](https://codecov.io/gh/tylerJPike/sovereign)
+[![codecov](https://codecov.io/gh/tylerJPike/sovereign/branch/main/graph/badge.svg?token=WXLWR6H93B)](https://app.codecov.io/gh/tylerJPike/sovereign)
 [![R-CMD-check](https://github.com/tylerJPike/sovereign/workflows/R-CMD-check/badge.svg)](https://github.com/tylerJPike/sovereign/actions)
 <!-- badges: end -->
 

index.md

@@ -4,7 +4,7 @@
 [![License: GPL v3](https://img.shields.io/badge/License-GPL%20v3-blue.svg)](http://www.gnu.org/licenses/gpl-3.0)
 [![CRAN status](https://www.r-pkg.org/badges/version/sovereign)](https://CRAN.R-project.org/package=sovereign)
 [![Lifecycle: stable](https://img.shields.io/badge/lifecycle-stable-brightgreen.svg)](https://lifecycle.r-lib.org/articles/stages.html)
-[![codecov](https://codecov.io/gh/tylerJPike/sovereign/branch/main/graph/badge.svg?token=WXLWR6H93B)](https://codecov.io/gh/tylerJPike/sovereign)
+[![codecov](https://codecov.io/gh/tylerJPike/sovereign/branch/main/graph/badge.svg?token=WXLWR6H93B)](https://app.codecov.io/gh/tylerJPike/sovereign)
 [![Build Status](https://travis-ci.org/tylerJPike/sovereign.svg?branch=main)](https://travis-ci.org/tylerJPike/sovereign)  
 <!-- badges: end -->