[問題] while迴圈不會動

[linkpon5566 (大將軍 五六)]

[問題類型]:
程式諮詢(我想用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: while 版本的 i 沒有定義初值
抱歉是筆誤   已補上
原本的code是有初值的   但依舊不能跑
※ 編輯: linkpon5566 (49.218.1.235), 08/02/2017 13:20:53
推 x88776544pc: while 後面的條件是全部分錯才做，跟你原先預想的不
→ x88776544pc: 一樣
感謝!! 已解決     是我誤解 "all" 的用法

把while裡面改成

sum(sign(t(w0) %*% x) == ans) != length(ans)

可以輸出正確結果
※ 編輯: linkpon5566 (49.218.1.235), 08/02/2017 14:57:44