From a7d1a48c01fdba7b801f4e92cb4870060e9e0e16 Mon Sep 17 00:00:00 2001
From: Michael Chirico <chiricom@google.com>
Date: Sat, 28 Jan 2023 12:38:20 -0800
Subject: [PATCH] replace defunct 'as.real' call

---
 R/coeftab.r | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/coeftab.r b/R/coeftab.r
index f4b2516..0fc7044 100644
--- a/R/coeftab.r
+++ b/R/coeftab.r
@@ -118,7 +118,7 @@ coeftab <- function( ... , se=FALSE , se.inside=FALSE , nobs=TRUE , digits=2 , w
                     d[i,][ paste(names(kse)[j],".se",sep="") ] <- as.numeric( round(kse[j],digits) )
                 else
                     # combine with estimate
-                    d[i,][ names(kse)[j] ] <- paste( formatC( (d[i,][ names(kse)[j] ]) , digits=digits ) , " (" , formatC( as.real( kse[j] ) , digits=digits ) , ")" , sep="" )
+                    d[i,][ names(kse)[j] ] <- paste( formatC( (d[i,][ names(kse)[j] ]) , digits=digits ) , " (" , formatC( as.double( kse[j] ) , digits=digits ) , ")" , sep="" )
             }
         }
     }