R 如何使用s/t/l/表示时间序列中的模式值。。申请家庭？

添加了可复制的示例：

set.seed(1)
y <- ts(rnorm(28))
y # the series from which 3+4*i pattern is introduced
mean(c(y[3 + 4*0], y[3 + 4*1], y[3 + 4*2], y[3 + 4*3], y[3+4*4], y[3+4*5], y[3+4*6])) #[1] 0.4326433

set.seed（1）
你可以试试

mean(y[3+4*(0:6)])
#[1] 0.4326433

你可以试试

mean(y[3+4*(0:6)])
#[1] 0.4326433

你可以试试

mean(y[3+4*(0:6)])
#[1] 0.4326433

你可以试试

mean(y[3+4*(0:6)])
#[1] 0.4326433

您也可以尝试：

mean(y[seq(3, length(y), 4)])
#[1] 0.4326433

您也可以尝试：

mean(y[seq(3, length(y), 4)])
#[1] 0.4326433

您也可以尝试：

mean(y[seq(3, length(y), 4)])
#[1] 0.4326433

您也可以尝试：

mean(y[seq(3, length(y), 4)])
#[1] 0.4326433

平均值（y[3+4*（0:6）]#[1]0.4326433
@akrun，它起作用了。您的解决方案甚至不需要使用任何东西！我根本无法想象你介绍的方式能做到这一点。您可以将其作为解决方案引入。很高兴知道它起作用了。作为解决方案发布的
mean（y[3+4*（0:6）]#[1]0.4326433
@akrun，它起作用了。您的解决方案甚至不需要使用任何东西！我根本无法想象你介绍的方式能做到这一点。您可以将其作为解决方案引入。很高兴知道它起作用了。作为解决方案发布的
mean（y[3+4*（0:6）]#[1]0.4326433
@akrun，它起作用了。您的解决方案甚至不需要使用任何东西！我根本无法想象你介绍的方式能做到这一点。您可以将其作为解决方案引入。很高兴知道它起作用了。作为解决方案发布的
mean（y[3+4*（0:6）]#[1]0.4326433
@akrun，它起作用了。您的解决方案甚至不需要使用任何东西！我根本无法想象你介绍的方式能做到这一点。您可以将其作为解决方案引入。很高兴知道它起作用了。作为解决方案发布