R语言小作业2（向量操作）

任务一：生成简单向量

任务内容：

生成如下向量：

"金融1801甲" "金融1801乙" "金融1802甲" "金融1802乙"

"金融1803甲" "金融1803乙" "金融1804甲" "金融1804乙"

代码及结果：

> x <- paste("金融",rep(c(1801:1804),each=2),c("甲","乙"),sep="")
> x
[1] "金融1801甲" "金融1801乙" "金融1802甲" "金融1802乙"
[5] "金融1803甲" "金融1803乙" "金融1804甲" "金融1804乙"

任务二：简单向量操作

任务内容：

随机产生一个包括负数和正数的向量(整数），
负数采用(1-负数)替代，即-3变成4，正数用(1+正数)替代，即2变成3，

代码及运行结果：

> a <- sample(-10:10,5)
> a
[1]  -3  10 -10  -4  -2
> which(a[]>0)
[1] 2
> which(a[]<0)
[1] 1 3 4 5
> a[which(a[]>0)] <- 1+a[which(a[]>0)]
> a[which(a[]<0)] <- 1-a[which(a[]<0)]
> a
[1]  4 11 11  5  3