# OECD Tourism flows data analysis 5 - regression with differenced data using R

Unsplashguy stevensが撮影した写真

This psot is following of above post.
In the previous post, I regress acc_nights, inter_arr and inter_dep on per_capita and trend term for Japan tourism flow data.

In this post, I will regress differenced acc_nights, inter_arr and inter_dep on differenced per_capita.

So, I make differenced variables.

Abobe code is to work like below chart.

For exmple, Vector_1 is JPN\$inter_dep and Vector_2 is c(NA, JPN\$inter_dep[-nrow(JPN)]).

Then, let's do regression.

coefficients of d_per_capita is 1.0517, so 1 per_capita increase goes with 1.0517 acc_nights increase. But p-value is 0.187, it is greater than 0.05. So I cannot say p_capita increase is significant.

Next, regression d_inter_arr on d_per_capita.

The coefficients of d_per_capita is 0.08372 and p-value is 0.307. So, d_per_capita is not practically and statistically significant.

The coefficient of d_per_capita is 0.01299 and the p-value is 0.661. So, d_per_capita is not statistically and practically significant.

Let's visualize these three regressions. I can use geom_smooth() function.

regression d_inrer_arr on d_per_capita graph.

Last, visualize regression d_inter_dep on d_per_capita.

That's it. Thank you!

Next Post is,