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_bhave@yahoo.com> wrote:


From: Madhavi Bhave <madhavi_bhave@yahoo.com>
Subject: Re: [R] Total and heading of portfoilo table
To: r-help@r-project.org, "Sarah Sanchez" <sarah_sanchez09@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_sanchez09@yahoo.com> wrote:


From: Sarah Sanchez <sarah_sanchez09@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]]

