请在r中执行以下代码，生成一个向量x.vector，并用最大似然法估计样本所代表总体的参数,set.seed(111) x.vector <- rnorm(1000,mean=2,sd=2)

好的，以下是生成向量x.vector并用最大似然法估计样本所代表总体的参数的代码：

# 设置随机数种子
set.seed(111)

# 生成长度为1000的随机正态分布向量
x.vector <- rnorm(1000, mean = 2, sd = 2)

# 用最大似然法估计样本所代表总体的参数
mean_ml <- mean(x.vector)
sd_ml <- sd(x.vector)

# 输出结果
cat("样本均值的最大似然估计值为：", mean_ml, "\n")
cat("样本标准差的最大似然估计值为：", sd_ml, "\n")

运行这段代码后，你将得到样本均值的最大似然估计值和样本标准差的最大似然估计值。