Hi Elisa,
Try this:
date1<-format(seq.Date(as.Date("1991.1.1",format="%Y.%m.%d"),as.Date("1996.12.31",format="%Y.%m.%d"),by="day"),"%Y.%m.%d")
length(date1)
#[1] 2192
mat1<-matrix(c(.314,.314,.273,.273,.236,.236,.236,.236,.273,.314,.403,.314),ncol=1)
res1<-
as.data.frame(do.call(rbind,lapply(split(date1,((seq_along(date1)-1)%/%12)+1),function(x){if(length(x)!=12)
cbind(x,head(mat1,length(x))) else cbind(x,mat1)})),stringsAsFactors=FALSE)
res1[,2]<- sapply(res1[,2],as.numeric)
str(res1)
#'data.frame': 2192 obs. of 2 variables:
# $ x : chr "1991.01.01" "1991.01.02" "1991.01.03" "1991.01.04" ...
# $ V2: num 0.314 0.314 0.273 0.273 0.236 0.236 0.236 0.236 0.273 0.314 ...
head(res1)
# x V2
#1 1991.01.01 0.314
#2 1991.01.02 0.314
#3 1991.01.03 0.273
#4 1991.01.04 0.273
#5 1991.01.05 0.236
#6 1991.01.06 0.236
tail(res1)
# x V2
#2187 1996.12.26 0.273
#2188 1996.12.27 0.273
#2189 1996.12.28 0.236
#2190 1996.12.29 0.236
#2191 1996.12.30 0.236
#2192 1996.12.31 0.236
res1$x<- as.Date(res1$x,format="%Y.%m.%d")
str(res1)
#'data.frame': 2192 obs. of 2 variables:
# $ x : Date, format: "1991-01-01" "1991-01-02" ...
# $ V2: num 0.314 0.314 0.273 0.273 0.236 0.236 0.236 0.236 0.273 0.314 ...
A.K.
________________________________
From: eliza botto <[email protected]>
To: "[email protected]" <[email protected]>
Sent: Wednesday, February 13, 2013 9:01 AM
Subject: date and matrices
Dear Arun,
[text files is also attached to be used in case format is changed]
i have 124 matrices with 12rows and 1 column. In all those 124 columns there
are values of a certain quantity called disty. what i want to do is the
following
1- insert a date column in each matrix in such a way that date should start
from 1991. 1. 1 (yyyy. m. d) and should end at
1996.12.31.
2- against each date i want to put the values of quantity disty and as i have
only 12 values of disty i want to start from the
first value after very 12 days.
more precisely, if i have a matrix like this
mat1
[,1]
.314
.314
.273
.273
.236
.236
.236
.236
.273
.314
.403
.314
i want it to be like the following one
1911. 1. 1 .314
1911. 1. 2 .314
1911. 1. 3 .273
1911. 1. 4 .273
1911. 1. 5 .236
1911. 1. 6 .236
1911. 1. 7 .236
1911. 1. 8 .236
1911. 1. 9 .273
1911. 1.10 2.314
1911. 1.11 12.403
1911. 1.12 .314
1911. 1.11 .314
1911. 1.12 .314
1911. 1.13 .273
1911. 1.14 .273
1911. 1.15 .236
1911. 1.16 .236
1911. 1.17 .236
1911. 1.18 .236
1911. 1.19 .273
1911. 1.20 2.314
1911. 1.21 12.403
1911. 1.22 .314
1911. 1.23 .314
1911. 1.24 .314
1911. 1.25 .273
1911. 1.26 .273
1911. 1.27 .236
1911. 1.28 .236
1911. 1.29 .236
1911. 1.30 .236
1911. 1.31 .273
1911. 2. 1 2.314
1911. 2. 2 12.403
1911. 2. 3 .314
1911. 2. 4 .314
1911. 2. 5 .314
1911. 2. 6 .273
1911. 2. 7 .273
1911. 2. 8 .236
1911. 2. 9 .236
1911. 2.10 .236
1911. 2.11 .236
1911. 2.12 .273
1911. 2.13 2.314
1911. 2.11 12.403
----------------------
----------------------
1911.12.17 12.403
------------------------
------------------------
------------------------
and so on till 1996
i also want these 124 matrices to be saved in my computer with the pattern
exactly shown above. you can see if a value is in decimal number it is exactly
6 spaces away from the day number in date column. these spaces are subsequently
reduced when the values go from decimal to higher.
Actually it wont be wrong to say the pattren of output text files saved in my
computer should stricktly carry all the patterns as given above as i will later
on use them in fortran.
______________________________________________
[email protected] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
