[問題] while迴圈不會動

看板R_Language作者linkpon5566 (大將軍五六)時間8年前 (2017/08/02 11:18)推噓1(1推 0噓 2→)

留言3則, 1人參與討論串1/1

[問題類型]: 程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來) [軟體熟悉度]: 入門(寫過其他程式，只是對語法不熟悉) [問題敘述]: 最近在練習單層感知機用for迴圈寫的版本是OK的但不知為何while迴圈就不行初始值: x1 <- c(0, 0) x2 <- c(0, 1) x3 <- c(1, 0) x4 <- c(1, 1) ans0 <- c(1, 1, -1, 1) x0 <- cbind(x1, x2, x3, x4) w0 <- c(0, 1) # 初始weights 目的: 找到一個w0 把x1, x2, x3, x4 分成 1, -1 兩類 ans0為預設答案行合併之後逐行檢驗分類正確則w0不變反之則迭代新的w0 全部一輪沒錯則停止 [for版本] perceptron <- function(x = x0, w0 = c(0, 1), threshold = -1, rate = 0.8, ans = ans0, n = 1000) { w0 <- c(threshold, w0) x <- rbind(-1, x) for(i in 1:n){ j <- (i + 3) %% 4 + 1 if( all(sign(t(w0) %*% x) == ans) ){ break }else if(sign(t(w0) %*% x[, j]) == ans[j]) { w0 <- w0 }else{w0 <- w0 + sign(ans[j]) * rate * x[, j]} } return(w0) } [while版本] perceptron <- function(x = x0, w0 = c(0, 1), threshold = -1, rate = 0.8, ans = ans0) { w0 <- c(threshold, w0) x <- rbind(-1, x) i <- 1 while(all(sign(t(w0) %*% x) != ans)){ j <- (i + 3) %% 4 + 1 if(sign(t(w0) %*% x[, j]) == ans[j]){ w0 <- w0 }else{w0 <- w0 + sign(ans[j]) * rate * x[, j]} i <- i + 1 } return(w0) } for 版本成功輸出正確的w0 while版本還是輸出初始w0 主要是迴圈寫法的問題不知道演算法部分是否要寫詳細若需要我再補充謝謝 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 49.218.1.235 ※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1501643881.A.3E9.html ※ 編輯: linkpon5566 (49.218.1.235), 08/02/2017 11:20:31 ※ 編輯: linkpon5566 (49.218.1.235), 08/02/2017 11:21:27

→

x88776544pc

08/02 12:53, , 1^F

08/02 12:53, 1^F

抱歉是筆誤已補上原本的code是有初值的但依舊不能跑 ※ 編輯: linkpon5566 (49.218.1.235), 08/02/2017 13:20:53

推

x88776544pc

08/02 13:53, , 2^F

08/02 13:53, 2^F

→

x88776544pc

08/02 13:53, , 3^F