11.用combn或expand.grid()抽取所有可能样本
combn（4，2）
expand.grid(1:4,1:4)
12.ginv函数求矩阵的广义逆
library(MASS)
Mat <-matrix(1:16,nrow=4)
ginv(Mat)
13.向量的内积
x%*%y
crossprod(x,y)
14.设定随机数种子
set.seed(1234) ###可以使每次随机数为一样的，方便重复实验，但在实际情况下是不固定的，要去掉
X <-rnorm(n=10)
X
15.用strsplit函数对字符串进行分割
###对字符串进行分割
x <- "1223 43 54356"
y <-unlist(strsplit(x," ")) ；y
###字符串分解成字符向量
A <- 'asadf'
B <-strsplit(A,'') ；B
16.读取中文文本文件
df<-readLines('C:/data/ch.txt',encoding= 'UTF-8')
df
17.询问对话框
winDialog("yesno","Isit ok to delete file?")
18.read.table设置读取数据类型
x <-read.table("filename",colClasses=c("numeric","character",....))
19.paste 函数合并字符串
A <-c("a","b")
B <-c("c","d")
C <-paste(A,B,sep="")
20.unique函数删除重复序列
A <-c(rep(1,10),rep(2,10),rep(3,10))
unique(A)
