[问题类型]:
程式咨询(我想用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
主要是循环写法的问题
不知道算法部分是否要写详细
若需要我再补充 谢谢