21.求矩阵的秩
Mat <- matrix(1:16,nrow=4)
qr(Mat)$rank
22.用rbind和cbind合并数据或数据框
AB <- data.frame(A = c('a1','a2','a3'),B=c('b1','b2','b3'))
cbind(AB,AB);
rbind(AB,AB)
23.重命名data.frame的行名
X <- mtcars
head(X)
rownames(X) <- 1:nrow(mtcars) ###将行名改成序号
head(X)
24.用mean计算截断均值
x <- c(0:10,50)
xm <- mean(x)
c(xm,mean(x,trim = 0.10)) ###trim是截断，去掉最高的和最低的10%
25.找出两个数组中相同的行的行号
A==B
26.求逆矩阵
solve（A）
27.集合运算
union(A,B) ###并集
intersect(A,B) ###交集
setdiff(A,B) ###求B-A
setequal(A,B) ###A B是否相同
is.element(12,C) ###12是否在C中
all(C%in%A) ###集合A是否包含C
28.去除向量中NA值
(1)dt <- c(3,33,NA,333,NA)
dt[complete.cases(dt)]
(2)c <- dt[!is.na(dt)]
(3)a <- dt[-which(is.na(dt))]
(4)b <- na.omit(dt)
29.开n次方
x <- 1000
n <- 5
x^(1/n)
30.查看当前工作目录下有那些变量
objects()
