# R语言常用的程序
rm(list=ls()) #清空内存变量
a<-c(1,3,6,7,9) #生成向量a
ifelse(a>5,2*a,0) #ifelse函数实现分段函数，大于5的元素乘2;小于等于5的元素置0
ifelse(a<3,4,ifelse(a<=6,4*a,a)) #ifelse实现多条件语句判断a<3,值为4;a>6,值不变;否则,值乘以4
a1<-c(5.2,1,6,8,4.3);a11<-c(1,1,1,0,0)
a2<-as.data.frame(cbind(a,a1,a11))
a2$info<-ifelse(a2$a11==1,”target”,”untarget”) #a11列等于1，info列结果为target
a2$info1<-ifelse((a2$a<2)&(a2$a1<5),T,F) #a小于2,a1小于5为T;否则为F
b<-NULL;c1<-c(1,3,4,6,7) #初始化向量b和c
for (i in 1:length(c1)){
b[i]<-2^(c1[i])
} #2的c次方,等价于2^a
library(readxl) #若未安装，用install.packages(“readxl”)
getwd() #获取当前工作路径
setwd(“C:/Users/Lenovo/Documents/410”) #设置工作路径
c<-NULL
for (j in 1:2){
data<-as.data.frame(read_excel(paste0(j,’.xlsx’)))
c<-cbind(c,data[,1])
}