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

5. 고정 길이 텍스트 파일 읽기 (한줄에 하나의 관측치)


 


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

1. SAS

MAIN

* SAS Program에서 고정길이 텍스트 파일 읽기(1 Record per Case);

* 해당 변수의 자리수를 지정하여서 파일을 읽는다.

DATA BACK.mydata;

     INFILE 'c:\data\mydata.txt' MISSOVER;

     INPUT id 1-2 workshop 3 gender $ 4 

            q1 5  q2 6  q3 7  q4 8;

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

 

* SPSS Program에서 고정 길이 텍스트 파일 읽기(1 Record per Case)

 

DATA LIST FILE='c:\mydata.txt' RECORDS=1

 /1 id 1-2 workshop 3 gender 4 (A)  q1 5  q2 6  q3 7  q4 8.

LIST.

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

EXECUTE.

 

 

맨 위로 이동 맨 위로 이동


3. R-PROJECT

MAIN

 

# R Program에서 고정길이 텍스트 파일 읽기(1 Record per Case.)

 

# 문자열 변수에 파일의 이름 저장.

# 파일 위치 출력 확인.

myfile<-("c:\\data/mydata.txt")

print(myfile) 

[1] "c:\\data/mydata.txt"

 

# 문자열 벡터에 변수명 저장.

# workshop 변수명은 생략하였기 때문에 출력되지 않는다.

myVariableNames<-c("id","gender","q1","q2","q3","q4")

print(myVariableNames)  

[1] "id"     "gender" "q1"     "q2"     "q3"     "q4"

 

# Numeric 벡터에 각 변수의 길이 저장.

# -1의 의미는 지정된 변수의 생략을 의미 (workshop변수 삭제)

myVariableWidths<-c(2,-1,1,1,1,1,1)

print(myVariableWidths) 


[1]  2 -1  1  1  1  1  1

 

 

# 실제적으로 파일 읽기 위한 프로그램.

# 위에서 지정한 변수 길이, 변수명의 벡터를 넣어준다.

mydata<-read.fwf(file=myfile,

                 width=myVariableWidths, 

                 col.names=myVariableNames,

                 row.names="id",

                 fill=TRUE,

                 strip.white=TRUE)

print(mydata)

 

  gender q1 q2 q3 q4

1      f  1  1  5  1

2      f  2  1  4  1

3      f  2  2  4  3

4      f  3  1 NA  3

5      m  4  5  2  4

6      m  5  4  5  5

7      m  5  3  4  4

8      m  4  5  5  5

맨 위로 이동 맨 위로 이동


4. S-PLUS

MAIN

 

# 방법1 : Importdata 함수 사용.

# Drop 옵션을 지정하여, 삭제할 변수의 위치 지정.

mydata <-importData("c:/data/mydata.txt",type="FASCII",

                    format="%2s,%1s,%1s,%1f,%1f,%1f,%1f",

                    drop=c(2:2),

                    colNames=c("id","gender","q1","q2","q3","q4"))

print(mydata)

 

# 방법2 : Reda.table 함수 사용.

read.table("c:/data/mydata.txt",

           sep=c(2,3,4,5,6,7,8),

             col.names=c("id","group","gender","q1","q2","q3","q4"))

 id gender q1 q2 q3 q4

1  1      f  1  1  5  1

2  2      f  2  1  4  1

3  3      f  2  2  4  3

4  4      f  3  1 NA  3

5  5      m  4  5  2  4

6  6      m  5  4  5  5

7  7      m  5  3  4  4

   8  8      m  4  5  5  5

 

맨 위로 이동 맨 위로 이동


5. PROC SQL

MAIN