r语言第二节课

stu <-sample(1:19,19,replace = F)将1-19随机选出19个数字

stu

stu >= 18判定这些随机数大不大于18

all(stu <= 20)判定是不是都小于20

stu <- sample(c(18,19),10,replace = T)将18，19添入

stu

all(stu >= 18)是不是都大于18

stu <- sample(c(17,18,19),10,replace =
T)随机171819取10个填入列表

stu

any(stu < 18)有没有小于18的

stu <- sample(c(18,19),10, replace =
T)18，19填入

stu是否有小于18的

vec1 <- c(1,2)

vec2 <- c(10,20)

vec1 * vec2相乘

vec1 == vec2全等

vec1 | vec2数据类型是不是一样的

vec1 <- c(1,2)

vec2 <- c(10,20,30)

vec1 + vec2循环相加

vec2 <- c(10,20,30,40)

vec1 + vec2还是循环相加

vec <- 1:10 选出1-10
的数字

new.vec <- vec[vec %% 2 == 0]能不能整除2

new.vec

vec&&2 == 0和2对比

vec[c(F,T,F,T,F,T,F,T,F,T)]

vec <- c(1:5,NA)

vec[vec %% 2 == 0]

vec <- 5:8

which(vec %% 2 == 0) [1]

which(vec = 100) [1]找偶数下标

vec <- 100:999

first.num <- nums %/% 100

second.num <-(num %% 100) %/% 10

third.num <- nums %% 10

nums [(first.num ^ 3 + seconf.num ^3
+third.num ^ 3) == nums]找出水仙花数

#矩阵

#矩阵的创建

m <- matrix (1:8, nrow = 2)

m

#按行创建矩阵

m <- matrix(2:5, nrow = 2, byrow = T)

m

matrix(c(1,5,2,6,3,7,4,8),nrow = 2)

#矩阵运算

m1 <- matrix (1:4, nrow = 2)

m2 <- matrix (2:5, nrow = 2)

m1;m2

m1 + m2按照位置相加

m1 * m2按照位置相乘

data：矩阵的元素，默认为NA，即未给出元素值的话，各项为NA

nrow：矩阵的行数，默认为1；

ncol：矩阵的列数，默认为1；

byrow：元素是否按行填充，默认按列；

#矩阵运算，可以循环补齐吗

m1
<- matrix (1:4, nrow = 2)

m2
<- matrix (2:7, nrow = 2)

m1;m2

m1 + m2

m1
<- matrix (1:4, nrow = 2)

m2
<- matrix (2:3, nrow = 1)

m1;m2

m1 +
m2不可以循环补齐

#矩阵的元素按照条件筛选

m <- matrix(1:12, nrow = 4)

m

first.col <- m[,1]

first.col

first.col %% 2 == 0

m[first.col %% 2 == 0,]

m[first.col %% 2 == 0 & m[,2] > 6,]