r - Apply if-else function row-wise -

-

i have below matrix:

structure(c("g", "g", "a", "c", "g", "g", "a", "a", "g", "a",  "a", "a", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0",  "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0",  "0", "0", "0", "1", "0", "0", "0", "0", "1", "0", "0", "0", "0",  "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",  "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0",  "0", "0", "0", "1", "0", "1", "0", "1", "0", "0", "0", "0", "0",  "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "1", "0", "0",  "1", "0", "0", "1", "0", "0", "0", "1", "0", "1", "0", "1", "0",  "0", "0", "0", "1", "0", "0", "0", "1", "1", "0", "0", "0", "0",  "1", "1", "0", "0", "0"), .dim = c(6l, 22l), .dimnames = list( c("1", "2", "3", "4", "5", "6"), c("allele1", "allele2",  "s1a", "s1b", "s2a", "s2b", "s3a", "s3b", "s4a", "s4b", "s5a",  "s5b", "s6a", "s6b", "s7a", "s7b", "s8a", "s8b", "s9a", "s9b",  "s10a", "s10b")))

which looks this:

  allele1 allele2 s1a s1b s2a s2b s3a s3b s4a s4b s5a s5b s6a s6b s7a s7b s8a s8b s9a s9b s10a s10b 1 "g"     "a"     "0" "0" "0" "0" "0" "0" "0" "0" "0" "0" "0" "1" "0" "0" "0" "0" "1" "0" "0"  "0"  2 "g"     "a"     "0" "0" "0" "0" "0" "0" "0" "0" "0" "0" "0" "0" "0" "0" "0" "0" "0" "0" "1"  "1"  3 "a"     "g"     "1" "0" "1" "0" "0" "1" "1" "0" "0" "1" "0" "1" "0" "0" "1" "1" "1" "0" "1"  "1"  4 "c"     "a"     "0" "0" "0" "0" "1" "0" "0" "0" "0" "0" "0" "0" "0" "1" "0" "0" "0" "1" "0"  "0"  5 "g"     "a"     "0" "0" "0" "0" "0" "0" "0" "0" "0" "0" "0" "1" "0" "0" "0" "0" "1" "0" "0"  "0"  6 "g"     "a"     "0" "0" "0" "0" "0" "0" "0" "0" "0" "0" "0" "0" "0" "0" "1" "0" "0" "0" "0"  "0"

how in each row , replace occurrences of 0 value in column allele1, , occurrences of 1 value in column allele2?

you straight logical replacement. takes few lines of code, work fine. idea replicate first , second columns number of columns replacing. can e.g. m[, c(1, 1, 1, 1)], replicating first column 4 times. uses no loops.

## find zeros is0 <- m[, -(1:2)] == 0 ## replace values replicating relevant columns ## applying logical subset m[, -(1:2)][is0] <- m[, rep(1, ncol(m)-2)][is0] m[, -(1:2)][!is0] <- m[, rep(2, ncol(m)-2)][!is0]

resulting in modified m

m #   allele1 allele2 s1a s1b s2a s2b s3a s3b s4a s4b s5a s5b s6a s6b s7a s7b s8a s8b s9a s9b s10a s10b # 1 "g"     "a"     "g" "g" "g" "g" "g" "g" "g" "g" "g" "g" "g" "a" "g" "g" "g" "g" "a" "g" "g"  "g"  # 2 "g"     "a"     "g" "g" "g" "g" "g" "g" "g" "g" "g" "g" "g" "g" "g" "g" "g" "g" "g" "g" "a"  "a"  # 3 "a"     "g"     "g" "a" "g" "a" "a" "g" "g" "a" "a" "g" "a" "g" "a" "a" "g" "g" "g" "a" "g"  "g"  # 4 "c"     "a"     "c" "c" "c" "c" "a" "c" "c" "c" "c" "c" "c" "c" "c" "a" "c" "c" "c" "a" "c"  "c"  # 5 "g"     "a"     "g" "g" "g" "g" "g" "g" "g" "g" "g" "g" "g" "a" "g" "g" "g" "g" "a" "g" "g"  "g"  # 6 "g"     "a"     "g" "g" "g" "g" "g" "g" "g" "g" "g" "g" "g" "g" "g" "g" "a" "g" "g" "g" "g"  "g"

Comments

Post a Comment

Popular posts from this blog

java - Suppress Jboss version details from HTTP error response -

-
my jboss verson jboss eap 6.3 when kind of error response sent jboss, adds server information response. following sample row response: http/1.1 400 bad request server: apache-coyote/1.1 content-type: text/html;charset=utf-8 content-length: 2391 date: tue, 19 jul 2016 09:30:46 gmt connection: close jboss web/7.4.8.final-redhat-4 - jbweb000064: error report jbweb000065: http status 400 - org.codehaus.jackson.map.jsonmappingexception: can not construct instance of mybean.type string value 'xyz': value not 1 of declared enum instance names @ [source: org.jboss.resteasy.core.interception.messagebodyreadercontextimpl$inputstreamwrapper@5e421c2b; line: 14, column: 26] (through reference chain: requestargs["request"]) jbweb000309: type jbweb000067: status report jbweb000068: message org.codehaus.jackson.map.jsonmappingexception: can not construct instance of mybean.type string value 'xyz': value not 1 of declared enum instance names @ [source: org.jboss...
Read more

gridview - Yii2 DataPorivider $totalSum for a column -

-
i have order , ordersearch models. in order list (actionindex) gridview there filtering , sorting. on of columns in order order_total (sum of products in order). i need implement sum of order_total in gridview. if manually counting activedataprovider->getmodels() array_map spend 3 seconds 3000 orders (localhost). don't want miss time. i see 2 ways make faster: create cache every filter , update lifetime (horrible) the interesting can right in ordersearch->search() method $query method. don't understand how can pass in controller. example of code 2nd way: class ordersearch extends order { public $totalsum; public function search($params) { $query = order::find(); $dataprovider = new activedataprovider([ 'query' => $query, ]); $this->load($params); $this->totalsum = $query->sum('order_total'); // works fast return $dataprovider; } } after i...
Read more

Sass watch command compiles .scss files before full sftp upload -

-
i use winscp download , edit .scss files , sass on linux (on server) compile them .css . after saving file, use: sass scss/style.scss css/style.css , replaces css file compiled sccs. the problem i want skip part return command line after editing scss file, sake of automation , saving time. but, if use watch command: sass --watch scss/style.scss:css/style.css synchronize 2 files, alerts nonexistent css errors pop up: change detected to: scss/style.scss error scss/style.scss (line 232: invalid css after "...ht: bold; line-": expected "{", "") note that when file uploads quicker usual (sometimes happens) watch command job, no errors. this because, when file upload takes time, sass compiles scss file (on server) before uploaded remote folder. thus, compiles part of file, resulting in css errors. is there way set timer watch command waits few seconds after detects changes , before compiling? any other way overcome is, of course, ...
Read more