作者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/cn.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