## Title : 建設技能労働者過不足率_8職種計_全国_季節調整値 2016年7月 
## Raw Data Source : 国土交通省 
## Author : アセット・マネジメント・コンサルティング株式会社 http://am-consulting.co.jp 
## 作成日 : 2016-08-29 17:44:16 
## 特記 : 複数のワードで検索する際は半角スペースで区切ってください 
## 特記 : 表中、-9999はNAを意味します




建設技能労働者過不足率_8職種計_全国_季節調整値


・2009-09~2012-12 : x
・2013-01~2016-07 : y

t.test(x, y, var.equal = T, alternative = 'two.sided')
## 
##  Two Sample t-test
## 
## data:  x and y
## t = -5.6613, df = 81, p-value = 2.207e-07
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -1.5055335 -0.7224898
## sample estimates:
## mean of x mean of y 
##  0.132500  1.246512
t.test(x, y, var.equal = F, alternative = 'two.sided')
## 
##  Welch Two Sample t-test
## 
## data:  x and y
## t = -5.591, df = 69.313, p-value = 4.154e-07
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -1.5114775 -0.7165457
## sample estimates:
## mean of x mean of y 
##  0.132500  1.246512
TwoTimeSeriesData <- c(x, y)
Period <- factor(c(rep("Period1", length(x)), rep("Period2", length(y))))
wilcox_test(TwoTimeSeriesData ~ Period, distribution = "exact")
## 
##  Exact Wilcoxon-Mann-Whitney Test
## 
## data:  TwoTimeSeriesData by Period (Period1, Period2)
## Z = -4.5392, p-value = 2.507e-06
## alternative hypothesis: true mu is not equal to 0
var.test(x, y, alternative = 'two.sided')
## 
##  F test to compare two variances
## 
## data:  x and y
## F = 2.0385, num df = 39, denom df = 42, p-value = 0.02501
## alternative hypothesis: true ratio of variances is not equal to 1
## 95 percent confidence interval:
##  1.094952 3.822985
## sample estimates:
## ratio of variances 
##           2.038508