如何在输出文件中抑制 stargazer() 信息在实际表之前

如何解决如何在输出文件中抑制 stargazer() 信息在实际表之前

我正在尝试使用 stargazer 创建一个表，但我只想包含该表而不是该表之前的输出。我不确定我是格式问题还是底层对象有问题。

# load packages
library(quantmod)
library(stargazer)
library(forecast)

# Get data from FRED
TXPCPI <- getSymbols(Symbols = "TXPCPI",src = "FRED",auto.assign = FALSE)
# Percentage change in personal income in Texas
gTXPCPI <- 100*(TXPCPI - lag.xts(TXPCPI,1))/lag.xts(TXPCPI,1)
# Training sample subset
training_sample <- index(gTXPCPI["1947/2010"])
# AR(1) and AR(2) processes
ar1 <- arima(gTXPCPI[training_sample],order = c(1,0))
ar2 <- arima(gTXPCPI[training_sample],order = c(2,0))
# Format to fit inside single table
model_names <- c("AR(1)","AR(2)") 
model <- list()
model$ar1 <- ar1
model$ar2 <- ar2
# Print table
star <- capture.output(stargazer(model,header = FALSE,single.row = TRUE,column.labels = model_names,dep.var.labels.include = FALSE,report = "vc*",dep.var.caption =
"Texas Per Capita Income Growth",type = "latex"))
star <- sub('^.+\\caption.+$','',star) 
cat(star,sep='\n')

输出：

Call:
arima(x = gTXPCPI[training_sample],0))

Coefficients:
         ar1  intercept
      0.5221     5.8438
s.e.  0.1055     0.7663

sigma^2 estimated as 8.876:  log likelihood = -160.84,aic = 327.68

Training set error measures:
                      ME     RMSE      MAE       MPE     MAPE      MASE
Training set -0.03052831 2.979283 2.235901 -27.58182 94.34842 0.9028272
                   ACF1
Training set -0.1138154

Call:
arima(x = gTXPCPI[training_sample],0))

Coefficients:
         ar1     ar2  intercept
      0.3762  0.2832     5.7120
s.e.  0.1235  0.1367     1.0182

sigma^2 estimated as 8.3:  log likelihood = -158.78,aic = 325.56

Training set error measures:
                      ME    RMSE     MAE       MPE     MAPE      MASE
Training set -0.04680256 2.88103 2.16846 -23.23882 92.33665 0.8755952
                    ACF1
Training set -0.01369017

\begin{table}[!htbp] \centering 

  \label{} 
\begin{tabular}{@{\extracolsep{5pt}}lcc} 
\\[-1.8ex]\hline 
\hline \\[-1.8ex] 
 & \multicolumn{2}{c}{Texas Per Capita Income Growth} \\ 
\cline{2-3} 
 & AR(1) & AR(2) \\ 
\\[-1.8ex] & (1) & (2)\\ 
\hline \\[-1.8ex] 
 ar1 & 0.522$^{***}$ & 0.376$^{***}$ \\ 
  ar2 &  & 0.283$^{**}$ \\ 
  intercept & 5.844$^{***}$ & 5.712$^{***}$ \\ 
 \hline \\[-1.8ex] 
Observations & 64 & 64 \\ 
Log Likelihood & $-$160.839 & $-$158.778 \\ 
$\sigma^{2}$ & 8.876 & 8.300 \\ 
Akaike Inf. Crit. & 327.678 & 325.556 \\ 
\hline 
\hline \\[-1.8ex] 
\textit{Note:}  & \multicolumn{2}{r}{$^{*}$p$<$0.1; $^{**}$p$<$0.05; $^{***}$p$<$0.01} \\ 
\end{tabular} 
\end{table}

我不想在 \begin{table}[!htbp] \centering 之前包含任何输出。我以前从未见过这个问题，对导致它的原因或如何解决它一无所知。如果需要，我可以添加更多详细信息，如果您在复制代码时遇到问题，请告诉我。

编辑： 其余代码

# Get data from FRED
TXPCPI <- getSymbols(Symbols = "TXPCPI",1)
# Training sample subset
training_sample <- index(gTXPCPI["1947/2010"])