二通りの出力の方法
> cat("foo")
foo
> print("foo")
[1] "foo"
> cat(c(1,2,3))
1 2 3
> print(c(1,2,3))
[1] 1 2 3
> cat(c("A", "vector", "of", "words"))
A vector of words
> print(c("A", "vector", "of", "words"))
[1] "A" "vector" "of" "words"
グラフをあらためて書くとき
dev.off()
plot.new()
の二つを使う。いつも使うので、まとめて一つにしておくと便利。
newg <- function () {
if (dev.cur() > 1) {
dev.off()
}
plot.new()
}
ブール演算 & |
「かつ」
> (1:10 > 2) & (1:10 < 7)
[1] FALSE FALSE TRUE TRUE TRUE TRUE FALSE FALSE FALSE FALSE
「もしくは」
> (1:10 > 2) | (1:10 < 7)
[1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
条件もし
print_hello7 <- function (x) {
if (x > 7) {
cat("Hello.\n");
}
}
条件もしくは
print_hello7_2 <- function (x) {
if (x > 7) {
cat("Hello number greater than 7.\n")
}
else {
cat("Hello number less than or equal to 7.\n")
}
}
途中でとめるには、Esc
while(){}でループ
マックの場合、半角¥は、半角¥に変換される。
バックスラッシュにするには、optionを押しながら¥。
i <- 0
while (i < 10){
cat("Hello.\n")
i <- i + 1
}
factorial 階乗
4! = 4x3x2x1
product 積
10個の要素、各要素は、要素番号の2倍に12を足したものにする。
i <- 1
while ( i < 11) {
v[i] <- i*2+12
i <- i + 1
}
戻り値 return
書かずに、そのまま変数名を書いてしまう人も多い。
奇数偶数の判別
odd_even <- function(x){
if (x %% 2 == 0){
cat(x,"is EVEN.\n")
}
else{
cat(x,"is ODD.\n")
}
}
debug() デバッグする
> cat("foo")
foo
> print("foo")
[1] "foo"
> cat(c(1,2,3))
1 2 3
> print(c(1,2,3))
[1] 1 2 3
> cat(c("A", "vector", "of", "words"))
A vector of words
> print(c("A", "vector", "of", "words"))
[1] "A" "vector" "of" "words"
グラフをあらためて書くとき
dev.off()
plot.new()
の二つを使う。いつも使うので、まとめて一つにしておくと便利。
newg <- function () {
if (dev.cur() > 1) {
dev.off()
}
plot.new()
}
ブール演算 & |
「かつ」
> (1:10 > 2) & (1:10 < 7)
[1] FALSE FALSE TRUE TRUE TRUE TRUE FALSE FALSE FALSE FALSE
「もしくは」
> (1:10 > 2) | (1:10 < 7)
[1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
条件もし
print_hello7 <- function (x) {
if (x > 7) {
cat("Hello.\n");
}
}
条件もしくは
print_hello7_2 <- function (x) {
if (x > 7) {
cat("Hello number greater than 7.\n")
}
else {
cat("Hello number less than or equal to 7.\n")
}
}
途中でとめるには、Esc
while(){}でループ
マックの場合、半角¥は、半角¥に変換される。
バックスラッシュにするには、optionを押しながら¥。
i <- 0
while (i < 10){
cat("Hello.\n")
i <- i + 1
}
factorial 階乗
4! = 4x3x2x1
product 積
10個の要素、各要素は、要素番号の2倍に12を足したものにする。
i <- 1
while ( i < 11) {
v[i] <- i*2+12
i <- i + 1
}
戻り値 return
書かずに、そのまま変数名を書いてしまう人も多い。
奇数偶数の判別
odd_even <- function(x){
if (x %% 2 == 0){
cat(x,"is EVEN.\n")
}
else{
cat(x,"is ODD.\n")
}
}
debug() デバッグする