David L Carlson
2015-Dec-15 17:19 UTC
[R] adding vector values to corresponding components of a list
With each post you seem to be changing what you are trying to accomplish. Your WRONG way seems pretty close if I understand you at all. Just tag the names to the numeric vector instead of the logical vector, eg:> names(dbv) <- letters[1:8] > split(dbv,logmat1)$`FALSE` a d g h 1.540183 1.172661 1.038135 1.172661 $`TRUE` b c e f 1.295202 1.038135 1.540183 1.295202 But the other problem is that you may not realize what is happening. Using logmat1 (a matrix) as a vector in split means that it is converted by columns:> logmat1[,1] [,2] [,3] [,4] [1,] FALSE TRUE TRUE FALSE [2,] TRUE FALSE TRUE FALSE> as.vector(logmat1)[1] FALSE TRUE TRUE FALSE TRUE TRUE FALSE FALSE Earlier it seemed you wanted to combine the by rows: c(logmat1[1,], logmat[2,]) [1] FALSE TRUE TRUE FALSE TRUE FALSE TRUE FALSE As you can see, it makes a difference. ------------------------------------- David L Carlson Department of Anthropology Texas A&M University College Station, TX 77840-4352 -----Original Message----- From: R-help [mailto:r-help-bounces at r-project.org] On Behalf Of debra ragland via R-help Sent: Tuesday, December 15, 2015 9:56 AM To: R-help Subject: [R] adding vector values to corresponding components of a list Hello, I have tried this 2 ways and I keep coming to a dead end as I am not very proficient in R. I have a logical matrix, where I would like to generate every row-wise pair of logical values for further testing. That is row1, row2; row 1, row3 etc. Ideally, I would like to assign a pre-generated vector of values to each pair such that each combination of rows may be split into 2 groups with each variable appearing only once. This is similar to the WRONG way I've been trying to do this; vector = runif(4, 1.0, 2.0) logmat<-matrix(c(rep(c(F,T,F),3), rep(c(T,F,T),3), rep(c(T,T,F),3), rep(c(F,F,T),3)), ncol=4) logmat1 = logmat[1:2,] dbv=rep(vector, 2) split(dbv,logmat1) As you can see there's no proper distinction between what should be absolutely assigned to "TRUE" and what should be assigned to "FALSE". --Note my actual data is named. To try and correct this mistake on a subset of my data I've been trying to use what I'll call "method 1" where a = c(TRUE, TRUE, TRUE, FALSE, FALSE, TRUE) names(a)=c(a,b,c,d,e,f) b = c(TRUE, TRUE, FALSE, FALSE, TRUE, FALSE) names(b)=c("a","b","c","d","e","f") Using this function, I am able to separate which variables are exactly "TRUE" or "FALSE logical_groups = function (a, b) { r = list() s = a + b r$'TRUE' = names(subset(s, s == 2)) r$'FALSE' = names(subset(s, s == 0)) r$'OR' = names(subset(s, s==1)) return(r) }> logical_groups(a,b)$`TRUE` [1] "a" "b" $`FALSE` [1] "d" $OR [1] "c" "e" "f" The return, as you can see is a list. I have a vector of values that match the names a-f in a and b above, i.e. vector=runif(6, 1.0, 2.0) names(vector) = c("a","b","c","d","e","f") and I would like to add these values to the corresponding (names in the) list so that I may run the wilcox.test correctly using the 'TRUE' and 'FALSE elements. But I am not sure how to achieve this. I have also tried "method 2"-- starting with; t=rbind(a, b, vector) to give;>ta b c d e f a 1.000000 1.000000 1.000000 0.00000 0.000000 1.000000 b 1.000000 1.000000 0.000000 0.00000 1.000000 0.000000 vector 1.012097 1.431088 1.832276 1.12801 1.780018 1.682804 where I then try t2 =t[1,]+t[2,] t3=rbind(t2, t[3,]) to give;> t3a b c d e f t2 2.000000 2.000000 1.000000 0.00000 1.000000 1.000000 1.012097 1.431088 1.832276 1.12801 1.780018 1.682804 But again, I am not sure how to split the t3 matrix where the first row == 2 or == 0. I have been searching but I think I'm just confusing myself. I am very late in my pregnancy and my brain just won't function fully. I hope this makes sense. Any help is appreciated. ______________________________________________ R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.