match - R: Matching by row and column -


i have 2 data frames, below:
equitydata

valuationdate   currency    opening closing 02/01/2003        chf          0    0 02/01/2003        dkk          0    0 03/01/2003        chf          0    0 02/01/2003        sek          0    0 03/01/2003        sek          0    0 04/01/2003        sek          0    0 05/01/2003        chf          0    0 03/01/2003        dkk          0    0

which contains information trades done each day, in different currencies , historicalfx 

date        chf        x      dkk     x.1     sek    x.2 02/01/2003  0.6885  0.688   0.1347  0.1346  0.1094  0.1096 03/01/2003  0.688   0.6858  0.1346  0.1345  0.1096  0.1099 04/01/2003  0.6858  0.6858  0.1345  0.1345  0.1099  0.1099 05/01/2003  0.6858  0.6858  0.1345  0.1345  0.1099  0.1099

which contains historical fx rates, opening price below currency ticker, , closing price in column next it.

i trying corresponding fx price in equitydata data frame.

i have tried following, works, inefficient: 

 openexchangematch = match(equitydata$currency,colnames(historicalfx))   closeexchangematch = match(equitydata$currency,colnames(historicalfx))+1   datematch = match(equitydata$valuationdate,historicalfx$date)   (i in 1:nrow(equitydata))   {     equitydata$openexchange[i] = historicalfx[datematch[i],openexchangematch[i]]     equitydata$closeexchange[i] = historicalfx[datematch[i],closeexchangematch[i]]   }

any ideas on how can solve above in better way?

we create row/column index ('indx1') after subsetting second dataset ('df2' i.e. 'historicalfx'), assign 'opening' , 'closing' columns in first dataset ('df1' i.e. 'equitydata') values got using 'indx1' in 'op1' , 'cl1'

op1 <-  df2[-1][c(true, false)] cl1 <-  df2[-1][c(false, true)] names(cl1) <- names(op1) indx1 <- cbind(match(df1$valuationdate, df2$date),               match(df1$currency, names(op1))) df1$opening <- op1[indx1] df1$closing <- cl1[indx1] df1 #  valuationdate currency opening closing #1    02/01/2003      chf  0.6885  0.6880 #2    02/01/2003      dkk  0.1347  0.1346 #3    03/01/2003      chf  0.6880  0.6858 #4    02/01/2003      sek  0.1094  0.1096 #5    03/01/2003      sek  0.1096  0.1099 #6    04/01/2003      sek  0.1099  0.1099 #7    05/01/2003      chf  0.6858  0.6858 #8    03/01/2003      dkk  0.1346  0.1345

data

df1 <- structure(list(valuationdate = c("02/01/2003", "02/01/2003",  "03/01/2003", "02/01/2003", "03/01/2003", "04/01/2003", "05/01/2003",  "03/01/2003"), currency = c("chf", "dkk", "chf", "sek", "sek",  "sek", "chf", "dkk"), opening = c(0l, 0l, 0l, 0l, 0l, 0l, 0l,  0l), closing = c(0l, 0l, 0l, 0l, 0l, 0l, 0l, 0l)), .names = c("valuationdate",  "currency", "opening", "closing"), class = "data.frame", row.names = c(na,  -8l))   df2 <- structure(list(date = c("02/01/2003", "03/01/2003", "04/01/2003",  "05/01/2003"), chf = c(0.6885, 0.688, 0.6858, 0.6858), x = c(0.688,  0.6858, 0.6858, 0.6858), dkk = c(0.1347, 0.1346, 0.1345, 0.1345 ), x.1 = c(0.1346, 0.1345, 0.1345, 0.1345), sek = c(0.1094, 0.1096,  0.1099, 0.1099), x.2 = c(0.1096, 0.1099, 0.1099, 0.1099)), .names = c("date",  "chf", "x", "dkk", "x.1", "sek", "x.2"), class = "data.frame", row.names = c(na,  -4l))

Comments

Post a Comment

Popular posts from this blog

Magento/PHP - Get phones on all members in a customer group -

i working on custom magento extension. working around adminhtml part , i've created custom form there. here form code: <?php class vivasindustries_smsnotification_block_adminhtml_sms_sendmass_edit_form extends mage_adminhtml_block_widget_form { public function _preparelayout() { $extensionpath = mage::getmoduledir('js', 'vivasindustries_smsnotification'); $head = $this->getlayout()->getblock('head'); $head->addjs('jquery.js'); $head->addjs('vivas.js'); return parent::_preparelayout(); } protected function _prepareform() { $form = new varien_data_form(array( 'id' => 'edit_form', 'action' => $this->geturl('*/*/save', array('id' => $this->getrequest()->get...
Read more

php - Bypass Geo Redirect for specific directories -

i'm trying bypass redirect specific url within site. wondering if might able help. the code below code use, original urls replaces example.com i'd able access http://example.com/admin without redirect occuring. is there way this, , there way using own ip? function country_geo_redirect() { $country = getenv('http_geoip_country_code'); if ($country == "us" ) { wp_redirect("http://usa.example.com/"); exit; } else if ($country == "gb" ) { wp_redirect("http://uk.example.com/"); exit; } } add_action('init', 'country_geo_redirect'); you can bypass redirection code if server found ip address. if ip address == <my ip address> ' nothing here else country_georedirect() end if
Read more

php - .htaccess mod_rewrite for dynamic url which has domain names -

i want convert url ex:( example.com/link.php?url=facebook.com ) ( example.com/facebook.com.php ) how can using .htaccess. or there other process make job easier ? i tried adding script .htaccess file options +followsymlinks rewriteengine on rewriterule url-(.*)\.htm$ link.php?url=$1 but converting url adding "url-" ( example.com/url-facebook.com.php ) i want remove "url-" , want make ( example.com/facebook.com.php ) rewriteengine on rewritecond %{the_request} ^get.*link\.php\?url\= [nc] rewritecond %{request_uri} !/system/.* [nc] rewriterule (.*?)link\.php\?url\=/*(.*) /$1$2 [r=301,ne,l] not sure how above work edit of used use remove index.php url
Read more