在R中查找特定值的索引

Question

我目前正在处理作业问题并遇到问题。我正在处理的问题是经典生日问题的修改版本。然而，我现在也想试着弄清楚两个人生日相同的概率，更具体地说是别人有和我一样的生日的可能性。

以下是作业现有生日问题的工作功能。

birthdays = function(n) { 
s = sample(1:365, n, replace = TRUE) 
return(s) 
} 

duplicate.birthdays = function(n) { 
b = birthdays(n) 
dups = anyDuplicated(b) 
dups = any(dups>0) 
return(dups) 
} 

prob.duplicate =function(n) { 
r = replicate(5000, duplicate.birthdays(n)) 
prob = sum(r)/length(r) 
return(prob) 
} 

n = 1:100  # number of people I'm sampling from 
probs = sapply(n, prob.duplicate) 

我试图修改这些函数，以便明确地定位某人是否和我有同样的生日。我假定在1 - 365天内，我正在寻找任何时候，1号再次出现，因为我假设1，或1月1日是我的生日。

下面是我的duplicate.birthdays功能的修改版本

duplicate.birthdays = function(n) { 
b = birthdays(n) 
index = 1:length(b) 
x = 1 
index.get.1 = index [x=1] 
return(index.get.1) 
} 

但是我总是被退回的第一指标，而不是一个索引是否匹配值1

任何帮助将非常感谢，并希望这是足够的信息，基本上了解我想要得到什么。

Answer 1

你的函数是一个有点怪异：你被x=1子集划分它始终将是1

试着这么做：

duplicate.birthdays <- function(n) { 
    which(birthdays(n)==1) 
}