Disaste Management

x<-File name$frequencytsData = ts(x, start = c(start year time, 1), frequency = 12 )plot(tsData)plot(x)components.ts = decompose(tsData)plot(components.ts)install.packages("fUnitRoots")library("fUnitRoots")urkpssTest(tsData, type = c("tau"), lags = c("short"),use.lag = NULL, doplot = TRUE)tsstationary = diff(tsData, differences=1)plot(tsstationary)acf(tsData,lag.max=34)timeseriesseasonallyadjusted…