From 1381adb79db8dd621c4b3c6c69174ed0f0b181b5 Mon Sep 17 00:00:00 2001
From: alexkrohn <alexkrohn@users.noreply.github.com>
Date: Fri, 8 Mar 2024 14:07:39 -0500
Subject: [PATCH] Update alignped4.R

Fixed quotes in warning messages
---
 R/alignped4.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/alignped4.R b/R/alignped4.R
index 1431d2ef..47d9325b 100644
--- a/R/alignped4.R
+++ b/R/alignped4.R
@@ -136,12 +136,12 @@ alignped4 <- function(rval, spouse, level, width, align) {
         solve.QP(pp, rep(0., n), t(cmat), dvec)
       },
       warning = function(w) {
-        message(Solve QP ended with a warning)
-        message()(w)
+        message("Solve QP ended with a warning")
+        message(w)
         return(NA)
       },
       error = function(e) {
-        message(Solve QP ended with an error)
+        message("Solve QP ended with an error")
         message(w)
         return(NA)
       }