Dear Respected Professor,
You are right. I strongly agree with you. Besides, Thank you so much for
your kind reply. As you said, the data file mentioned in the above code is
attached herewith. Kindly consider my request.
Data_oil_agri.xlsx
<https://drive.google.com/file/d/1heMlPfUtB-RthKYv4jRM3PGFI8CJ4fck/view?usp=drive_web>
Regards
Muhammad Zubair Chishti
On Sat, Jul 9, 2022 at 11:48 PM Jeff Newmiller <jdnewmil at
dcn.davis.ca.us>
wrote:
> This is a mailing list whose members are random people with an interest in
> R. We are not a tech support call center. If we have time, and you invest
> some effort into making it easier for us to reproduce your problem, then
> someone may respond... but no guarantees. Your current efforts are missing
> key elements that impede our efforts and there isn't much here to
persuade
> many people to dig further. You may garner more responses if you make the
> following changes to your approach:
>
> 1) Make your example reproducible. We need access to the data you are
> working with, or at least a small fake similar data set. We don't have
your
> Excel files... dead end for us. But see next point about files. Also,
> verify that your code can start from a fresh R environment and demonstrate
> your problem... the reprex package may be useful for this.
>
> 2) Make your example minimal. If you are having trouble with data
> importing, give us the data file or something similar that gives you the
> same error. If you are having trouble with data calculations or
> manipulations, then use dput [1] to give us a snippet of the data you are
> referring to in the troublesome line of code... don't give us a data
file
> and a bunch of code that isn't giving you trouble before the error
code...
> we don't want to wade through it.
>
> 3) Remove garbage from your posts (formatting). Look at the extra
> asterisks in your message as we see it [2]. We cannot run this code without
> guessing which symbols belong and which don't. I know you did not put
them
> there intentionally, but neither did you disable HTML formatting in your
> email client when you composed the message, and that was responsible for
> the extra mess. The Posting Guide warns you to post plain text, and there
> are way too many email client programs out there for us to be able to tell
> you how to alter this setting... but it is essential that you do it if you
> want to encourage responses here.
>
> I considered not responding at all due to these deficiencies, but figured
> I would spell out the problems you have missed in the Posting Guide once.
> Mailing lists are tough ways to get help... but the expertise here is kind
> of rare. You decide whether to make things easy or hard for yourself.
>
> As for the "con =" line below, it seems to have nothing at all to
do with
> the code or data referred to earlier. That would be a hint for point 2
> above. Try calling the read_excel function alone without the rest of the
> indexing and matrix conversion. Only when the result you get from that step
> makes sense should you try indexing it or converting it. Maybe you need a
> "sheet=" argument?
>
> ---
> [1]
>
http://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example
>
> [2] https://stat.ethz.ch/pipermail/r-help/2022-July/475212.html
>
> On July 9, 2022 10:40:29 AM PDT, Muhammad Zubair Chishti <
> mzchishti at eco.qau.edu.pk> wrote:
> >Dear Experts,
> >A kind reminder. Please help me.
> >
> >
> >On Fri, 8 Jul 2022, 21:56 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.
>
> --
> Sent from my phone. Please excuse my brevity.
>
[[alternative HTML version deleted]]