algorithm - Separation data on the pairs in R -


i have table numbers -1, 0 , 1.

innovation,licensing,marketing,portfolio,purchase,quality,support 1,1,0,1,1,1,1 0,-1,-1,-1,0,1,1 1,1,1,1,1,1,1 -1,0,0,1,-1,1,0 ...

each row answer of customers 1 - recommend, -1 - not recommend , 0 - doesn't matter.

i need separate each row on pairs, 1 - best answer , -1 - worst answer (1 best 0, 0 best -1) in table below.

algorithm:

  1. in 1st row need compare 1st number 2nd. if numbers same, need compare next number - 1st 3rd.

    source

    1,1,0,1,1,1,1

  2. if 1st better 3rd, write new row result table 1st number '1', 3rd - '-1' , other - '0'.

    result

    1,0,-1,0,0,0,0

  3. then need compare 1st number next - 4th , etc.

  4. when 1st number compared other numbers, need compare 2nd number 3rd, 4th , others.
  5. when numbers of 1st row compared between each other, need switch next row.

how in r?

innovation,licensing,marketing,portfolio,purchase,quality,support 1,0,-1,0,0,0,0 0,1,-1,0,0,0,0 0,0,-1,1,0,0,0 0,0,-1,0,1,0,0 0,0,-1,0,0,1,0 0,0,-1,0,0,0,1 1,-1,0,0,0,0,0 1,0,-1,0,0,0,0 1,0,0,-1,0,0,0 -1,0,0,0,0,1,0 -1,0,0,0,0,0,1 0,-1,0,0,1,0,0 0,-1,0,0,0,1,0 0,-1,0,0,0,0,1 0,0,-1,0,1,0,0 0,0,-1,0,0,1,0 0,0,-1,0,0,0,1 0,0,0,-1,1,0,0 0,0,0,-1,0,1,0 0,0,0,-1,0,0,1 0,0,0,0,-1,1,0 0,0,0,0,-1,0,1 -1,1,0,0,0,0,0 -1,0,1,0,0,0,0 -1,0,0,1,0,0,0 -1,0,0,0,0,1,0 -1,0,0,0,0,0,1 0,-1,0,1,0,0,0 0,1,0,0,-1,0,0 0,-1,0,0,0,1,0 0,0,-1,1,0,0,0 0,0,1,0,-1,0,0 0,0,-1,0,0,1,0 0,0,0,1,-1,0,0 0,0,0,1,0,0,-1 0,0,0,0,-1,1,0 0,0,0,0,-1,0,1 0,0,0,0,0,1,-1

ok, little clumsy solution. generate first indexes on compare , loop on these 2 indexes vectors using map. first line example:

library(functional)  x     = unlist(df[1,]) first = rep(1:6,6:1) last  = sequence(6:1) + first  f = function(x, u, v) {     s = sign(x[u]-x[v])     if(s!=0)     {         y = rep(0, length(x))         y[u] = s         y[v] = -1*s         return(y)     } }  do.call(rbind, map(curry(f, x=x), first, last))  #     [,1] [,2] [,3] [,4] [,5] [,6] [,7] #[1,]    1    0   -1    0    0    0    0 #[2,]    0    1   -1    0    0    0    0 #[3,]    0    0   -1    1    0    0    0 #[4,]    0    0   -1    0    1    0    0 #[5,]    0    0   -1    0    0    1    0 #[6,]    0    0   -1    0    0    0    1

this first line. whole dataframe df:

lst = lapply(1:nrow(df), function(i){     do.call(rbind, map(curry(f, x=unlist(df[i,])), first, last)) })   do.call(rbind, lst)

Comments

Post a Comment

Popular posts from this blog

html - Outlook 2010 Anchor (url/address/link) -

i'm trying link specific pdf page msoutlook'10 or msword'10, #page=... anchor particularly useful , works fine elsewhere. unfortunately when click [ctr-k] in outlook or winword, links re-formatted assuming unc path. pdf file located on shared drive. using "file:" prefix links open pdf in adobe reader (outside of browser), , "http:" open inside browser. issue seem need open in browser "file:" prefix in order anchor work. know anchors work inside browser. outlook uses windows/explorer default program (based on file extension) seems open in adobe reader neglecting anchor. is aware of solution, link specific page or bookmark of shared-pdf ms outlook and/or winword link? common references: mailermailer.com/...anchor-tags-html-emails campaignmonitor.com/...anchor-links-in-email-newsletters/ stackoverflow.com/...anchor-in-pdf-document
Read more

javascript - Why does running this loop 9 times take 100x longer than running it 8 times? -

consider code: test = function() { } t = new test(); (var = 0; < 8; i++) { result = t instanceof test; } if change number of iterations 8 9 , loop take 100 times longer complete in latest version of firefox (41.0.1). tested on 2 different pcs , magic limit 8. here jsperf test used: http://jsperf.com/instanceof-8-times-vs-9-times does have idea why might happen? seems specific instanceof . not happen if else object, example check property. note: filed bugzilla bug this. jan de mooij mozilla team has posted details in bugzilla thread . here's simplistic interpretation of highly technical answers: in i < 8 case, firefox smart enough hoist result = t instanceof test; statement out of loop (according tests, doesn't seem omit altogether). in i < 9 case, apparently doesn't optimization . why? reason not clear, related fact 9 iterations threshold above function considered "hot" enough run through jit compiler. i < 8 cas...
Read more

Getting gateway time-out Rails app with Nginx + Puma running on Digital Ocean -

following this guide setup app on digital ocean droplet, not working. site not loading , it's throwing: "gateway time-out". the puma server works, since ps aux | grep puma prints: root 15878 0.0 0.4 376832 2168 ? sl 12:50 0:00 puma 2.13.4 (unix:///var/www/myapp/shared/tmp/sockets/myapp-puma.sock) [20150930164940] root 15881 0.0 0.7 903676 3692 ? sl 12:50 0:06 puma: cluster worker 0: 15878 [20150930164940] root 24654 0.0 0.1 11748 916 pts/2 s+ 18:00 0:00 grep --color=auto puma my nginx config: user root; worker_processes 1; events { worker_connections 1024; } http { upstream puma { server unix:///var/www/myapp/shared/tmp/sockets/myapp-puma.sock; } server { listen 80; server_name myapp.com; root /var/www/myapp/current/public; access_log /var/www/myapp/current/log/access.log; error_log /...
Read more