The project constructs event-driven strategy which researches on the effect of dividend payment announcement on the stock price. We computed excess return over the S&P 500 Index of each stock from 2010/01/01 to 2016/12/31, and concluded that the event of dividend payment has very short positive effect on the stock price.
What happened to the stock return (minus the S&P500 on the same day) from days -20 through day +20, each day by day?
The average stock prices in the event period are listed in the following table:
| Event Day | -20 | -19 | -18 | -17 | -16 | -15 | -14 | -13 | -12 | -11 | -10 | -9 | -8 | -7 | -6 | -5 | -4 | -3 | -2 | -1 |
| Stock Mean | -0.000059 | -0.000464 | -0.000143 | -0.000080 | -0.000229 | 0.000402 | 0.000074 | 0.000353 | 0.000247 | -0.000058 | -0.000143 | 0.000099 | 0.000235 | 0.000243 | -0.000131 | 0.000461 | 0.000025 | 0.000086 | 0.000136 | 0.000339 |
| 0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 |
| 0.000410 | -0.000544 | -0.000574 | -0.000698 | 0.000028 | -0.000090 | 0.000267 | 0.000514 | 0.000205 | 0.000069 | 0.000077 | -0.000165 | 0.000066 | 0.000103 | 0.000140 | 0.000033 | -0.000068 | -0.000103 | 0.000141 | -0.000182 | -0.000064 |
The performance of the average stock return between the 20 days before the event date and 20 days after the event date is plotted in the following graph:
1.The daily stock return data are imported from Wrds CRSP-Stock/Security Files daily Holding Period Return.
2.The S&P 500 daily return are imported from Wrds CRSP-Stock/Security Files S&P Composite Index.
1.Delete missing values in daily stock return.
2.Compute excess return using the following equation:
Re = Rstock - RS&P500
3.Select excess returns from the 20 trading days before the dividend payment announcement day and 20 trading days after it, excluding data which are out of the time period (2010-2016).
4.Compute average excess return of each day and plot.
library(data.table) data <- fread("C:/Users/bingj/Google Drive/2018 WINTER/Corporate Finance and Risk Management/Project2/equity.csv") data$RET[data$RET=="c"] <- NA data$RET <- as.numeric(data$RET) data <- na.omit(data) ndata <- data data <- as.data.table(data) data[,"ExRtn"] <- data$RET-data$sprtrn data <- data[,-5:-6] data[,"flag"] <- rep(0,nrow(data)) ind <- which(data$PAYDT!="") matchinfo <- function(matchVar){ rtn <- data$ExRtn[(matchVar-20):(matchVar+20)] if ((length(unique(data$PERMNO[(matchVar-20):(matchVar+20)])))==1){ return(rtn) } } stock_rtn <- sapply(ind[2:(length(ind)-1)],matchinfo) stock_rtn <- as.data.table(stock_rtn) stock_mean <- apply(stock_rtn,1,mean) names(stock_mean) <- (-20:20) summary(stock_mean) #Summary of stock_mean plot(stock_mean,x = names(stock_mean),xlab = "Event Day",ylab = "Average Stock Return",type = "b",col = "blue")
As the graph and dataset of 135348 events show, the announcement of dividend payment has short effect on the stock price. On the event day, the stock return exceeds S&P 500 because all the investors buy the stock with expectation of good performance of the company, which pushes the stock price up. However, after the event day, the excess return drops a lot due to largely selling stocks, which shows that the effect of the dividend payment announcement has been digested. So the stock price falls down. As for other trading days, the stock price goes randomly without any specialty. Thus the strategy of dividend payment event might be a very short investment opportunity.