runif() 0から1の間で「乱数」を出してくれる。引数に指示した個数だけ出してくれる。
> runif(3)
[1] 0.63095397 0.24708717 0.07877673
colors() 使える色の一覧が出る。
tagged_sentences <- c(
"The:Det man:N bit:V the:Det dog:N",
"Dogs:N do:Aux not:Adv like:V cats:N"
)
として、データをvectorに入れておく。
strsplit(x, split, fixed = FALSE, perl = FALSE, useBytes = FALSE)
strsplit()して、それをlistにいれる。
[[]]ダブルブラケットで、list内の「要素」を指定する。
$をつけて「要素」内のどちらかを指定する。
> list(word="man", tag="N")
$word
[1] "man"
$tag
[1] "N"
strsplit(tagged_sentences, " ")
parse <- function (words) {
ss <- strsplit(words, ":")
named <- list()
for (i in 1:length(ss)){
named[[i]] <- list(word=ss[[i]][1], tag=ss[[i]][2])
}
named
}
maketag <- function (vec){
list(word=vec[1], tag=vec[2])
}
lapply(X, 関数) あるリストXのすべてに対して「関数」を適用して、その結果をリストで返す。
list には、キー と 値 をセットで入れる。単語と品詞とか。
> mylist <- list(word="the", tag="Det")
> mylist
$word
[1] "the"
$tag
[1] "Det"
> mylist$word
[1] "the"
> mylist$tag
[1] "Det"
> mylist[[1]]
[1] "the"
> mylist[[2]]
[1] "Det"
院生が講師として講義をしている。
非常にRのことを良く知っているということはよくわかるが、、、
わかる人はわかるけど、
わからない人はわからない、という講義。
> runif(3)
[1] 0.63095397 0.24708717 0.07877673
colors() 使える色の一覧が出る。
tagged_sentences <- c(
"The:Det man:N bit:V the:Det dog:N",
"Dogs:N do:Aux not:Adv like:V cats:N"
)
として、データをvectorに入れておく。
strsplit(x, split, fixed = FALSE, perl = FALSE, useBytes = FALSE)
strsplit()して、それをlistにいれる。
[[]]ダブルブラケットで、list内の「要素」を指定する。
$をつけて「要素」内のどちらかを指定する。
> list(word="man", tag="N")
$word
[1] "man"
$tag
[1] "N"
strsplit(tagged_sentences, " ")
parse <- function (words) {
ss <- strsplit(words, ":")
named <- list()
for (i in 1:length(ss)){
named[[i]] <- list(word=ss[[i]][1], tag=ss[[i]][2])
}
named
}
maketag <- function (vec){
list(word=vec[1], tag=vec[2])
}
lapply(X, 関数) あるリストXのすべてに対して「関数」を適用して、その結果をリストで返す。
list には、キー と 値 をセットで入れる。単語と品詞とか。
> mylist <- list(word="the", tag="Det")
> mylist
$word
[1] "the"
$tag
[1] "Det"
> mylist$word
[1] "the"
> mylist$tag
[1] "Det"
> mylist[[1]]
[1] "the"
> mylist[[2]]
[1] "Det"
院生が講師として講義をしている。
非常にRのことを良く知っているということはよくわかるが、、、
わかる人はわかるけど、
わからない人はわからない、という講義。