combinations - how to omit reciprocal of words in a data.frame using r -


i have been searching answer online cannot seem to anywhere close..

i have set of tickers , used expand.grid() find combinations of them:

# tickers <- c("air", "afap", "aal", "cece", "asa", "avx") # find combinations b <- expand.grid(a,a,stringsasfactors=false)

so want omit reciprocals, example:

row 2 , row 7 reciprocals, , want keep 1 of combinations not both.

head(b,10)    var1 var2 1   air  air 2  afap  air 3   aal  air 4  cece  air 5   asa  air 6   avx  air 7   air afap 8  afap afap 9   aal afap 10 cece afap

using initial output op, can sort 'b' row using apply margin=1, non-duplicated logical index of 'd1' rows duplicated, , use subset 'b' 

d1 <- as.data.frame(t(apply(b, 1, sort))) b1 <- b[!duplicated(d1),] head(b1, 10) #   var1 var2 #1   air  air #2  afap  air #3   aal  air #4  cece  air #5   asa  air #6   avx  air #8  afap afap #9   aal afap #10 cece afap #11  asa afap

another compact option using data.table

library(data.table) cj(a, a)[v1>=v2]

Comments

Post a Comment

Popular posts from this blog

php - Wordpress website dashboard page or post editor content is not showing but front end data is showing properly -

Image
recently have uploaded wordpress site onto server. have uploaded wordpress site in sub-folder under root folder ../root(domain root folder)/wordpress (where host wordpress folder). now problem content data in page or post in dashboard of wordpress admin panel not showing - see image. but data showing in front view - see image. if not browser cache issue , not issue happened tinymce editor during upgrade; try add config file: define('concatenate_scripts', false);
Read more

How to get the ip address of VM and use it to configure SSH connection dynamically in Ansible -

i trying ip address of vm , trying use establish ssh vm. following script: --- - hosts: localhost become: yes connection: local gather_facts: false serial: 1 vars_files: - createvmvars.yml tasks: - name: gathering vm info. vsphere_guest: vcenter_hostname: "{{vcenter_hostname}}" username: "{{vcenter_username}}" password: "{{vcenter_password}}" guest: "{{guest_name}}" vmware_guest_facts: yes register: var - debug: msg="{{var.ansible_facts.hw_eth0.ipaddresses[0]}}" - name: establishing ssh connection. script: /home/shasha/devops/scripts/ssh_configure.sh "{{var.ansible_facts.hw_eth0.ipaddresses[0]}}" following content of ssh_configure.sh : #!/bin/sh ssh-keygen -t rsa ssh-copy-id $1 but when running playbook, getting following error while executing third task: error! 'var' undefined but debug module(second task) printin
Read more

javascript - Get parameter of GET request -

i make request: createxhrrequest( "get", fileurl, function( err, response ) { if( err ) { alert( "error get!" ); } alert(response); }); and full response: { "status" : "ok", "message" : "jvberi0xljqkjdduxdgkmy how can jvberi0xlj ? i try response.message , response["message"]. nothing works. just simple access this: var json = json.parse(response); json.message
Read more