编程之路_R(2)

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)