r - In array, setting NAs in rows some data to 0 -


i've got array containing nas should in fact '0'.

  • i think of data 'rows' eg [1,,1] 1 row, [1,,2] another, [2,,1]
  • some such [a,,b] combinations should contain nas, , should remain are.
  • some 'rows' contain @ least 1 non-missing value. in this, case, nas in row should set zero.

example: 

x <- c(rep(na,14),rep(na,4),20,30,40,rep(na,6),10,        rep(na,7),rep(na,4),20,30,40,rep(na,6),10,rep(na,7)) a1 <- array(x,dim=c(2,7,4)) a1[1,,]  [,1] [,2] [,3] [,4] [1,]   na   na   na   na [2,]   na   na   na   na [3,]   na   20   na   na [4,]   na   40   na   10 [5,]   na   na   na   na [6,]   na   na   na   na [7,]   na   na   30   na

should 

a1[1,,]  [,1] [,2] [,3] [,4] [1,]   na   na   na   na [2,]   na   na   na   na [3,]   0   20   0   0 [4,]   0   40   0   10 [5,]   na   na   na   na [6,]   na   na   na   na [7,]   0   0   30   0

i've tried using function , apply() didn't anywhere

set0 <- function(x) { if (sum(is.na(x)) < length(x)) { x[is.na(x)] <- 0 } }

you can do:

for (i in seq(dim(a1)[1])){     a1[i,,][array(!!rowsums(!is.na(a1[i,,])), dim(a1[i,,])) & is.na(a1[i,,])] <- 0 }  #> a1[1,,] #     [,1] [,2] [,3] [,4] #[1,]   na   na   na   na #[2,]   na   na   na   na #[3,]    0   20    0    0 #[4,]    0   40    0   10 #[5,]   na   na   na   na #[6,]   na   na   na   na #[7,]    0    0   30    0 #> a1[2,,] #     [,1] [,2] [,3] [,4] #[1,]   na   na   na   na #[2,]   na   na   na   na #[3,]    0   30    0    0 #[4,]   na   na   na   na #[5,]   na   na   na   na #[6,]    0    0   20    0 #[7,]    0   10   40    0

explanation:

basically array(!!rowsums(!is.na(a1[i,,])), dim(a1[i,,])) boolean matrix lines numeric values have true elements. if operate first time penetrate loop (i=1, a1[1,,]), got:

#> array(!!rowsums(!is.na(a1[1,,])), dim(a1[1,,])) #      [,1]  [,2]  [,3]  [,4] #[1,] false false false false #[2,] false false false false #[3,]  true  true  true  true #[4,]  true  true  true  true #[5,] false false false false #[6,] false false false false #[7,]  true  true  true  true

the boolean matrix array(!!rowsums(!is.na(a1[i,,])), dim(a1[i,,])) & is.na(a1[i,,]) takes - want - true values na values on row numerics.


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