R help - Dec 2012 - Can somebody suggest how to achieve following data manipulation?

Dear all,

Let say I have following data:

RawData <- matrix(1:101, nr = 1); colnames(RawData) <- c("ASD", 
as.character(as.yearmon(seq(as.Date("2012-03-01"), length.out = 100,
by
= "1 month")))); rownames(RawData) <- "XYZ"

CutOffDate <- as.Date("2012-09-01")

NewDateSeries <- as.character(as.yearmon(seq(CutOffDate, to = 
as.Date("2025-01-01"), by = "1 month")))
ResultMat <- matrix(NA, 1, length(NewDateSeries))
colnames(ResultMat) <- NewDateSeries
rownames(ResultMat) <- "Result"

RawData
ResultMat


Now I need to pass the elements of 'RawData' to 'ResultMat' in
following
way:

Consider the column 'Sep 2012' of 'ResultMat' (i.e. the first
column).
The element for this column will be sum of all elements of columns less 
than or equal to 'Sep 2012' of 'RawData' and including the
column 'ASD'.
Therefore, the column 'Sep 2012' of 'ResultMat' will have the
element as
"1    +    2    +    3    +    4  + 5     +   6     +   7     +   8 =
36".

And remaining columns of 'ResultMat'will get the data from the same 
column names of 'RawData'. Therefore the 2nd column of
'ResultMat' will
have the element as 9 and so on.

I need to adopt above filling policy for arbitrary 'CutOffDate'.

Ofcourse this can be implemented using a 'for' loop. However I believe 
there is some better R-way to do that.

Can somebody help me to achieve that?

Thanks and regards,

Hi,

It's not very clear.

Here, the dimensions are different.
dim(RawData)
#[1]?? 1 101
?dim(ResultMat)
#[1]?? 1 149

ResultMat[,1]<-sum(RawData[RawData<=RawData[8]])
ResultMat[,2:94]<-RawData[RawData>=RawData[9]]


A.K.



----- Original Message -----
From: Christofer Bogaso <bogaso.christofer at gmail.com>
To: r-help at r-project.org
Cc: 
Sent: Monday, December 10, 2012 3:50 PM
Subject: [R] Can somebody suggest how to achieve following data manipulation?

Dear all,

Let say I have following data:

RawData <- matrix(1:101, nr = 1); colnames(RawData) <- c("ASD",
as.character(as.yearmon(seq(as.Date("2012-03-01"), length.out = 100,
by = "1 month")))); rownames(RawData) <- "XYZ"

CutOffDate <- as.Date("2012-09-01")

NewDateSeries <- as.character(as.yearmon(seq(CutOffDate, to =
as.Date("2025-01-01"), by = "1 month")))
ResultMat <- matrix(NA, 1, length(NewDateSeries))
colnames(ResultMat) <- NewDateSeries
rownames(ResultMat) <- "Result"

RawData
ResultMat


Now I need to pass the elements of 'RawData' to 'ResultMat' in
following way:

Consider the column 'Sep 2012' of 'ResultMat' (i.e. the first
column). The element for this column will be sum of all elements of columns less
than or equal to 'Sep 2012' of 'RawData' and including the
column 'ASD'. Therefore, the column 'Sep 2012' of
'ResultMat' will have the element as "1? ? +? ? 2? ? +? ? 3? ? +? ?
4? + 5? ?  +?  6? ?  +?  7? ?  +?  8 = 36".

And remaining columns of 'ResultMat'will get the data from the same
column names of 'RawData'. Therefore the 2nd column of
'ResultMat' will have the element as 9 and so on.

I need to adopt above filling policy for arbitrary 'CutOffDate'.

Ofcourse this can be implemented using a 'for' loop. However I believe
there is some better R-way to do that.

Can somebody help me to achieve that?

Thanks and regards,

______________________________________________
R-help at r-project.org 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.