(HobNote)R言語関係[2]

R言語関係[2]

since 2015.05.05 last update 2015.05.05

for文は、以下のような記述になる。

test_for.R

A <- 0
B <- 10
for (i in A:B) {
  cat(i)
  cat(" ")
}
cat("\n")

これは、iにAの値からBの値までをインクリメントしながらfor文内の記述を処理していくことになる。
実行結果は、以下の通りになる。

> source("test_for.R")
0 1 2 3 4 5 6 7 8 9 10
>

▲ ▼

if文

if文は、以下のような記述になる。

test_if.R

####
cat("--test 1--\n")
A <- 3
{
  if ( A >= 3 ) {
    cat("A>=3") 
    cat("\n") 
  } else if ( A == 2 )  cat("A==2\n") 
  else {
    cat("A < 2") 
    cat("\n") 
  }
}

####
cat("--test 2--\n")
A <- 2
if ( A >= 3 ) {
  cat("A>=3") 
  cat("\n") 
} else if ( A == 2 ) {
  cat("A==2\n")
} else {
    cat("A < 2") 
    cat("\n") 
}

####
cat("--test 3--\n")
{
  A <- -3
  if ( A >= 3 ) {
    cat("A>=3") 
    cat("\n") 
  } else if ( A == 2 )  cat("A==2\n") 
  else {
    cat("A < 2\n") 
  }
}

ここで注意しなければいけないところは、else if ...とelse ...の位置である。
else if ...とelse ...は、前段の条件分岐処理式の後の}と同じ行に書くか、if...else...の文全体を{}で
くくる必要がある。
実行結果は、以下の通りになる。

> source("test_if.R")
--test 1--
A>=3
--test 2--
A==2
--test 3--
A < 2
>

▲ ▼

コマンドラインからRのスクリプトファイルを実行する。

コマンドラインからRのスクリプトファイルを実行するには、2つの方法がある。
1つ目は、Rscriptコマンドを使う方法である。

test_for.R

A <- 0
B <- 10
for (i in A:B) {
  cat(i)
  cat(" ")
}
cat("\n")

というスクリプトファイルがあるときこれをコマンドラインから実行するには、

[hoge]$ Rscript test_for.R
0 1 2 3 4 5 6 7 8 9 10
[hoge]$

2つ目は、--vanillaか--saveオプションを使って実行する方法である。
--vanillaは、保存済みオブジェクトを有効にせずに実行。
--saveは、保存済みオブジェクトを有効にして実行。
また--slaveを追加すると標準出力への表示のみ有効になる。

[hoge]$ R --vanilla  < test_for.R
R version 3.1.3 (2015-03-09) -- "Smooth Sidewalk"
Copyright (C) 2015 The R Foundation for Statistical Computing
......(略)......
 'q()' と入力すれば R を終了します。 

> A <- 0
> B <- 10
> for (i in A:B) {
+   cat(i)
+   cat(" ")
+ }
0 1 2 3 4 5 6 7 8 9 10 > cat("\n")

> 
[hoge]$

[hoge]$ R --vanilla --slave < test_for.R
0 1 2 3 4 5 6 7 8 9 10
[hoge]$

[hoge]$ R --save --slave < test_for.R
0 1 2 3 4 5 6 7 8 9 10
[hoge]$

コマンドラインから引数を渡したい場合は、--argsオプションを使う。

test_for2.R

arg_AB <- commandArgs(trailingOnly=T)
A <- arg_AB[1]
B <- arg_AB[2]
for (i in A:B) {
  cat(i)
  cat(" ")
}
cat("\n")

というスクリプトファイルがあるときこれを引数をつけてコマンドラインから実行するには、

[hoge]$ R --vanilla --slave --args 2 12 < test_for2.R
2 3 4 5 6 7 8 9 10 11 12
[hoge]$

▲ ▼

TopPage R言語関係 > R言語関係[2]