```
library(tidyverse)
library(RSQLite)
library(fixest)
```

# Fixed Effects and Clustered Standard Errors

You are reading **Tidy Finance with R**. You can find the equivalent chapter for the sibling **Tidy Finance with Python** here.

In this chapter, we provide an intuitive introduction to the two popular concepts of *fixed effects regressions* and *clustered standard errors*. When working with regressions in empirical finance, you will sooner or later be confronted with discussions around how you deal with omitted variables bias and dependence in your residuals. The concepts we introduce in this chapter are designed to address such concerns.

We focus on a classical panel regression common to the corporate finance literature (e.g., Fazzari et al. 1988; Erickson and Whited 2012; Gulen and Ion 2015): firm investment modeled as a function that increases in firm cash flow and firm investment opportunities.

Typically, this investment regression uses quarterly balance sheet data provided via Compustat because it allows for richer dynamics in the regressors and more opportunities to construct variables. As we focus on the implementation of fixed effects and clustered standard errors, we use the annual Compustat data from our previous chapters and leave the estimation using quarterly data as an exercise. We demonstrate below that the regression based on annual data yields qualitatively similar results to estimations based on quarterly data from the literature, namely confirming the positive relationships between investment and the two regressors.

The current chapter relies on the following set of R packages.

Compared to previous chapters, we introduce `fixest`

(Bergé 2018) for the fixed effects regressions, the implementation of standard error clusters, and tidy estimation output.

## Data Preparation

We use CRSP and annual Compustat as data sources from our `SQLite`

-database introduced in Accessing and Managing Financial Data and WRDS, CRSP, and Compustat. In particular, Compustat provides balance sheet and income statement data on a firm level, while CRSP provides market valuations.

```
<- dbConnect(
tidy_finance SQLite(),
"data/tidy_finance_r.sqlite",
extended_types = TRUE
)
<- tbl(tidy_finance, "crsp_monthly") |>
crsp_monthly select(gvkey, month, mktcap) |>
collect()
<- tbl(tidy_finance, "compustat") |>
compustat select(datadate, gvkey, year, at, be, capx, oancf, txdb) |>
collect()
```

The classical investment regressions model the capital investment of a firm as a function of operating cash flows and Tobin’s q, a measure of a firm’s investment opportunities. We start by constructing investment and cash flows which are usually normalized by lagged total assets of a firm. In the following code chunk, we construct a *panel* of firm-year observations, so we have both cross-sectional information on firms as well as time-series information for each firm.

```
<- compustat |>
data_investment mutate(month = floor_date(datadate, "month")) |>
left_join(compustat |>
select(gvkey, year, at_lag = at) |>
mutate(year = year + 1),
join_by(gvkey, year)
|>
) filter(at > 0, at_lag > 0) |>
mutate(
investment = capx / at_lag,
cash_flows = oancf / at_lag
)
<- data_investment |>
data_investment left_join(data_investment |>
select(gvkey, year, investment_lead = investment) |>
mutate(year = year - 1),
join_by(gvkey, year)
)
```

Tobin’s q is the ratio of the market value of capital to its replacement costs. It is one of the most common regressors in corporate finance applications (e.g., Fazzari et al. 1988; Erickson and Whited 2012). We follow the implementation of Gulen and Ion (2015) and compute Tobin’s q as the market value of equity (`mktcap`

) plus the book value of assets (`at`

) minus book value of equity (`be`

) plus deferred taxes (`txdb`

), all divided by book value of assets (`at`

). Finally, we only keep observations where all variables of interest are non-missing, and the reported book value of assets is strictly positive.

```
<- data_investment |>
data_investment left_join(crsp_monthly,
join_by(gvkey, month)) |>
mutate(tobins_q = (mktcap + at - be + txdb) / at) |>
select(gvkey, year, investment_lead, cash_flows, tobins_q) |>
drop_na()
```

As the variable construction typically leads to extreme values that are most likely related to data issues (e.g., reporting errors), many papers include winsorization of the variables of interest. Winsorization involves replacing values of extreme outliers with quantiles on the respective end. The following function implements the winsorization for any percentage cut that should be applied on either end of the distributions. In the specific example, we winsorize the main variables (`investment`

, `cash_flows`

, and `tobins_q`

) at the one percent level.

```
<- function(x, cut) {
winsorize <- replace(
x
x,> quantile(x, 1 - cut, na.rm = T),
x quantile(x, 1 - cut, na.rm = T)
)<- replace(
x
x,< quantile(x, cut, na.rm = T),
x quantile(x, cut, na.rm = T)
)return(x)
}
<- data_investment |>
data_investment mutate(across(
c(investment_lead, cash_flows, tobins_q),
~ winsorize(., 0.01)
))
```

Before proceeding to any estimations, we highly recommend tabulating summary statistics of the variables that enter the regression. These simple tables allow you to check the plausibility of your numerical variables, as well as spot any obvious errors or outliers. Additionally, for panel data, plotting the time series of the variable’s mean and the number of observations is a useful exercise to spot potential problems.

```
|>
data_investment pivot_longer(
cols = c(investment_lead, cash_flows, tobins_q),
names_to = "measure"
|>
) group_by(measure) |>
summarize(
mean = mean(value),
sd = sd(value),
min = min(value),
q05 = quantile(value, 0.05),
q50 = quantile(value, 0.50),
q95 = quantile(value, 0.95),
max = max(value),
n = n(),
.groups = "drop"
)
```

```
# A tibble: 3 × 9
measure mean sd min q05 q50 q95 max n
<chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <int>
1 cash_flows 0.0111 0.274 -1.56 -4.72e-1 0.0641 0.272 0.479 127468
2 investmen… 0.0577 0.0772 0 6.77e-4 0.0327 0.206 0.464 127468
3 tobins_q 2.00 1.70 0.573 7.94e-1 1.39 5.37 10.9 127468
```

## Fixed Effects

To illustrate fixed effects regressions, we use the `fixest`

package, which is both computationally powerful and flexible with respect to model specifications. We start out with the basic investment regression using the simple model \[ \text{Investment}_{i,t+1} = \alpha + \beta_1\text{Cash Flows}_{i,t}+\beta_2\text{Tobin's q}_{i,t}+\varepsilon_{i,t},\] where \(\varepsilon_t\) is i.i.d. normally distributed across time and firms. We use the `feols()`

-function to estimate the simple model so that the output has the same structure as the other regressions below, but you could also use `lm()`

.

```
<- feols(
model_ols fml = investment_lead ~ cash_flows + tobins_q,
se = "iid",
data = data_investment
) model_ols
```

```
OLS estimation, Dep. Var.: investment_lead
Observations: 127,468
Standard-errors: IID
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.04254 0.000334 127.5 < 2.2e-16 ***
cash_flows 0.04899 0.000793 61.8 < 2.2e-16 ***
tobins_q 0.00732 0.000128 57.1 < 2.2e-16 ***
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
RMSE: 0.075516 Adj. R2: 0.042996
```

As expected, the regression output shows significant coefficients for both variables. Higher cash flows and investment opportunities are associated with higher investment. However, the simple model actually may have a lot of omitted variables, so our coefficients are most likely biased. As there is a lot of unexplained variation in our simple model (indicated by the rather low adjusted R-squared), the bias in our coefficients is potentially severe, and the true values could be above or below zero. Note that there are no clear cutoffs to decide when an R-squared is high or low, but it depends on the context of your application and on the comparison of different models for the same data.

One way to tackle the issue of omitted variable bias is to get rid of as much unexplained variation as possible by including *fixed effects*; i.e., model parameters that are fixed for specific groups (e.g., Wooldridge 2010). In essence, each group has its own mean in fixed effects regressions. The simplest group that we can form in the investment regression is the firm level. The firm fixed effects regression is then \[ \text{Investment}_{i,t+1} = \alpha_i + \beta_1\text{Cash Flows}_{i,t}+\beta_2\text{Tobin's q}_{i,t}+\varepsilon_{i,t},\] where \(\alpha_i\) is the firm fixed effect and captures the firm-specific mean investment across all years. In fact, you could also compute firms’ investments as deviations from the firms’ average investments and estimate the model without the fixed effects. The idea of the firm fixed effect is to remove the firm’s average investment, which might be affected by firm-specific variables that you do not observe. For example, firms in a specific industry might invest more on average. Or you observe a young firm with large investments but only small concurrent cash flows, which will only happen in a few years. This sort of variation is unwanted because it is related to unobserved variables that can bias your estimates in any direction.

To include the firm fixed effect, we use `gvkey`

(Compustat’s firm identifier) as follows:

```
<- feols(
model_fe_firm ~ cash_flows + tobins_q | gvkey,
investment_lead se = "iid",
data = data_investment
) model_fe_firm
```

```
OLS estimation, Dep. Var.: investment_lead
Observations: 127,468
Fixed-effects: gvkey: 14,350
Standard-errors: IID
Estimate Std. Error t value Pr(>|t|)
cash_flows 0.0140 0.000923 15.2 < 2.2e-16 ***
tobins_q 0.0109 0.000133 82.1 < 2.2e-16 ***
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
RMSE: 0.049717 Adj. R2: 0.532575
Within R2: 0.057328
```

The regression output shows a lot of unexplained variation at the firm level that is taken care of by including the firm fixed effect as the adjusted R-squared rises above 50 percent. In fact, it is more interesting to look at the within R-squared that shows the explanatory power of a firm’s cash flow and Tobin’s q *on top* of the average investment of each firm. We can also see that the coefficients changed slightly in magnitude but not in sign.

There is another source of variation that we can get rid of in our setting: average investment across firms might vary over time due to macroeconomic factors that affect all firms, such as economic crises. By including year fixed effects, we can take out the effect of unobservables that vary over time. The two-way fixed effects regression is then \[ \text{Investment}_{i,t+1} = \alpha_i + \alpha_t + \beta_1\text{Cash Flows}_{i,t}+\beta_2\text{Tobin's q}_{i,t}+\varepsilon_{i,t},\] where \(\alpha_t\) is the time fixed effect. Here you can think of higher investments during an economic expansion with simultaneously high cash flows.

```
<- feols(
model_fe_firmyear ~ cash_flows + tobins_q | gvkey + year,
investment_lead se = "iid",
data = data_investment
) model_fe_firmyear
```

```
OLS estimation, Dep. Var.: investment_lead
Observations: 127,468
Fixed-effects: gvkey: 14,350, year: 35
Standard-errors: IID
Estimate Std. Error t value Pr(>|t|)
cash_flows 0.01746 0.000902 19.4 < 2.2e-16 ***
tobins_q 0.00988 0.000131 75.4 < 2.2e-16 ***
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
RMSE: 0.048428 Adj. R2: 0.556373
Within R2: 0.050144
```

The inclusion of time fixed effects did only marginally affect the R-squared and the coefficients, which we can interpret as a good thing as it indicates that the coefficients are not driven by an omitted variable that varies over time.

How can we further improve the robustness of our regression results? Ideally, we want to get rid of unexplained variation at the firm-year level, which means we need to include more variables that vary across firm *and* time and are likely correlated with investment. Note that we cannot include firm-year fixed effects in our setting because then cash flows and Tobin’s q are colinear with the fixed effects, and the estimation becomes void.

Before we discuss the properties of our estimation errors, we want to point out that regression tables are at the heart of every empirical analysis, where you compare multiple models. Fortunately, the `etable()`

function provides a convenient way to tabulate the regression output (with many parameters to customize and even print the output in LaTeX). We recommend printing \(t\)-statistics rather than standard errors in regression tables because the latter are typically very hard to interpret across coefficients that vary in size. We also do not print p-values because they are sometimes misinterpreted to signal the importance of observed effects (Wasserstein and Lazar 2016). The \(t\)-statistics provide a consistent way to interpret changes in estimation uncertainty across different model specifications.

```
etable(
model_ols, model_fe_firm, model_fe_firmyear,coefstat = "tstat", digits = 3, digits.stats = 3
)
```

```
model_ols model_fe_firm model_fe_firm..
Dependent Var.: investment_lead investment_lead investment_lead
Constant 0.043*** (127.5)
cash_flows 0.049*** (61.8) 0.014*** (15.2) 0.018*** (19.4)
tobins_q 0.007*** (57.1) 0.011*** (82.1) 0.010*** (75.4)
Fixed-Effects: ---------------- --------------- ---------------
gvkey No Yes Yes
year No No Yes
_______________ ________________ _______________ _______________
VCOV type IID IID IID
Observations 127,468 127,468 127,468
R2 0.043 0.585 0.606
Within R2 -- 0.057 0.050
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
```

## Clustering Standard Errors

Apart from biased estimators, we usually have to deal with potentially complex dependencies of our residuals with each other. Such dependencies in the residuals invalidate the i.i.d. assumption of OLS and lead to biased standard errors. With biased OLS standard errors, we cannot reliably interpret the statistical significance of our estimated coefficients.

In our setting, the residuals may be correlated across years for a given firm (time-series dependence), or, alternatively, the residuals may be correlated across different firms (cross-section dependence). One of the most common approaches to dealing with such dependence is the use of *clustered standard errors* (Petersen 2008). The idea behind clustering is that the correlation of residuals *within* a cluster can be of any form. As the number of clusters grows, the cluster-robust standard errors become consistent (Donald and Lang 2007; Wooldridge 2010). A natural requirement for clustering standard errors in practice is hence a sufficiently large number of clusters. Typically, around at least 30 to 50 clusters are seen as sufficient (Cameron, Gelbach, and Miller 2011).

Instead of relying on the iid assumption, we can use the cluster option in the `feols`

-function as above. The code chunk below applies both one-way clustering by firm as well as two-way clustering by firm and year.

```
<- feols(
model_cluster_firm ~ cash_flows + tobins_q | gvkey + year,
investment_lead cluster = "gvkey",
data = data_investment
)
<- feols(
model_cluster_firmyear ~ cash_flows + tobins_q | gvkey + year,
investment_lead cluster = c("gvkey", "year"),
data = data_investment
)
```

The table below shows the comparison of the different assumptions behind the standard errors. In the first column, we can see highly significant coefficients on both cash flows and Tobin’s q. By clustering the standard errors on the firm level, the \(t\)-statistics of both coefficients drop in half, indicating a high correlation of residuals within firms. If we additionally cluster by year, we see a drop, particularly for Tobin’s q, again. Even after relaxing the assumptions behind our standard errors, both coefficients are still comfortably significant as the \(t\)-statistics are well above the usual critical values of 1.96 or 2.576 for two-tailed significance tests.

```
etable(
model_fe_firmyear, model_cluster_firm, model_cluster_firmyear,coefstat = "tstat", digits = 3, digits.stats = 3
)
```

```
model_fe_firm.. model_cluster.. model_cluster...1
Dependent Var.: investment_lead investment_lead investment_lead
cash_flows 0.018*** (19.4) 0.018*** (11.2) 0.018*** (9.45)
tobins_q 0.010*** (75.4) 0.010*** (35.5) 0.010*** (15.3)
Fixed-Effects: --------------- --------------- ---------------
gvkey Yes Yes Yes
year Yes Yes Yes
_______________ _______________ _______________ _______________
VCOV type IID by: gvkey by: gvkey & year
Observations 127,468 127,468 127,468
R2 0.606 0.606 0.606
Within R2 0.050 0.050 0.050
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
```

Inspired by Abadie et al. (2017), we want to close this chapter by highlighting that choosing the right dimensions for clustering is a design problem. Even if the data is informative about whether clustering matters for standard errors, they do not tell you whether you should adjust the standard errors for clustering. Clustering at too aggregate levels can hence lead to unnecessarily inflated standard errors.

## Exercises

- Estimate the two-way fixed effects model with two-way clustered standard errors using quarterly Compustat data from WRDS. Note that you can access quarterly data via
`tbl(wrds, I("comp.fundq"))`

. - Following Peters and Taylor (2017), compute Tobin’s q as the market value of outstanding equity
`mktcap`

plus the book value of debt (`dltt`

+`dlc`

) minus the current assets`atc`

and everything divided by the book value of property, plant and equipment`ppegt`

. What is the correlation between the measures of Tobin’s q? What is the impact on the two-way fixed effects regressions?

## References

*Working Paper*. http://www.nber.org/papers/w24003.

*CREA Discussion Papers*. https://lrberge.github.io/fixest/.

*Journal of Business & Economic Statistics*29 (2): 238–49. http://www.jstor.org/stable/25800796.

*The Review of Economics and Statistics*89 (2): 221–33. https://doi.org/10.1162/rest.89.2.221.

*Review of Financial Studies*25 (4): 1286–1329. https://doi.org/10.1093/rfs/hhr120.

*Brookings Papers on Economic Activity*1988 (1): 141–206. http://www.jstor.org/stable/2534426.

*Review of Financial Studies*29 (3): 523–64. https://doi.org/10.1093/rfs/hhv050.

*Journal of Financial Economics*123 (2): 251–72. https://doi.org/10.1016/j.jfineco.2016.03.011.

*Review of Financial Studies*22 (1): 435–80. https://doi.org/10.1093/rfs/hhn053.

*The American Statistician*70 (2): 129–33. https://doi.org/10.1080/00031305.2016.1154108.

*Econometric analysis of cross section and panel data*. The MIT Press. http://www.jstor.org/stable/j.ctt5hhcfr.