Matrix Build from Vector and Element Comparison, R - rextester

Run Code | API | Code Wall | Misc | Feedback | Login | Theme | Privacy | Patreon

Matrix Build from Vector and Element Comparison

Language: Layout:

options(width=200)

set.seed(121919)
compare_comp <- sample(1:10, 100, replace=TRUE)
head(compare_comp)

test_set <- data.frame(Compound = sample(1:10, 100, replace=TRUE),
                       matrix(runif(100), 10, 5))
colnames(test_set) = c("Compound", "Other1", "Other2", "Other3", "Other4")
head(test_set)

train_set <- data.frame(Compound = sample(1:10, 100, replace=TRUE),
                        matrix(runif(100), 10, 5))
colnames(train_set) = c("Compound", "Other1", "Other2", "Other3", "Other4")
head(train_set)

# test indicator matrix
compound_test1 <- matrix(0,nrow(test_set),length(compare_comp)) 
compound_train1 <- matrix(0,nrow(train_set),length(compare_comp))

cat("\nWITH LOOP\n")
for (i in 1:length(compare_comp)){
  #cat(i, compare_comp[i], "|", which(compare_comp[i]==test_set$Compound), "\n")
  compound_test1[which(compare_comp[i]==test_set$Compound),i]=1
  compound_train1[which(compare_comp[i]==train_set$Compound),i]=1
}

dim(compound_test1)
dim(compound_train1)

cat("\nWITHOUT LOOP - SAPPLY\n")

compound_test2 <- matrix(0,nrow(test_set),length(compare_comp)) 
compound_train2 <- matrix(0,nrow(train_set),length(compare_comp))

compound_test2[] <- sapply(compare_comp, function(x) x == test_set$Compound)
compound_train2[] <- sapply(compare_comp, function(x) x == train_set$Compound)

dim(compound_test2)
dim(compound_train2)

compound_test1[1:10,1:5]
compound_test2[1:10,1:5]

identical(compound_test1, compound_test2)
identical(compound_train1, compound_train2)

cat("\nWITHOUT LOOP - VAPPLY\n")

compound_test3 <- vapply(compare_comp, function(x) x == test_set$Compound, numeric(length(compare_comp)))
compound_train3 <- vapply(compare_comp, function(x) x == train_set$Compound, numeric(length(compare_comp)))
    
dim(compound_test3)
dim(compound_train3)

compound_test3[1:10,1:5]
compound_train3[1:10,1:5]
   
identical(compound_test1, compound_test3)
identical(compound_train1, compound_train3)

[ + ] Show input
Absolute running time: 0.43 sec, cpu time: 0.59 sec, memory peak: 32 Mb, absolute service time: 0,44 sec

fork mode | history

[1] 7 1 5 1 3 7
  Compound    Other1    Other2     Other3    Other4        NA
1        8 0.5786603 0.2502079 0.34448761 0.2323110 0.6324142
2        8 0.8668375 0.5846119 0.41770592 0.5890859 0.9509582
3        1 0.3976551 0.7549150 0.79326236 0.3248724 0.7018372
4        7 0.2124371 0.4410346 0.04846882 0.4864202 0.9421478
5       10 0.1882329 0.2107607 0.05823637 0.1988553 0.7104661
6        7 0.3028219 0.6343953 0.70470636 0.1776341 0.4766480
  Compound     Other1    Other2    Other3     Other4        NA
1        6 0.07845868 0.4288247 0.1101206 0.66296578 0.8108953
2        8 0.79781819 0.4645683 0.3884719 0.99366607 0.2673419
3        1 0.43007242 0.3278871 0.8267612 0.77649434 0.9571423
4        9 0.03752183 0.7688448 0.9298445 0.49349682 0.9246685
5        9 0.28132199 0.4164329 0.5944015 0.35783929 0.9390973
6        8 0.25394305 0.4417435 0.3658387 0.05413348 0.6307810

WITH LOOP
[1] 100 100
[1] 100 100

WITHOUT LOOP - SAPPLY
[1] 100 100
[1] 100 100
      [,1] [,2] [,3] [,4] [,5]
 [1,]    0    0    0    0    0
 [2,]    0    0    0    0    0
 [3,]    0    1    0    1    0
 [4,]    1    0    0    0    0
 [5,]    0    0    0    0    0
 [6,]    1    0    0    0    0
 [7,]    0    0    0    0    0
 [8,]    0    0    0    0    0
 [9,]    0    0    0    0    0
[10,]    0    0    0    0    0
      [,1] [,2] [,3] [,4] [,5]
 [1,]    0    0    0    0    0
 [2,]    0    0    0    0    0
 [3,]    0    1    0    1    0
 [4,]    1    0    0    0    0
 [5,]    0    0    0    0    0
 [6,]    1    0    0    0    0
 [7,]    0    0    0    0    0
 [8,]    0    0    0    0    0
 [9,]    0    0    0    0    0
[10,]    0    0    0    0    0
[1] TRUE
[1] TRUE

WITHOUT LOOP - VAPPLY
[1] 100 100
[1] 100 100
      [,1] [,2] [,3] [,4] [,5]
 [1,]    0    0    0    0    0
 [2,]    0    0    0    0    0
 [3,]    0    1    0    1    0
 [4,]    1    0    0    0    0
 [5,]    0    0    0    0    0
 [6,]    1    0    0    0    0
 [7,]    0    0    0    0    0
 [8,]    0    0    0    0    0
 [9,]    0    0    0    0    0
[10,]    0    0    0    0    0
      [,1] [,2] [,3] [,4] [,5]
 [1,]    0    0    0    0    0
 [2,]    0    0    0    0    0
 [3,]    0    1    0    1    0
 [4,]    0    0    0    0    0
 [5,]    0    0    0    0    0
 [6,]    0    0    0    0    0
 [7,]    0    0    0    0    0
 [8,]    0    0    0    0    0
 [9,]    0    0    0    0    0
[10,]    0    0    0    0    0
[1] TRUE
[1] TRUE

λ

                                      .NET NoSQL database for rapid development