가구자료를 이용한 분석모형을 구성할 때 가구원수는 중요한 변수로 사용된다. 예컨대, 소득불평등 지표를 구성할 때 가구원수는 ‘조정계수’로 사용된다. 총가구원수는 가구자료에 변수로 들어가 있다. 그러나 연구자에 따라서는 경제활동가능인구인 15세 이상 가구원수 같은 변수들이 중요할 수 있다. 여성노동시장 참가여부 모형을 구성할 때 5세미만 자녀수, 혹은 3세미만 자녀수 등이 중요한 도구변수로 사용되기도 한다. 이런 경우 특정 조건을 만족하는 가구원 수는 별도의 프로그램을 만들어 구성해야 한다. 19차년도 가구자료를 이용하여 15세 이상/미만 가구원수를 구해보자.


*==============================================;
* SAS - 가구원수 만들기 (Array 문의 활용) ;
*==============================================;

data h19; set a.klips19h;
if hwave19=1; /*19차에 응답한 가구 추출*/
array p[15] lonum1-lonum15; /*15×1 dummy array 생성(15세 미만)*/
array q[15] hinum1-hinum15; /*15×1 dummy array 생성(15세 이상)*/
array y[15] h190361-h190375; /*첫가구원의 만나이-15번째 가구원의 만나이*/
array c[15] h190421-h190435; /*가구원 개인의 추가탈락여부*/

do i=1 to 15;
if y[i]<15 and 1<=c[i]<=2 then p[i]=1; else p[i]=0;
if y[i]=>15 and 1<=c[i]<=2 then q[i]=1;else q[i]=0;
end;

lonum=sum(of lonum1-lonum15);
hinum=sum(of hinum1-hinum15);


label lonum='15세미만 가구원수' hinum='15세 이상 기구원수';
proc means; var h190150 lonum hinum ;
proc freq; table lonum hinum ;
run;


*===========================.
* SPSS- Count 문의 활용 .
*===========================.

*추가탈락여부=change*

GET FILE='D:\19차\users guide\19차년도\klips19h.sav'.
select if (hwave19=1).

compute lonum=0.
compute hinum=0.

do repeat
change=h190421 to h190435/
age=h190361 to h190375.
if((change=1 or change=2) and (age<15)) lonum=lonum+1.
if((change=1 or change=2) and (age>=15)) hinum=hinum+1.
end repeat.

var lab lonum '15세 미만 가구원수' hinum '15세 이상 가구원수'.
des h190150 lonum hinum/stat=mean std min max.


/*======================================*/
/* stata - 가구원수 만들기 */
/*======================================*/

/* 15세 미만 가구원수 = lonum */
/* 15세 이상 가구원수 = hinum */

clear
use klips19h, clear
keep if hwave19==1 /* 19차에 조사된 가구만 남기기 */


forvalue i=1/15 {

local a=`i'+60
local b=`i'+20

gen ppp`i'=(h1903`a'<15 & (h1904`b'==1|h1904`b'==2))
gen qqq`i'=(h1903`a'>=15 & (h1904`b'==1|h1904`b'==2))
}

egen lonum=rowtotal(ppp*)
egen hinum=rowtotal(qqq*)

sum h190150 lonum hinum
tab1 lonum hinum

*==============================================#
* R - 가구원수 만들기 #
*==============================================#

library(foreign)
klips19h ← read.spss(file = "C:\\Users\\KLI\\DATA\\1-19spss\\klips19h.sav", use.value.labels = FALSE, to.data.frame = TRUE )
h19 ← klips19h[klips19h$hwave19==1,] #19차 응답 가구만 추출.
dim(h19) # 7012개의 관측치

library(dplyr)
xx ← select(h19, h190361:h190375)
yy ← select(h19, h190421:h190435)

lo ← data.frame(ifelse((xx < 15) & (yy == 1|2), 1, 0))
hi ← data.frame(ifelse((xx >= 15) & (yy == 1|2), 1, 0))
total ← lo + hi

lonum ← rowSums(lo, na.rm = TRUE)
hinum ← rowSums(hi, na.rm = TRUE)
num ← rowSums(total, na.rm = TRUE)

summary(lonum)
summary(hinum)
summary(num)


위의 프로그램을 실행시키면 19차년도 응답가구인 총 7,012케이스의 평균값이 아래와 같이 나올 것이다. 19차년도 노동패널조사에서 평균 가구원 수는 2.7명이며, 15세 이상 가구원수는 2.3명이다. 또한, 15세미만 가구원수는 0.4명으로 나타난다.


<한국노동패널 1~19차년도 조사자료 User's Guide 131p Q9 참고>