[R] adding vector values to corresponding components of a list
debra ragland
ragland.debra at yahoo.com
Tue Dec 15 16:56:02 CET 2015
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;
>t
a 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;
> t3
a 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.
More information about the R-help
mailing list