作者linkpon5566 (大將軍 五六)
看板R_Language
標題[問題] while迴圈不會動
時間Wed Aug 2 11:17:59 2017
[問題類型]:
程式諮詢(我想用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://webptt.com/m.aspx?n=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
1F：→ x88776544pc: while 版本的 i 沒有定義初值 08/02 12:53
抱歉是筆誤 已補上
原本的code是有初值的 但依舊不能跑
※ 編輯: linkpon5566 (49.218.1.235), 08/02/2017 13:20:53
2F：推 x88776544pc: while 後面的條件是全部分錯才做，跟你原先預想的不 08/02 13:53
3F：→ x88776544pc: 一樣 08/02 13:53
感謝!! 已解決 是我誤解 "all" 的用法
把while裡面改成
sum(sign(t(w0) %*% x) == ans) != length(ans)
可以輸出正確結果
※ 編輯: linkpon5566 (49.218.1.235), 08/02/2017 14:57:44