[R] Please guide

[Muhammad Zubair Chishti]

*Dear Experts,*
*Greetings from Pakistan*.
*When I run the following code in R*
library(frequencyConnectedness)
library(readxl)
##Add data here##
Data <- read_excel("Data_oil_agri.xlsx", sheet = "Sheet1")
Data <- Data[,2:22]
Data=na.omit(Data)
Bnames=colnames(Data)

lags=VARselect(Data, lag.max = 12, type = "const")  ## "const", "trend",
"both", "none"
p=lags$selection[[3]]

est <- VAR(Data, p = p, type = "const")
sp <- spilloverDY12(est, n.ahead = 10, no.corr = F)

params_est = list(p = p, type = "const")
sp_roll <- spilloverRollingDY12(Data, n.ahead = 10, no.corr = F, "VAR",
params_est = params_est, window = 260)
bounds <- c(pi+0.00001, pi/5, 0)
sp_bk <- spilloverBK12(est, n.ahead = 100, no.corr = F, partition = bounds)

sp_bk_roll <- spilloverRollingBK12(Data, n.ahead = 100, no.corr = F,
func_est = "VAR", params_est = params_est, window = 260, partition = bounds)

**Till now the code works well. After that, when I run the following:*

con      = as.matrix(read_excel("DY_Table.xlsx")[,-1])*100

*I face the following error:*
*Error in* *`vectbl_as_col_location()`:*
! Can't negate columns past the end.
ℹ Location 1 doesn't exist.
ℹ There are only 0 columns.
Run `rlang::last_error()` to see where the error occurred.

Kindly please guide me.

Regards
Muhammad Zubair Chishti
Ph.D. Student
School of Business,
Zhengzhou University, Henan, China.
My Google scholar link:
https://scholar.google.com/citationshl=en&user=YPqNJMwAAAAJ
My ResearchGate link: https://www.researchgate.net/profile/Muhammad-Chishti

	[[alternative HTML version deleted]]