Hi r-help-boun...@r-project.org napsal dne 16.02.2010 08:05:08:
> 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,]) > > } If I am not mistaken and if you ensure that column positions in both data frames are the same. rowSums(mapply("*", Y, X)) Shall do the trick Regards Petr > > 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. > > > > > tp://downloads.yahoo.com/in/internetexplorer/ > [[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. ______________________________________________ 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.