我正在制作一个输出星期几的函数,给定自 1970 年 1 月 1 日以来的天数。当它是一个if then
语句链时,该函数运行良好,但我想在向量上使用该函数,所以我需要构建这个看起来很傻的ifelse
语句链。
不幸的是,我不断收到此错误:
Error in ifelse(rem == 0, day = "Thursday", ifelse(rem == 1, day = "Friday", :
unused argument(s) (day = "Thursday")
Calls: dayFinder -> ifelse
Execution halted
我无法弄清楚如何绕过它 - 看起来它只是忽略了声明的then
一部分。ifelse
我尝试向它提供各种样本数据集或数据点,但无法修复错误。
这是我的代码 - 在此先感谢。
dayFinder <- function(x){
#Assuming that '0' refers to January 1 1970
#Store given number
start <- x
#Initialize variable
day="Halloween"
#Divide x by 7 and store remainder
rem <- x%%7
#Determine the day
ifelse(rem==0, day="Thursday",
ifelse (rem==1, day="Friday",
ifelse (rem==2, day="Saturday",
ifelse (rem==3, day="Sunday",
ifelse (rem==4, day="Monday",
ifelse(rem==5, day="Tuesday",
if (rem==6)
{
day="Wednesday"
}))))))
return(day)
}
q = seq(7,50,1)
z = dayFinder(q)
z