So I managed to reprex my data. I hope I did this correctly.
econdata<-read.csv("C:/Users/Hany Osman/Desktop/R/Grad.csv", header = T)
model<-econdata[,c(1:10)]
names(model)<-c("Year","fdi","rates","inflation","exports","imports","rd","electric","ggdp","gdp")
regmodel<-ts(model,start = 1992,end = 2013,frequency = 1)
install.packages("wrapr")
#> Installing package into 'C:/Users/Hany Osman/Documents/R/win-library/3.6'
#> (as 'lib' is unspecified)
#> package 'wrapr' successfully unpacked and MD5 sums checked
#>
#> The downloaded binary packages are in
#> C:\Users\Hany Osman\AppData\Local\Temp\RtmpmOFNF1\downloaded_packages
require(wrapr)
#> Loading required package: wrapr
cat(draw_frame(model))
#> model <- wrapr::build_frame(
#> "Year" , "fdi" , "rates" , "inflation", "exports", "imports", "rd" , "electric", "ggdp" , "gdp" |
#> 1991L , "0.03 ", "3.62 " , "13.75 " , "8.35 " , "8.35 " , " . " , "0.01 " , "1.06 " , "275000000000.00 " |
#> 1992L , "0.09 ", "9.13 " , "8.97 " , "8.69 " , "9.42 " , " . " , "0.03 " , "5.48 " , "293000000000.00 " |
#> 1993L , "0.19 ", "5.81 " , "9.86 " , "9.66 " , "9.65 " , " . " , "0.03 " , "4.75 " , "284000000000.00 " |
#> 1994L , "0.29 ", "4.34 " , "9.98 " , "9.72 " , "10.01 " , " . " , "0.05 " , "6.66 " , "333000000000.00 " |
#> 1995L , "0.58 ", "5.86 " , "9.06 " , "10.66 " , "11.82 " , " . " , "0.13 " , "7.57 " , "367000000000.00 " |
#> 1996L , "0.61 ", "7.79 " , "7.58 " , "10.21 " , "11.35 " , "0.63 ", "0.21 " , "7.55 " , "400000000000.00 " |
#> 1997L , "0.85 ", "6.91 " , "6.48 " , "10.51 " , "11.72 " , "0.67 ", "0.22 " , "4.05 " , "423000000000.00 " |
#> 1998L , "0.61 ", "5.12 " , "8.01 " , "10.83 " , "12.46 " , "0.69 ", "0.23 " , "6.18 " , "429000000000.00 " |
#> 1999L , "0.46 ", "9.19 " , "3.07 " , "11.25 " , "13.13 " , "0.71 ", "0.46 " , "8.85 " , "467000000000.00 " |
#> 2000L , "0.75 ", "8.34 " , "3.65 " , "12.77 " , "13.66 " , "0.74 ", "0.54 " , "3.84 " , "477000000000.00 " |
#> 2001L , "1.11 ", "8.59 " , "3.22 " , "12.34 " , "13.20 " , "0.72 ", "0.70 " , "4.82 " , "494000000000.00 " |
#> 2002L , "1.07 ", "7.91 " , "3.72 " , "14.02 " , "14.98 " , "0.71 ", "0.76 " , "3.80 " , "524000000000.00 " |
#> 2003L , "0.70 ", "7.31 " , "3.87 " , "14.69 " , "15.37 " , "0.71 ", "0.86 " , "7.86 " , "618000000000.00 " |
#> 2004L , "0.80 ", "4.91 " , "5.73 " , "17.55 " , "19.31 " , "0.74 ", "0.96 " , "7.92 " , "722000000000.00 " |
#> 2005L , "0.87 ", "6.25 " , "4.24 " , "19.28 " , "22.03 " , "0.81 ", "1.17 " , "9.28 " , "834000000000.00 " |
#> 2006L , "2.11 ", "4.48 " , "6.42 " , "21.07 " , "24.23 " , "0.80 ", "1.56 " , "9.26 " , "949000000000.00 " |
#> 2007L , "2.04 ", "6.87 " , "5.76 " , "20.43 " , "24.45 " , "0.79 ", "3.24 " , "9.80 " , "1240000000000.00 " |
#> 2008L , "3.55 ", "4.28 " , "8.66 " , "23.60 " , "28.67 " , "0.84 ", "3.47 " , "3.89 " , "1220000000000.00 " |
#> 2009L , "2.61 ", "5.77 " , "6.06 " , "20.05 " , "25.43 " , "0.82 ", "4.22 " , "8.48 " , "1370000000000.00 " |
#> 2010L , "1.60 ", "(0.60)", "8.98 " , "21.97 " , "26.34 " , "0.80 ", "4.44 " , "10.26 ", "1710000000000.00 " |
#> 2011L , "1.94 ", "1.50 " , "8.54 " , "23.87 " , "30.21 " , "0.81 ", "5.00 " , "6.64 " , "1880000000000.00 " |
#> 2012L , "1.29 ", "3.20 " , "7.17 " , "24.00 " , "30.74 " , " . " , " . " , "4.74 " , "1860000000000.00 " |
#> 2013L , "1.50 ", "3.16 " , "6.91 " , "24.82 " , "28.41 " , " . " , " . " , "5.02 " , "1880000000000.00 " |
#> 2014L , " .. " , " .. " , " .. " , " .. " , " .. " , " . " , " . " , " .. " , " .. " )