Day3-廖廖

x<-rep(1:3,times=2)

x[c(1,5)]

x[x==2]

read.table(file = "huahua.txt",sep = "\t",header=T)
a<-read.table(file = "huahua.txt",sep = "\t",header=T)

X<-read.csv('doudou.txt')
colnames(X)
row.names(X)
colnames(X)[1]<-"bioplanet"
X<-read.csv(file = "huahua.txt",sep = " ",header = T,row.names = 1)

write.table(X,file = "yu.txt",sep = ",",quote=F)

save.image(file="bioinfoplanet.RDate")
save(X,file="test.RData")
load("test.RData")

X[x,y]
X[x,]
X[,y]
X[a:b]
X[c(a,b)]
X$X1

plot(iris$Sepal.Length,iris$Sepal.Width)