Skip Headers

SAS  SPSS  R-PROJECT  S-PLUS  PROC-SQL

통 계
프 로 그 램 비 교

Go to Documentation Home
HOME
Go to Book List
PRO_home
Go to Table of Contents
연구회
Go to Index
자료실
Go to Master Index
R-PROJECT
Go to Feedback page
MAIL

Go to previous page
Previous
Go to next page
Next

3. 쉼표(,) 구분자 텍스트 파일 읽기


 


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

1. SAS

MAIN

 

* INFILE문을 사용하여서 구분자 데이터 파일 읽기. 

 libname BACK 'C:\DATA';

DATA BACK.mydata;

INFILE 'c:\data\mydata.csv' delimiter = ','

   MISSOVER DSD lrecl=32767 firstobs=2 ;

INPUT id workshop gender $ q1 q2 q3 q4;

RUN;

PROC PRINT; RUN;

OBS    id    workshop    gender    q1    q2    q3    q4

 1      1        1         f        1     1     5     1

 2      2        2         f        2     1     4     1

 3      3        1         f        2     2     4     3

 4      4        2         f        3     1     .     3

 5      5        1         m        4     5     2     4

 6      6        2         m        5     4     5     5

 7      7        1         m        5     3     4     4

 8      8        2         m        4     5     5     5



2. SPSS

MAIN

 

* 구분자(Delimited) 텍스트 파일을 읽기 위한 SPSS프로그램

 

GET DATA  /TYPE = TXT

 /FILE = 'C:\data\mydata.csv'

 /DELCASE = LINE

/DELIMITERS = ","

 /ARRANGEMENT = DELIMITED

 /FIRSTCASE = 2

 /IMPORTCASE = ALL

 /VARIABLES = id F2.1  workshop F1.0 gender A1.0

              q1 F1.0  q2 F1.0  q3 F1.0  q4 F1.0 .

LIST.

SAVE OUTFILE='c:\data\mydata.sav'.

EXECUTE.

 


3. R-PROJECT

MAIN

 

* 구분자(Delimited) 텍스트 파일을 읽기 위한 R-Project프로그램

 

# 기본적 구분자는 값 사이의 탭 또는 공백이다.

# 파일 경로에서 "c:\\"은 오류가 아니다.

 

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

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

print(mydata)

 

workshop gender q1 q2 q3 q4

1        1      f  1  1  5  1

2        2      f  2  1  4  1

3        1      f  2  2  4  3

4        2      f  3  1 NA  3

5        1      m  4  5  2  4

6        2      m  5  4  5  5

7        1      m  5  3  4  4

8        2      m  4  5  5  5

 

# 변수 q1과 q2위치에 Null을 지정하여서 변수 q1과 q2 생략.

myCols<-read.table("c:/data/mydata.csv",header=TRUE,sep=",",row.names="id",

  colClasses=c("integer","integer","character","NULL","NULL",

  "integer","integer") )

print(myCols)

 

# 디스크에 파일 쓰기.

save.image(file="c:\\mydata.Rdata")

 

workshop gender q3 q4

1        1      f  5  1

2        2      f  4  1

3        1      f  4  3

4        2      f NA  3

5        1      m  2  4

6        2      m  5  5

7        1      m  4  4

8        2      m  5  5

 


4. S-PLUS

MAIN

 

* READ.TABLE 함수를 사용하여 구분자 텍스트 파일 읽기.

 

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

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

print(mydata) 

workshop gender q1 q2 q3 q4

1        1      f  1  1  5  1

2        2      f  2  1  4  1

3        1      f  2  2  4  3

4        2      f  3  1 NA  3

5        1      m  4  5  2  4

6        2      m  5  4  5  5

7        1      m  5  3  4  4

8        2      m  4  5  5  5



5. PROC SQL

MAIN