我希望将150个观测虹膜数据集拆分为特定数量的观测数据，以进行训练和测试。 112和38。
我正在使用How to split data into training/testing sets using sample function中显示的代码 但是，这使我进入111-39的对局，而不是112-38。 我尝试了以下方法：
iris[,1:4] <- scale(iris[,1:4])
setosa<- rbind(iris[iris$Species=="setosa",])
versicolor<- rbind(iris[iris$Species=="versicolor",])
virginica<- rbind(iris[iris$Species=="virginica",])
index<-sample.int(n=nrow(setosa),size=ceiling(0.74*nrow(setosa)))
iris.train2<- rbind(setosa[index,], versicolor[index,], virginica[index,])
iris.test2<- rbind(setosa[-index,], versicolor[-index,], virginica[-index,])
将天花板更改为floor（）并相应地调整0.74并没有导致所需的分割。如何使用sample（）实现此目标？