총 129페이지

부록
111
## 생성된 최종수요 열벡터를 반환한다.
return(i_vec)
}
##지역경제 파급효과 분석 함수를 작성한다.
eff_ft
{
## 각 유발계수 행렬과 지역/산업부문 벡터를 곱하여 파급효과를 산정한다.
result1
result2
result3
## 데이터프레임으로 파급효과 분석 결과를 변환한다.
result1_df
result2_df
result3_df
## 데이터프레임에서 지역 정보를 별도의 변수로 빼낸다.
result1_df$reg
result2_df$reg
result3_df$reg
##파이프라인 연산을 통해 지역별 파급효과를 산정한다.
r1%
group_by(reg) %>%
summarize(eff1 = sum(V1))
r2 %
group_by(reg) %>%
summarize(eff1 = sum(V1))
##고용효과는 10억원 단위기 때문에 백만원 단위로 환산한다.
r3 %
group_by(reg) %>%
summarize(eff1 = sum(V1)/1000)

현재 포커스의 아래내용들은 동일한 컨텐츠를 가지고 페이지넘김 효과및 시각적 효과를 제공하는 페이지이므로 스크린리더 사용자는 여기까지만 낭독하시고 위의 페이지이동 링크를 사용하여 다음페이지로 이동하시기 바랍니다.