R——第一次作业

作业一：下载R（和RStudio）

R本身并没有图形化的界面，但大多数人都是通过图形化平台与R进行交互，这些平台提供了额外的功能。我们可以使用一个叫RStudio的IDE作为R的图形化前端，这样我们就可以在一个地方访问我们的脚本和数据，找到帮助，预览图和输出。

你可以从CRAN（The Comprehensive R Archive Network）下载R。选择适合你的操作系统的版本。这里也有一个B站上的视频（点击即可）可以帮助你，这个视频的列表也有R Studio的安装方法，大家可以根据自己的需要下载。

就我个人而言，要是追求好看的界面，也不介意那点内存，经常用脚本的可以下载一个R Studio。其他同学就可以只下载R软件

下面的这个是R的界面：

 下面的这个是R Studio的界面：

作业2，作业3，我都用了两个方法，上课的知识是第一种方法，第二种方法涉及到了循环，还没讲到，有兴趣的可以看一看，这个链接是有关R语言的循环的，我平时也用这个网站查函数，语句等等，有需要的可以存一下 ^_^

作业二：

方法一，分段生成01-09，10-36，然后用c进行连接 

###作业2_方法一
###生成01-09
a <- 1:9
a <- paste("0",a,sep = "")
###生成10-36
b <- 10:36
ab <- c(a,b)  #这两句也可以直接改成：ab <- c(a, 10:36)
###生成班级编号
class <- paste("21应统",ab,sep = "")

方法二，分别生成01-09，1-36，然后用循环赋值将1-9覆盖掉

###作业2_方法二
###生成01-09
a <- 1:9
a <- paste("0",a,sep = "")
###生成01-36
ab <- 1:36
for(i in 1:9){
  ab[i] <- a[i]
}
###生成班级编号
class <- paste("21应统",ab,sep = "")

作业三：

我问了一下老师，100以内的数是否包括100，老师说都可以

 

 

两个范围大家任选其一即可，都行 

方法一，分段生成奇数，偶数，用C连接

###作业3_方法一
###生成范围：1-100
odd <- seq(1,100,by=2)
even <- seq(2,100,by=2)
num <- c(odd,even)
###生成范围：0-99
odd <- seq(1,100,by=2)
even <- seq(0,98,by=2)
num <- c(odd,even)

方法二，用req生成奇数或者偶数，用rep重复2次，接着用循环并赋值解决问题

###作业3_方法二
###生成范围：0-99
odd <- seq(0,98,by=2)
odd <- rep(odd,2)
for(i in 1:50){
  odd[i] <- odd[i]+1
}
###生成范围：1-100
odd <- seq(2,100,by=2)
odd <- rep(odd,2)
for(i in 1:50){
  odd[i] <- odd[i]-1
}

最后展示一下，我写的慕课上的那个作业的代码，不会的同学可以看一看

###慕课上的作业
x <- rep(1701:1704,each=2)
y <- c("甲","乙")
y <- rep(y,4)
xy <- paste(x,y,sep = "")
xy <- paste("金融",xy,sep = "")