> ir.index <- sample(nrow(iris), nrow(iris) * 0.2)
> ir.index
 [1] 128  48  20  91 116  50 131  29 113 107 150  45  12 125 130 147 100  59  16  89  96  63  22  86  34  43  27   3  46  69
> ir.test = iris[ir.index,]
> ir.train = iris[-ir.index,]
