第 12 屆 iThome 鐵人賽
分享至
您的訂閱是我製作影片的動力訂閱點這裡~
若內容有誤,還請留言指正,謝謝您的指教
#影片程式碼 #隨機抽樣 data("iris") n <- nrow(iris) set.seed(17) subiris <- sample(seq_len(n), size = round(0.7 * n)) traindata <- iris[subiris,] testdata <- iris[ - subiris,] sum(testdata$Sepal.Length)
IT邦幫忙