R 을 이용한 스크립팅방법

* 쉘에서 파이프를 이용한 데이터 처리

(데이터파일, R 스크립트파일 모두 없음)

[ys ~ # ] bsdsar -u | tail -n 10
18:48      23      3       0         1      73
18:49      22      4       0         0      74
18:50      22      6       0         1      72
18:51      21      4       0         0      74
18:52      16      5       0         1      78
18:53      21      4       0         0      74
18:54      22      4       0         1      74
18:55      20      5       0         0      75
18:56       7      2       0         0      90
18:57      21      5       0         0      74

[ys ~ # ] bsdsar -u | tail -n 10 | cut -c 45-48 | Rscript -e 'summary(scan(file("stdin")));'
Read 10 items
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max.
  72.00   74.00   74.00   75.80   74.75   90.00
[ys ~ # ] 

* 쉘에서 파이프를 이용한 데이터 처리

(데이터파일만 존재)

[ys ~ # ] R -q -e "x <- read.csv('1.dat', header = F); summary(x); var(x)"
> x <- read.csv('1.dat', header = F); summary(x); var(x)
       V1      
 Min.   :60.00 
 1st Qu.:74.00 
 Median :78.00 
 Mean   :79.58 
 3rd Qu.:87.00 
 Max.   :92.00 
         V1
V1 49.90961
>
>

[ys ~ # ] bsdsar -u | tail -n 10 | cut -c 45-48 > 1.dat