如何保存模型输出？

如何解决如何保存模型输出？

我的面板数据如下所示：

Option Explicit

Sub Create_Project_Multiple_Folder()

    Dim Rng As Range,rw As Range,c As Range
    Dim sPath1 As String,tmp As String
    Dim sh As Worksheet

    Set sh = ThisWorkbook.Sheets("Contractor Checklist")

    Dim sub_folder_path As String
    Dim i As Integer

For i = 9 To sh.Range("A" & Application.Rows.Count).End(xlUp).Row

        sub_folder_path = "P:\TEST" & Application.PathSeparator & sh.Range("A" & i).Value
        'sub_folder_path = sh.Range("C1").Value & Application.PathSeparator & sh.Range("A" & i).Value

    If Dir(sub_folder_path,vbDirectory) = "" Then

        MkDir (sub_folder_path)

        sh.Range("V" & i).Value = "Folder Created"
        'Range("A" & i).Interior.ColorIndex = 4
    Else
        sh.Range("V" & i).Value = "Folder already available"
    End If

    Set Rng = Range("B9:E16")

    For Each rw In Rng.Columns
      '  sPath1 = sub_folder_path
        For Each c In rw.Cells
            tmp = Trim(c.Value)
            If Len(tmp) = 0 Then
                Exit For
            Else
                'sPath = sPath & Range("A1").Value & tmp & "\"
                sPath1 = sub_folder_path & "\" & tmp & "\"
                If Len(Dir(sPath1,vbDirectory)) = 0 Then MkDir sPath1
            End If
        Next c
    Next rw

Next i

End Sub

我运行了以下模型：

emp_id  emp_is_rewarded   month    year    department    salary
222            0            1      1997        IT        70000
.
.
.
222            1            12     2002        IT        90000
333            0            1      1997        HR        40000
.
.
.
333            1            12     2002        HR        55000...

但是当我尝试使用stargazer保存模型输出时，

model <- feols(salary ~ emp_is_rewarded | emp_id + month + year + department,df)

显示错误：

stargazer(model,type = "html",out = ".../model.htm")

所以请让我知道它的含义。