Dear Respected Sir,
My exact question is how to develop "DY_Table.xlsx" for the following
code:
(While considering [,-1])*100)
con = as.matrix(read_excel("DY_Table.xlsx")[,-1])*100
I asked that code writer about it, he just reply to write the table. So, I
need to know how to write the table for the code mentioned above?
I hope that you got my question now.
Regards
Chishti
On Mon, Jul 11, 2022 at 3:05 PM Richard O'Keefe <raoknz at gmail.com>
wrote:
> (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]]