Dear Madam / R helpers,
Unfortunately the solution you have suggested is not working in the sense that
the quantities are not multplying the rows but its multiplying columnwise and
hence I am getting all wrong results.
I am again submitting my problem. Please guide me.
I have two input files as 'quantity.csv' and 'equity_price.csv' as (for
example) given below.
'quantity.csv'
GOOG YHOO
1000 100
'equity_price.csv'
sr_no GOOG_price YHOO_price
1 15.22 536.40
2 15.07 532.97
3 15.19 534.05
4 15.16 531.86
5 15.11 532.11
My problem is to calculate the portfolio value for each of these 5 days
(actually my portfolio consists of 47 comanies and prices taken are for last 1
year).
My requirement is to find out the portfolio value for all the five days. In
other words, I need to multiply respective equity prices for all the five days
with the corresponding quatities to have following output.
GOOG YHOO
15220 53640
15070 53297
15190 53405
15160 53186
15110 53211
Please guide
Regards
Sarah
--- On Tue, 2/16/10, Madhavi Bhave <madhavi_bh...@yahoo.com> wrote:
From: Madhavi Bhave <madhavi_bh...@yahoo.com>
Subject: Re: [R] Total and heading of portfoilo table
To: r-help@r-project.org, "Sarah Sanchez" <sarah_sanche...@yahoo.com>
Date: Tuesday, February 16, 2010, 7:05 AM
Hi!
I am not expert in R, but perhaps you can try the following -
X = as.numeric(read.csv('quantity.csv'))
Y = read.csv('equity_price.csv')
Y = Y[, -1]
Z = X*Y
port_val = NULL
for(i in 1 : nrow(Z))
{
port_val[i] = sum(Z[i,])
}
write.csv(data.frame(Z, port_val = port_val), 'PORTFOLIO.csv', row.names =
FALSE)
I am sure the experts will have much simpler way to address this problem.
Regards
Madhavi
--- On Mon, 15/2/10, Sarah Sanchez <sarah_sanche...@yahoo.com> wrote:
From: Sarah Sanchez <sarah_sanche...@yahoo.com>
Subject: [R] Total and heading of portfoilo table
To: r-help@r-project.org
Date: Monday, 15 February, 2010, 10:08 PM
Dear R helpers,
I have two input files as 'quantity.csv' and 'equity_price.csv' as (for
example) given below.
'quantity.csv'
GOOG YHOO
1000 100
'equity_price.csv'
sr_no GOOG_price YHOO_price
1 15.22 536.40
2 15.07 532.97
3 15.19 534.05
4 15.16 531.86
5 15.11 532.11
My problem is to calculate the portfolio value for each of these 5 days
(actually my portfolio
consists of 47 comanies and prices taken are for last 1 year).
I had defined
X = read.csv('quantity.csv')
Y = read.csv('equity_price.csv')
I have tried the loop
Z = array()
for (i in 1:2)
{
Z[i] = (X[[i]]*Y[i])
}
# When I write this dataframe as
write.csv(data.frame(Z), 'Z.csv', row.names = FALSE)
When I open 'Z.csv' file, I get
c.2500L..3300L..4500L..1000L..4400L.
c.14000L..45000L..48000L..26000L..15000L.
2500 14000
3300 45000
4500 48000
1000 26000
4400 15000
My requirement is to have the column heads and the portfolio total as
GOOG YHOO Total
2500 14000 16500
3300 45000 48300
4500 48000 52500
1000 26000 27000
4400 15000 19400
Please guide
Regards
Sarah
[[alternative HTML version deleted]]
-----Inline Attachment Follows-----
______________________________________________
R-help@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.
[[elided Yahoo spam]]
[[alternative HTML version deleted]]
______________________________________________
R-help@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.
