R - Loop through different matrices without using loop ! Help to simply a code -


so have 2 separate matrix (mat1 , mat2) , need go through them in order make check. need store results third matrix.

i feel code long purpose.

i wanted have of suggestion avoid looping.

so first matrix looks (dput in end) 

  wit5.001 wit5.002 wit5.003 wit5.004 wit5.005 wit5.006 wit5.007 wit5.008 wit5.009 wit5.010  [1,]        1        1        1        1        1        1        1            1        1        1  [2,]        1        1        1        1        1        1        1        1        1        1  [3,]        1        1        1        1        1        1        1        1        1        1  [4,]        1        1        1        1        1        1        1        1        1        1  [5,]        1        1        1        1        1        1        1        0        1        1  [6,]        1        1        1        1        1        1        1        0        0        0  [7,]        0        1        1        1        1        1        1        1        1        1  [8,]        1        1        1        1        1        1        1        1        1        1  [9,]        1        1        1        1        1        1        1        1        1        1 [10,]        1        1        1        1        1        1        1        1        1        1

my second matrix has similar structure.

here create third matrix - in order store results of checking. 

matcheck <- matrix('ok', ncol = ncol(mat1), nrow = nrow(mat1))

here loop - avoid 

for(j in 1:ncol(mat1)){   for(i in 1:nrow(mat1)){      if(mat1[i,j] == 1 & mat2[i,j] == 1)      {matcheck[i,j] <- 'ok'}        if(mat1[i,j] != 1 & mat2[i,j] == 1)      {matcheck[i,j] <- '!'}          }    }

the result of check 

      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]  [1,] "ok" "ok" "ok" "ok" "ok" "ok" "ok" "ok" "ok" "ok"   [2,] "ok" "ok" "ok" "ok" "ok" "ok" "ok" "ok" "ok" "ok"   [3,] "ok" "ok" "ok" "ok" "ok" "ok" "ok" "ok" "ok" "ok"   [4,] "ok" "ok" "ok" "ok" "ok" "ok" "ok" "ok" "ok" "ok"   [5,] "ok" "ok" "ok" "ok" "ok" "ok" "ok" "ok" "ok" "ok"   [6,] "ok" "ok" "ok" "ok" "ok" "ok" "ok" "!"  "!"  "ok"   [7,] "!"  "ok" "ok" "ok" "ok" "ok" "ok" "ok" "ok" "ok"   [8,] "ok" "ok" "ok" "ok" "ok" "ok" "ok" "ok" "ok" "ok"   [9,] "ok" "ok" "ok" "ok" "ok" "ok" "ok" "ok" "ok" "ok"  [10,] "ok" "ok" "ok" "ok" "ok" "ok" "ok" "ok" "ok" "ok"

any suggestions ?

here matrix 1 

mat1 = structure(c(1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,   1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,   1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,   1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1,   1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1), .dim = c(10l,   10l), .dimnames = list(null, c("wit5.001", "wit5.002", "wit5.003",  "wit5.004", "wit5.005", "wit5.006", "wit5.007", "wit5.008", "wit5.009",  "wit5.010")))

here matrix 2

mat2 = structure(c(1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1,  1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 1,  1, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0,  0, 0, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0,  0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0), .dim = c(10l,  10l), .dimnames = list(null, c("wit5.020", "wit5.021", "wit5.022",  "wit5.023", "wit5.024", "wit5.025", "wit5.026", "wit5.027", "wit5.028",  "wit5.029")))

for example given, result can constructed as

matcheck <- ( mat1 | !mat2 )

this equivalent initializing matcheck true , filling in false !mat1 & mat2 (as in op's loop). parentheses optional, make easier read (i think).


Comments

Post a Comment

Popular posts from this blog

powershell Start-Process exit code -1073741502 when used with Credential from a windows service environment -

i'm running strange behavior powershell start-process call. here call: $process = start-process ` "c:\somepath\mybinary.exe" ` -passthru ` -credential $defaultcredential ` -wait ` -workingdirectory "c:\somepath" ` -loaduserprofile if ($process.exitcode -ne 0) { #do } this call return exit code - 1073741502 . after quick search, exit code seems related generic error when program not load required dll (aka. status_dll_init_failed ). when run without -credential $credential program runs correctly. in order isolate problem, manually launched some.exe in prompt target credential , runs smoothly. so problem seems come way start-process cmdlet launch process. i found potential solutions problem tried apply no luck : link , link . would have idea of what's going on here ? edit 1: run proc mon monitoring program activities when launched directly or via powershell script. problem seems occur when loading kernelbase
Read more

twig - Using Twigbridge in a Laravel 5.1 Package -

i'm trying create laravel 5.1 package uses twigbridge instead of .php views. can normal .php views display fine, when try make use of .twig templates i'm met error. possible use twigbridge templates when creating views laravel package or pretty stuck blade , php ? edit 1: loading twig template without extending works. it's when start using {% extends 'file' %} error comes out. i error error loading /virtual/laravel/packages/username/mypackage/src/views/sample.twig: template "templates.master" not defined () in "/virtual/laravel/packages/username/mypackage/src/views/sample.twig" @ line 1. my folders username |_ mypackage |_ src |_ controllers - samplecontroller.php |_ views |_ templates - master.twig - sample.twig twig template sample.twig {% extends 'templates.master' %} {% block content %} {{ parent()
Read more

c# - LINQ join Entities from HashSet's, Join vs Dictionary vs HashSet performance -

i have hashset's each stores t, have written test application compares different relation algorithms can think of, i'm not pleased results getting. does there exist more efficient ways of achieving object relations, once testing? using system; using system.collections.generic; using system.linq; using system.text; using system.threading.tasks; using system.diagnostics; namespace linqtests { class program { static void main(string[] args) { hashset<user> usertable = new hashset<user>(); hashset<userproperty> userpropertytable = new hashset<userproperty>(); #region lets create dummy data. console.writeline("please wait while creating dummy data, can take while..."); console.writeline(""); int rows = 1000000; for(int x = 0; x < rows; x++) { random rnd = new random(); // ad
Read more