这不是第一次写R语言博客

getwd()#显示当前路径
.libPaths()#显示安装包位置
install.packages(“stringr”)#下载包
library (“stringr”)#加载包
str_length (“Hello R!”)#计算字符串长度
detach(“package:stringr”)#将不使用的包进行移除
remove.package(“package:stringr”)#卸载包
search ()#函数search ()显示已加载的包的列表
is.logical(TRUE)#逻辑型
is.double ()#浮点型
is.integer (10)#整数型
is.character ()#字符型
is.complex ()#复数型
is.raw ()#原始型
num<-100L
num
is.integer(num)
typeof(num)
2T
10+F
exp(F)
10&0
10|0
as.numeric(F)
as.numeric(“0125”)
as.numeric(“你好”)
as.logical(10)
as.logical(0)
as.logical(-10)
as.logical(“T”)
as.logical(“F”)
as.character(c(T,F,TRUE,FALSE))
as.character(10.99)
a<-100#最小单元为向量
a[1];a[2];a[0]
num_vec<-c(1,2)
length(num_vec)<-4
num_vec
10/0
-10/0
0/0
num_vec1<-c(1,5,NaN)
length(num_vec1)
num_vec2<-c(1,5,NULL)
length(num_vec2)
exp(F)
num_vec1<-c(NA,NULL,NaN)
length(num_vec1)
郭耸<-‘永不单身’
vec<-c(2,3,4);
vec<-c(vec[1:2],10,vec[3])
vec
vec[-2]
vec<-letters
length(vec)
vec[-length(vec)]
vec[-length(vec)😦-length(vec)+2)]
c(1L,2.0,‘a’)
?seq()#等差
example(seq)#函数例子
seq(1,5,by=2)
a<-c(1,2)
rep(a,3)#重复执行
new.vec<-c()
length(new.vec)
new.vec
stu<-sample(c(17,18,19),10,replace=T)
stu>=18
all(stu>=18)
stu<-sample(c(18,19),10,replace=T)#随机 放回抽样
all(stu>=18)#所有
any(stu<18)#存在
vec1<-c(1,2)
vec2<-c(1,20)
vec1vec2
vec1vec2
vec1
vec1|vec2
vec1||vec2#只看第一个
vec<-1:10
new.vec<-vec[vec%%20]
new.vec
vec
vec[c(F,T,T)]
vec<-c(1:5,NA)
vec[vec%%20]#按条件查找 有NA
vec
subset(vec,vec%%20)#按条件查找