Statistics 板


LINE

try this: v # <-- your data temp=v[,1]; new.A=temp-a; new.B=12-a+temp; index.A=which(temp==a) index.B=which(temp!=a) v[index.A,1]=new.A[index.A] v[index.B,1]=new.B[index.B] ※ 引述《piq (享)》之铭言: : 感谢大家的建议 : 其实一开始最简单的方法是用for : 但是因为真实在跑分析时 : v[,1]的长度大约是17万6000个 : 也就是说v是一个176000x20up的矩阵 : 如果这时候用for(i 1:length(v[,1]))是可以跑... : 但是会跑非常久~我并不想要这样 : 而A,B两运算是要把v[,1]重新编程一个号码 只是规则不同 : 有想过用ifelse但似乎是失败了 : ifelse(v[,1]==a,A,B) : 分析上 A运算是:v[i,1]-a : B运算是:12-a+v[i,1] : 所以我当初是写成: ifelse(v[,1]==a,v[i,1]-a,12-a+v[i,1]) : 但是不能跑.. : 莫非是ifelse里面不能用逻辑算式? : 还有是recodes指令... : 我的R只接跟我说没有这个指令 囧 : 所以我在想是否还有其他的方法~"~ : : [软体程式类别]: : : R : : [程式问题]: : : if条件问题 : : [软体熟悉度]: : : 低(1~3个月) : : [问题叙述]: : : v是一个矩阵 : : a是一个我们任意给的数(已知) : : 今天我希望v中的某行(假设第一行) 中的各元素做是否等於a的判断运算 : : 我希望能在不用for下 完成我想要的运算 : : 但是一直想不出 : : [程式范例]: : : 以下为大略范例 : : +if(v[,1]==a){执行A运算} : : +else{执行B运算}} : : Warning message: : : In if (a == v[, 1]) { : : : 条件的长度 > 1,因此只能用其第一元素 : : === : : 想请问高手能有办法步用for的状况下 : : 比对v[,1]中的元素是否等於a做逻辑运算吗? --



※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 203.73.70.8
1F:→ koai:写完才发现楼上已经有人写了这个方法... @@" 03/21 15:27
2F:→ piq:感谢您的建议^^ 03/21 20:19







like.gif 您可能会有兴趣的文章
icon.png[问题/行为] 猫晚上进房间会不会有憋尿问题
icon.pngRe: [闲聊] 选了错误的女孩成为魔法少女 XDDDDDDDDDD
icon.png[正妹] 瑞典 一张
icon.png[心得] EMS高领长版毛衣.墨小楼MC1002
icon.png[分享] 丹龙隔热纸GE55+33+22
icon.png[问题] 清洗洗衣机
icon.png[寻物] 窗台下的空间
icon.png[闲聊] 双极の女神1 木魔爵
icon.png[售车] 新竹 1997 march 1297cc 白色 四门
icon.png[讨论] 能从照片感受到摄影者心情吗
icon.png[狂贺] 贺贺贺贺 贺!岛村卯月!总选举NO.1
icon.png[难过] 羡慕白皮肤的女生
icon.png阅读文章
icon.png[黑特]
icon.png[问题] SBK S1安装於安全帽位置
icon.png[分享] 旧woo100绝版开箱!!
icon.pngRe: [无言] 关於小包卫生纸
icon.png[开箱] E5-2683V3 RX480Strix 快睿C1 简单测试
icon.png[心得] 苍の海贼龙 地狱 执行者16PT
icon.png[售车] 1999年Virage iO 1.8EXi
icon.png[心得] 挑战33 LV10 狮子座pt solo
icon.png[闲聊] 手把手教你不被桶之新手主购教学
icon.png[分享] Civic Type R 量产版官方照无预警流出
icon.png[售车] Golf 4 2.0 银色 自排
icon.png[出售] Graco提篮汽座(有底座)2000元诚可议
icon.png[问题] 请问补牙材质掉了还能再补吗?(台中半年内
icon.png[问题] 44th 单曲 生写竟然都给重复的啊啊!
icon.png[心得] 华南红卡/icash 核卡
icon.png[问题] 拔牙矫正这样正常吗
icon.png[赠送] 老莫高业 初业 102年版
icon.png[情报] 三大行动支付 本季掀战火
icon.png[宝宝] 博客来Amos水蜡笔5/1特价五折
icon.pngRe: [心得] 新鲜人一些面试分享
icon.png[心得] 苍の海贼龙 地狱 麒麟25PT
icon.pngRe: [闲聊] (君の名は。雷慎入) 君名二创漫画翻译
icon.pngRe: [闲聊] OGN中场影片:失踪人口局 (英文字幕)
icon.png[问题] 台湾大哥大4G讯号差
icon.png[出售] [全国]全新千寻侘草LED灯, 水草

请输入看板名称,例如:iOS站内搜寻

TOP