[問題類型]:
程式諮詢(我想用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
主要是迴圈寫法的問題
不知道演算法部分是否要寫詳細
若需要我再補充 謝謝