7. 변수 Keeping과 Dropping

7. 변수 Keeping과 Dropping

1. SAS
2. SPSS
3. R-PROJECT
4. S-PLUS
5. PROC SQL


1. SAS	MAIN

* 변수 Keeping 과 Droping을 위한 SAS프로그램.;

* KEEP을 사용하여 변수 선택;

DATA myleft;

SET mydata;

KEEP id workshop gender q1 q2;

RUN;

DATA myleft;

SET mydata(KEEP =id workshop gender q1 q2);

RUN;

DATA myleft(KEEP =id workshop gender q1 q2);

SET mydata;

RUN;

proc print;run;

* DROP을 사영하여 변수 삭제;

DATA myleft;

SET mydata;

DROP q3 q4;

RUN;

OBS id workshop gender q1 q2

1 1 1 f 1 1

2 2 2 f 2 1

3 3 1 f 2 2

4 4 2 f 3 1

5 5 1 m 4 5

6 6 2 m 5 4

7 7 1 m 5 3

8 8 2 m 4 5


2. SPSS	MAIN

* 변수 Keeping 과 Droping을 위한 SPSS 프로그램.;

GET FILE='C:\mydata.sav'.

DELETE VARIABLES q3 to q4.

SAVE OUTFILE='C:\myleft.sav'.

EXECUTE.


3. R-PROJECT	MAIN

* 변수 Keeping 과 Droping을 위한 R-Project 프로그램.;

load(file="c:\\mydata.Rdata")

# 원본 데이터 보호를 위해서 데이터 복사.

mysubset<-mydata

# q3 과 q4 변수 삭제.

mysubset$q3 <- mysubset$q4 <- NULL

print(mysubset)

workshop gender q1 q2

1 1 f 1 1

2 2 f 2 1

3 1 f 2 2

4 2 f 3 1

5 1 m 4 5

6 2 m 5 4

7 1 m 5 3

8 2 m 4 5


4. S-PLUS	MAIN

* 변수 Keeping 과 Droping을 위한 S-PLUS 프로그램.;

mydata<-read.table ("c:/data/mydata.csv",header=TRUE,

sep=",",row.names="id")

print(mydata)

# 원본 데이터 보호를 위해서 데이터 복사.

mysubset<-mydata

# q3 과 q4 변수 삭제.

mysubset$q3 <- mysubset$q4 <- NULL

print(mysubset)

workshop gender q1 q2

1 1 f 1 1

2 2 f 2 1

3 1 f 2 2

4 2 f 3 1

5 1 m 4 5

6 2 m 5 4

7 1 m 5 3

8 2 m 4 5


5. PROC SQL	MAIN

* 변수 Keeping 과 Droping을 위한 PROC SQL 프로그램.;

* Select 문에서 변수 선택;

proc sql;

create table mydata as

select id,

workshop,

gender,

q1,

q2

from BACK.mydata a;

select * from mydata;

quit;

* 입력데이터의 변수 선택;

proc sql;

create table mydata as

select a.*

from BACK.mydata(KEEP =id workshop gender q1 q2) a;

select * from mydata;

quit;

* 출력 데이터의 변수 선택;

proc sql;

create table mydata(KEEP =id workshop gender q1 q2) as

select a.*

from BACK.mydata a;

select * from mydata;

quit;

* 입력데이터의 변수 삭제;

proc sql;

create table mydata as

select a.*

from BACK.mydata a(DROP=q3 q4);

select * from mydata;

quit;

id workshop gender q1 q2

------------------------------------------

1 1 f 1 1

2 2 f 2 1

3 1 f 2 2

4 2 f 3 1

5 1 m 4 5

6 2 m 5 4

7 1 m 5 3

8 2 m 4 5