> cat("my data", "20180101-20180331","2 3 5 7", "11 13 17", file = "my1.data", sep = "\n")
> x<-scan("my1.data",skip=2)
Read 7 items
> x
[1] 2 3 5 7 11 13 17
> x <- matrix(1:10, ncol = 5)
> x
[,1] [,2] [,3] [,4] [,5]
[1,] 1 3 5 7 9
[2,] 2 4 6 8 10
> t(x)
[,1] [,2]
[1,] 1 2
[2,] 3 4
[3,] 5 6
[4,] 7 8
[5,] 9 10
> write(x, "my2.data", sep = "\t")
> x1<-read.table("my2.data")
> x1
V1 V2 V3 V4 V5
1 1 2 3 4 5
2 6 7 8 9 10
> x2<-scan("my2.data")
Read 10 items
> x2
[1] 1 2 3 4 5 6 7 8 9 10
> write.table(x,file="my3.data")
> x3<-read.table("my3.data")
> x3
V1 V2 V3 V4 V5
1 1 3 5 7 9
2 2 4 6 8 10
> write.csv(x, file = "my4.csv")
> x4<-read.csv("my4.csv",row.names=1)
> x4
V1 V2 V3 V4 V5
1 1 3 5 7 9
2 2 4 6 8 10
> write.csv(x, file = "my4.csv",row.names = FALSE)
> x4<-read.csv("my4.csv")
> x4
V1 V2 V3 V4 V5
1 1 3 5 7 9
2 2 4 6 8 10
> x
[,1] [,2] [,3] [,4] [,5]
[1,] 1 3 5 7 9
[2,] 2 4 6 8 10
> t(x)
[,1] [,2]
[1,] 1 2
[2,] 3 4
[3,] 5 6
[4,] 7 8
[5,] 9 10
> write.csv(t(x), file = "my4.csv",row.names = FALSE)
> x4<-read.csv("my4.csv")
> x4
V1 V2
1 1 2
2 3 4
3 5 6
4 7 8
5 9 10
> write.table(t(x),file="my5.data")
> x5<-read.table("my5.data")
> x5
V1 V2
1 1 2
2 3 4
3 5 6
4 7 8
5 9 10
> write(x, "", sep = "\t")
1 3 5 7 9
2 4 6 8 10
> write(t(x), "", sep = "\t")
1 3 5 7 9
2 4 6 8 10