*  SPSS Skipanir fyrir mešhöndlun gagnasafns Heilsa og lķšan Ķslendinga 2007. 
* http://www.lydheilsustod.is/rannsoknir/heilsa-og-lidan-2007/ 
* Unniš af Jóni Óskari Gušlaugssyni og Stefįni H. Jónssyni.  
* 20. maķ 2009.

* S breytur alltaf óbreyttar. Gögn ķ r-breytum byggja į samsvarandi S-breytum og öšrum tengdum spurningum.

* s11 --> r11.
* Bętt viš upplżsingum um žį sem lķklega eru aš svara nei į spurningum meš žvķ aš sleppa aš svara.  
* Ef einstaklingur svarar JĮ į a.m.k einni spurningu (s11a-f) en svarar ekki hinum į hann lķklega viš NEI og fęr žvķ gildiš 4 į žeim spurningum.


missing values s5a to s5r (12 thru 9999).

compute s5fjsj = nvalid(s5a to s5q).

compute s5JA   =0.
compute s5NEI =0.

exe.

vector s5SJ  = s5a to s5q.

loop #i = 1 to 17.
  if s5SJ(#i) le 2 s5JA = s5JA + 1.
  if s5SJ(#i) = 3 s5NEI = s5NEI + 1.
end loop.


compute JASV5 = 0.
if s5fjsj ne 17 and s5NEI = 0 and s5JA ge 1  JASV5 = 1. 

exe.

missing values s5a to s5r ().

compute	r5a	=	s5a	.
compute	r5b	=	s5b	.
compute	r5c	=	s5c	.
compute	r5d	=	s5d	.
compute	r5e	=	s5e	.
compute	r5f	=	s5f	.
compute	r5g	=	s5g	.
compute	r5h	=	s5h	.
compute	r5i	=	s5i	.
compute	r5j	=	s5j	.
compute	r5k	=	s5k	.
compute	r5l	=	s5l	.
compute	r5m	=	s5m	.
compute	r5n	=	s5n	.
compute	r5o	=	s5o	.
compute	r5p	=	s5p	.
compute	r5q	=	s5q	.
compute	r5r	=	s5r	.


vector AST5 = s5a to s5r.
vector RAST5 = r5a to r5r.

loop #i = 1 to 18.
  if AST5(#i) = 9999 and JASV5 = 1 RAST5(#i) = 4.
end loop.

exe.

* Spurning eingöngu ętluš konum, žessvegna eiga žeir karlar sem voru missing aš vera žaš įfram.

if s73 = 1 and s5r = 9999 r5r = 9999.
exe.

var label	r5a	"Hefur ...truflaš daglegt lķf žitt? - Blinda eša verulega skert sjón	".
var label	r5b	"Hefur ...truflaš daglegt lķf žitt? - Heyrnarleysi eša verulega skert heyrn	".
var label	r5c	"Hefur ...truflaš daglegt lķf žitt? - Mįlleysi eša mįlskeršing/talskeršing	".
var label	r5d	"Hefur ...truflaš daglegt lķf žitt? - Skert hreyfigeta	".
var label	r5e	"Hefur ...truflaš daglegt lķf žitt? - Žrekleysi	".
var label	r5f	"Hefur ...truflaš daglegt lķf žitt? - Vöšvabólga	".
var label	r5g	"Hefur ...truflaš daglegt lķf žitt? - Verkir ķ baki/heršum	".
var label	r5h	"Hefur ...truflaš daglegt lķf žitt? - Verkir ķ handleggjum	".
var label	r5i	"Hefur ...truflaš daglegt lķf žitt? - Verkir ķ fótleggjum	".
var label	r5j	"Hefur ...truflaš daglegt lķf žitt? - Tķšir höfušverkir	".
var label	r5k	"Hefur ...truflaš daglegt lķf žitt? - Tannpķna	".
var label	r5l	"Hefur ...truflaš daglegt lķf žitt? - Verkir ķ kviš	".
var label	r5m	"Hefur ...truflaš daglegt lķf žitt? - Andžyngsli	".
var label	r5n	"Hefur ...truflaš daglegt lķf žitt? - Svefnerfišleikar	".
var label	r5o	"Hefur ...truflaš daglegt lķf žitt? - Žungar įhyggjur	".
var label	r5p	"Hefur ...truflaš daglegt lķf žitt? - Kvķši	".
var label	r5q	"Hefur ...truflaš daglegt lķf žitt? - Depurš	".
var label	r5r	"Hefur ...truflaš daglegt lķf žitt? - Tķšaverkir	".


val label r5a to r5r 
1 "JĮ, į sķšustu 12 mįnušum"
2 "JĮ, fyrir meira en 12 mįnušum"
3 "NEI, aldrei"
4 "Lķklega NEI, aldrei".

missing values r5a to r5r (12 thru 9999).
missing values s5a to s5r (12 thru 9999).

exe.

weight by vigt.
crosstab table kyn by r5a to r5r / cell row.