/***   データ解析演習 11/06/22   ***/

/* データ読み込み

GET DATA
  /TYPE=TXT
  /FILE='C:\goto_data.csv'	/* ファイルの場所は適宜修正
  /DELCASE=LINE
  /DELIMITERS=","
  /ARRANGEMENT=DELIMITED
  /FIRSTCASE=2
  /IMPORTCASE=ALL
  /VARIABLES=
  WEIGHT F3.0
  FAT F2.0
  SEX F1.0.
CACHE.
EXECUTE.
DATASET NAME FATdata WINDOW=FRONT.

/* 変数ラベルを定義

variable labels WEIGHT '体重'.
variable labels FAT '体脂肪率'.
variable labels SEX '性別'.

/* カテゴリ変数の値ラベルを定義

value labels SEX
1	女性
2	男性.

/* 単回帰分析

REGRESSION
  /DESCRIPTIVES MEAN STDDEV CORR SIG N
  /MISSING LISTWISE
  /STATISTICS COEFF OUTS R ANOVA CHANGE ZPP
  /CRITERIA=PIN(.05) POUT(.10)
  /NOORIGIN 
  /DEPENDENT FAT
  /METHOD=ENTER WEIGHT
  /SCATTERPLOT=(*ZRESID ,*ZPRED)
  /RESIDUALS HIST(ZRESID) NORM(ZRESID).

/* 交互作用の変数を作成

compute INTERACTION = WEIGHT * SEX.
variable labels INTERACTION '交互作用【体重×性別】'.

/* 交互作用を投入した重回帰分析

REGRESSION
  /DESCRIPTIVES MEAN STDDEV CORR SIG N
  /MISSING LISTWISE
  /STATISTICS COEFF OUTS R ANOVA CHANGE ZPP
  /CRITERIA=PIN(.05) POUT(.10)
  /NOORIGIN 
  /DEPENDENT FAT
  /METHOD=ENTER WEIGHT SEX INTERACTION
  /SCATTERPLOT=(*ZRESID ,*ZPRED)
  /RESIDUALS HIST(ZRESID) NORM(ZRESID).

/* 性別ごとに単回帰分析

SORT CASES  BY SEX.
SPLIT FILE LAYERED BY SEX.


	REGRESSION
	  /DESCRIPTIVES MEAN STDDEV CORR SIG N
	  /MISSING LISTWISE
	  /STATISTICS COEFF OUTS R ANOVA CHANGE ZPP
	  /CRITERIA=PIN(.05) POUT(.10)
	  /NOORIGIN 
	  /DEPENDENT FAT
	  /METHOD=ENTER WEIGHT
	  /SCATTERPLOT=(*ZRESID ,*ZPRED)
	  /RESIDUALS HIST(ZRESID) NORM(ZRESID).


SPLIT FILE OFF.

/* 最後は保存

OUTPUT SAVE NAME=ドキュメント1
 OUTFILE='C:\Users\GOTO\Desktop\Results.spv'.