R 创建方差递增的向量

下面的手绘图显示了根据泊松回归拟合值绘制的残差

我如何创建两个向量，在打印时显示与附加打印中相同的图案

请注意，拟合值是什么并不重要（因此没有比例）

以下是我的尝试（将Stata代码从转换为R）：

set.seed（123）
#让我们生成一个样本数据集，它在z中具有异方差性。
z以下是我的尝试（将Stata代码从转换为R）：

set.seed（123）
#让我们生成一个样本数据集，它在z中具有异方差性。
z使y的标准偏差成为x的递增函数：

x <- runif(100, 0, 10)
y <- rnorm(100, 0, x)
plot(x,y)

x使y的标准偏差成为x的递增函数：

x <- runif(100, 0, 10)
y <- rnorm(100, 0, x)
plot(x,y)

x你可以取一个序列，取序列的正弦，然后乘以序列本身

a = seq(1:1000)
b = sin(a) * a
plot(b)

你将得到一个方差递增的向量。你可以用它来创建一个时间序列或任何你喜欢的东西。
你可以取一个序列，取序列的正弦，然后乘以序列本身

a = seq(1:1000)
b = sin(a) * a
plot(b)

你将得到一个方差递增的向量。你可以用它来创建一个时间序列或任何你喜欢的东西。