作者Rose9305 (台产零零柒)
看板R_Language
标题[问题] 关於sample指令
时间Wed Dec 16 19:37:21 2015
[问题类型]:
程式谘询(我想用R 做某件事情，但是我不知道要怎麽用R 写出来)
[软体熟悉度]:
新手(没写过程式，R 是我的第一次)
[问题叙述]:
我有组数字资料，想把它当成机率，
运用sample指令来抽样判别各个数值所当的机率时，会抽出(判别)出甚麽。
[程式范例]:
像正常，若只有单笔资料假设数值0.7
sample(c("不好","好"),1,c(1-0.7,0.7),replace=F)
跑R後，就我了解这指令的意思应该是:
出来结果会有0.7机率跑出"好"，0.3机率跑出"不好"
这都可以正常跑出。
但是我想跑一组数值当机率，分别判断，却跑不出来。
a<-c(0.01,0.05,0.7,0.3,0.22)
sample(c("不好","好"),1,c(1-a,a),replace=F)
结果显示:
Error in sample.int(length(x), size, replace, prob) :
incorrect number of probabilities
(看他红字好像是说机率数值不正确?)
(我一个一个代数值是可以正常跑出，只是我有很长一组数字阿!!!)
我想做出类似於这样，第一个用0.01代入a内，判断(抽出)好还是不好，
下一笔用0.05代入a一样看抽出(判断).......下去。
最後应该大概要显示(以上例):不好,不好,好,不好,不好 这样的结果。
请问要如何做呢?哪边有问题?
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 182.234.245.251
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1450265843.A.950.html
※ 编辑: Rose9305 (182.234.245.251), 12/16/2015 19:38:11
1F：→ celestialgod: sapply(a,function(x) sample(c("不好","好"),1,, 12/16 19:49
2F：→ celestialgod: c(1-x,x)) 12/16 19:49
3F：→ celestialgod: 少一个) 12/16 19:50
4F：→ celestialgod: 最後面再补一个)就好了 12/16 19:50
5F：→ Rose9305: OK了,THX 12/16 21:08
7F：推 psinqoo: 推错 SORRY 12/18 13:18