index:length(…):长度为0的参数

Question

我正在尝试使用以下定义的函数来计算变量。

我已经发现是函数(0:n(和功能(0:last(age_mortality((而，我的目的是可以获得从0到n的向量开始

有人知道我该怎么解决吗？

Answer 1

一旦解决了这个问题，就会弹出几个错误和警告，我设法让它们陷入困境。

• age_mortality==age=>age_mortality %in% age：您要做的是获取在age中找到的age_mortality元素的索引，这可以通过第二个代码实现，因为第一个代码将检查age_mortality的元素1是否等于age的元素1，这会发出警告，因为age的长度与age_mortality的长度不同。通过查找-全部替换来应用更改。这使函数至少输出一个结果
• N = length(age_mortality[index:length(age_mortality)])会导致以下警告：

In index:length(age_mortality(：数字表达式有81个元素：仅使用第一个。

您试图计算的是剩余的年数，因此我建议您将其更改为：N = length(age_mortality) - index +1你还需要更改后面的行

ax <- sapply(1:length(index), function(i) sum( (v^(1:(N[i]-1))) * L[(index[i]+1):(length(L))] / L[index[i]] ))

如果这不是你想要的评论，我们会解决的。

• 现在我们得到两个具有相同解决方案的警告：

1:In AnnuityDue(年龄+t(-nEx(t(*AnnuityDue(年龄+n(：较长的对象长度不是较短对象长度的倍数

2:In S*Benefit(0:last(age_mortality((*(1+f(+Premium*(e*：较长的对象长度不是较短对象长度的倍数

如果我们打印Benefit、AnnuityDue和nEx函数的输出，我们可以看到是什么导致了它，显然一些NAs、NANs和Infs导致了向量的不同长度。我们可以通过定义一个omit函数来解决这个问题，该函数将向量作为输入，并且只返回有限和定义的元素，即：

omit <- function(x) x[is.finite(x)]

然后在返回值之前将前面每个函数的输出重定向到其中：

Benefit <- function(t){
### your code here
return(omit(B))
}
# same thing for the other functions stated above

现在，代码在没有警告的情况下工作，不确定输出是否正确：

> Insurance(age_x1=40, age_y1=NA, age_x2=NA, age_y2=NA, 
+           r=4, S=1, n=25, I=0, e=0, f=0, n_guaranteed=NA, 
+           PremiumPayment="single", PremiumFrequency="yearly", 
+           BenefitType_x="whole life assurance", BenefitType_y=NA, BenefitType_joint=NA, 
+           BenefitPayment="year end", BenefitFrequency="yearly", Policyholder="Group x")
$`PV Benefit`
[1] 0.2305597
$`PV Expenses`
[1] 0
$`PV Premium`
[1] 0.2305597
$Premium
[1] 0.2305597
$Reserve
[1] 0.000000000 0.008509399 0.017309504 0.026403962 0.035796264 0.045489822 0.055485862 0.065786354 0.076391321 0.087299629 0.098510445 0.110019422 0.121823431 0.133915583 0.146289267
[16] 0.158935859 0.171845028 0.185004428 0.198400619 0.212018291 0.225840105 0.239847703 0.254020586 0.268336638 0.282771726 0.297301263 0.311898937 0.326537415 0.341188133 0.355821656
[31] 0.370408020 0.384917092 0.399318583 0.413582476 0.427679070 0.441579072 0.455254361 0.468678022 0.481824380 0.494669926 0.507192372 0.519371971 0.531190799 0.542633303 0.553686424
[46] 0.564339674 0.574584613 0.584415520 0.593828910 0.602823466 0.611400236 0.619562371 0.627314658 0.634663662 0.641617653 0.648186080 0.654379478 0.660209598 0.665688864 0.670830245
[61] 0.675647388 0.680153925 0.684363793 0.688290888 0.691949218 0.695352424 0.698514828 0.701448744 0.704168487 0.706688199 0.709024689 0.711218119 0.713232273 0.715455505 0.717778932
[76] 0.720412393 0.730978749