kardl_model<-kardl(imf_example_data,
CPI~ER+PPI+asym(ER)+deterministic(covid)+trend,
mode=c(1,2,3,0))
A<-narayan(kardl_model)
A
cat(paste0("The F statistics=",A$statistic," where k=",A$k,"."))
cat(paste0("\nWe found '",A$Cont, "' at ",A$siglvl,"."))
cat(paste0("\nThe proboblity is = ",sprintf("%.10f",A$Fmodel[["Pr(>F)"]][2])))
# Utilising magrittr:
library(magrittr)
imf_example_data %>% kardl(CPI~ER+PPI+asym(ER)+deterministic(covid)+trend,
mode=c(1,2,3,0)) %>% narayan()
# Getting details of the test.
mySummary<-summary(A)
mySummary
# Utilising magrittr:
imf_example_data %>% kardl(CPI~ER+PPI+asym(ER)+deterministic(covid)+trend,
mode=c(1,2,3,0)) %>% narayan() %>% summary()
# Critical Values are
A$criticalValues
# The null hypothesis :
A
# getting H0
mySummary$H0
# Detailed F test
A$Fmodel
Run the code above in your browser using DataLab