r - Transforming list into dataframe of yes/no -


i have dataframe of values trying turn two-mode matrix. first dataframe contains people , games (by id). trying turn dataframe lists games , whether person has them or not. can explain how in r, or question better suited programming language?

df<-data.frame(c(1,4,1),c(2,2,3),c(3,1,na)) #note person3 has 2 games... empty spaces filled na row.names(df)<-c("person1","person2","person3") colnames(df)<-c("game","game","game") df ##         game game game ## person1    1    2    3 ## person2    4    2    1 ## person3    1    3   na  res<-data.frame(c(1,1,1),c(1,1,0),c(1,0,1),c(0,1,0)) colnames(res)<-c("1","2","3","4") row.names(res)<-c("person1","person2","person3") res ##         1 2 3 4 ## person1 1 1 1 0 ## person2 1 1 0 1 ## person3 1 0 1 0

first create empty matrix results:

r <- matrix(0, nrow=nrow(df), ncol=max(df, na.rm=true)) row.names(r) <- row.names(df)

then create index matrix, entries set 1:

x <- matrix(c(as.vector(row(df)), as.vector(as.matrix(df))), ncol=2)

set entries 1:

r[x] <- 1  r ##         [,1] [,2] [,3] [,4] ## person1    1    1    1    0 ## person2    1    1    0    1 ## person3    1    0    1    0

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