我需要写这个公式

Question

我想用R编写这个公式，我不想使用任何循环。可能吗？

xi <- c(4,11,19,23,54,75)

Answer 1

您可以在向量中创建相应的function，然后apply，然后在结果上使用sum()。

编辑：或只是n*ln(a/b) + sum((-((xi-c)/b)^a+(a-1)*ln((Xi-c)/b)))