총 129페이지

110
지역경제 파급효과 분석방법 개선 연구
## 최종수요 벡터 입력 함수를 작성한다.
input_vector_ft
reg2, code2, input2,
reg3, code3, input3,
reg4, code4, input4,
reg5, code5, input5,
reg6, code6, input6,
reg7, code7, input7,
reg8, code8, input8,
reg9, code9, input9)
{
## 영벡터를 생성한다. 이 영벡터를 기반으로 최종수요를 생성한다.
i_vec
## 생성된 열벡터에 지역/산업부문 이름을 설정한다.
names(i_vec)
i_vec[which(names(i_vec) == paste(paste(reg1, "_", sep = ""),
code1, sep = ""))]
i_vec[which(names(i_vec) == paste(paste(reg2, "_", sep = ""),
code2, sep = ""))]
i_vec[which(names(i_vec) == paste(paste(reg3, "_", sep = ""),
code3, sep = ""))]
i_vec[which(names(i_vec) == paste(paste(reg4, "_", sep = ""),
code4, sep = ""))]
i_vec[which(names(i_vec) == paste(paste(reg5, "_", sep = ""),
code5, sep = ""))]
i_vec[which(names(i_vec) == paste(paste(reg6, "_", sep = ""),
code6, sep = ""))]
i_vec[which(names(i_vec) == paste(paste(reg7, "_", sep = ""),
code7, sep = ""))]
i_vec[which(names(i_vec) == paste(paste(reg8, "_", sep = ""),
code8, sep = ""))]
i_vec[which(names(i_vec) == paste(paste(reg9, "_", sep = ""),
code9, sep = ""))]

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