尝试在序列中应用非函数

Question

我试图用这些条件制作一个序列：

y<-seq(from=a-2(b-a), to=a+2(b-a), by=4(b-a)/99, length.out=100)

假设：

sample=rnorm(50, mean=0, sd=1)
sample_min=min(sample)
a<-sample_min
sample_max=max(sample)
b<-sample_max

我得到错误＆＃34;尝试在序列中应用非功能。＆＃34;我该如何解决这个问题？

Answer 1

在控制台中查看2(b-a)：

2(b-a)
# Error: attempt to apply non-function

R不知道你想要乘法，所以它认为2(b-a)是一个带有2()参数的函数b-a。您需要使用算术运算符*指定乘法。因此a-2(b-a)应为a-2*(b-a)，to和by参数应相同。

执行此操作后，您需要删除to或length.out参数之一，因为这也会产生错误。 to和length.out不能一起使用。最终产品将是

seq(from = a - 2 * (b - a), to = a + 2 * (b - a), by = 4 * (b - a) / 99) 
## or
seq(from = a - 2 * (b - a), by = 4 * (b - a) / 99, length.out = 100)

有关详情，请参阅help(seq)。