(1) Your sample code refers to a file DY_Table.xlsx
but the file you attached to a later message is
called Data_oil_agri.xlsx and I find it hard to
believe that they are the same file.
(2) gmail offered me two different ways to download
the file, but neither of them worked. Fortunately,
the third way worked.
(3) Here's what I get with Data_oil_agri.xlsx> d<-read_excel("Data_oil_agri.xlsx", sheet=1)
> str(d)
tibble [3,870 x 22] (S3: tbl_df/tbl/data.frame)
So that's a table with 3870 rows and 22 columns.
But your code got this error message:
! 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.
This is why I wonder if you really sent the right file.
The error message told you to do something.
WHAT DID YOU SEE WHEN YOU ENTERED THE COMMAND
rlang::last_error()
?
When you are reading from an .xls or .xlsx file, it is always
a good idea to be explicit about which sheet you want.
In another message, you wrote something that seems very strange.
"Since the data is too large and I cannot cut it".
It's an Excel spreadsheet! (Or rather, three sheets.)
OF COURSE YOU CAN CUT IT! That's like saying
"Because this banana is on my plate and I have a knife,
I cannot cut it."
If you do not have Excel (and why would you? I don't myself)
you could use LibreOffice or Google Sheets or WPS Office
or even Python
https://stackabuse.com/reading-and-writing-excel-files-in-python-with-the-pandas-library/
Libre Office and Google Sheets have worked well for me.
These things you must do.
(A) Check that DY_Table.xlsx and Data_oil_agri.xlsx
are the same. If they are not, make sure you are
using the right one.
(B) Open the file in a spreadsheet program and see
what is actually there. Write down on a piece of
paper how many sheets there are, what the sheet
you want is called, and how many rows and columns it has.
What are the first few columns called?
(C) Start up a fresh R session and use read_excel to read
the right sheet from the right file.
Use head() on the result. Does it have the right
number of columns? Do they have the right names?
Does the result have the right number of rows?
(D) Try the rest of the failing line.
x <- as.matrix(the.tibble[,-1])*100
(E) If anything goes wrong, DO WHAT THE ERROR MESSAGE SAYS
TO DO.
Got that?
By the way, I'm old school. I love the assignment arrow <-
and find the abuse of "=" confusing and ugly. But you just
taught me that there is something even uglier and more
confusing, and that's randomly switching between them. Pick
one and stick to it.
Oh yeah, one final point. The line where you say your code
has trouble doesn't seem to be connected in any way to the
preceding lines. We didn't need to see them.
On Sat, 9 Jul 2022 at 04:57, Muhammad Zubair Chishti <
mzchishti at eco.qau.edu.pk> wrote:
> *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]]
>
> ______________________________________________
> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
[[alternative HTML version deleted]]