设x为一个长度为10的整数向量，如x <- round(10*runif(10))。要求：（1）提取x中第5至第8个元素；（2）把x中第3个和第6个元素赋值为0；（3）由向量 x 的数据生成一个5行2列的矩阵，并命名为y（要求：数据按行放置）；（4）将矩阵y数乘一个单位阵（提示：单位阵由函数diag()生成）；（5）由向量x生成一个包含两列变量（分别为test1和test2）的数据框，test1的值为x中前5个数，test2的值为x中后5个数。