test

memo

rbinom(n, size, prob)の引数はそれぞれサンプル数、ベルヌーイ試行の回数、確率で、probはベクトルでの指定も可能

rbinom(2, 1, c(0.3, 0.7))

## [1] 0 0

rbinom(2, 5, c(0.3, 0.7))

## [1] 1 4

rbinom(2, 5, c(0.3, 0.7))

## [1] 2 5

rbinom(2, 100, c(0.3, 0.7))

## [1] 35 68

rbinom(3, 100, c(0.3, 0.7))

## [1] 27 67 19

rbinom(10, 100, c(0.3, 0.7))

##  [1] 31 67 25 70 39 64 26 64 28 68

行列からの抽出について、指定する行または列の数字を負にすれば、取り除いた残りを返す

library(kernlab)
data(spam)#spamデータの読み込み

n <- nrow(spam)
p <- ncol(spam)

#学習用データとテストデータに分ける
train.obs <- sample(x = 1:n, size = 3601)
test.obs <- -train.obs
train.data <- spam[train.obs, ]  # sample()で生成した番号の行を抽出
test.data <- spam[test.obs, ]  # 生成した番号の行を除外