D0407 D0409 D0410 D0462 D0463 D0473 D0475 D0488 D0489 D0492
#Conti_Australia 0 0 1 0 0 0 0 0 0 0
#Conti_Korea 0 0 0 0 0 0 0 0 0 0
#Conti_Malay 0 0 0 1 0 0 0 0 0 0
#
0 1 0 0 0 0
#Conti_Malay 0 0 0 0 0 1 0 0 0 0
#Island_Sumatra 0 0 0 0 0 0 0 0 0 1
# D0493 D0504 D0536
#Conti_Australia 0 0 1
#Conti_Malay 1 0 1
#Island_Sumatra
10 D0462 D0463 D0473 D0475 D0488 D0489 D0492 D0493 D0504
#IslandA 0 0 0 0 0 0 0 0 0 0 0 0
#IslandB 0 0 0 0 0 1 0 0 0 0 1 0
# D0536
#IslandA 0
#IslandB 1
A.K.
__
t;> requested you to dput() the data to reduce these confusions.
>>
>> mat1<-as.matrix(read.table(text="
>> GID D0989 D9820 D5629 D4327 D2134
>> 1 100 1 0
>> 2 011 0 0
>> 4
dA","IslandB"),function(x) {x1<-
mat1[match(gsub(".*\\s+","",get(x)),mat1[,1]),-1];(!!colSums(x1))*1}))
# D0989 D9820 D5629 D4327 D2134
#IslandA 1 1 0 1 0
#IslandB 0 1 1 0 1
A.K.
______
10 0 0
> 7 010 0 1
> ",sep="",header=TRUE))
> IslandA<-c("GID 1", "GID 5")
> IslandB<- c("GID 2", "GID 4", "GID
> 7")t(sapply(c("IslandA","
Sums(x1)}))
> #D0989 D9820 D5629 D4327 D2134
> #IslandA FALSE FALSE TRUE FALSE TRUE
> #IslandB TRUE FALSE FALSE TRUE FALSE
>
> t(sapply(c("IslandA","IslandB"),function(x) {x1<-
> mat1[match(gsub(".*\\s+","",get(x)),row.names(m
uot;IslandB"),function(x) {x1<-
mat1[match(gsub(".*\\s+","",get(x)),row.names(mat1)),];!!colSums(x1)}))
# D0989 D9820 D5629 D4327 D2134
#IslandA TRUE TRUE FALSE TRUE FALSE
#IslandB FALSE TRUE TRUE FALSE TRUE
# "*1" will replace TRUE with 1 and FA
es(mat1)),];(!!colSums(x1))*1} ))
>>
>> res
>> #D0989 D9820 D5629 D4327 D2134
>> #IslandA 1 1 0 1 0
>> #IslandB 0 1 1 0 1
>> A.K.
>>
>>
>>
>>
>> - Original Message -
>>
D0989 D9820 D5629 D4327 D2134
> #IslandA 1 1 0 1 0
> #IslandB 0 1 1 0 1
> A.K.
>
>
>
>
> - Original Message -
> From: Elaine Kuo
> To: "r-h...@stat.math.ethz.ch"
> Cc:
> Sent: Wednesday, July 31, 2013 9:03
;IslandB"),function(x)
{x1<-mat1[match(get(x),row.names(mat1)),];(!!colSums(x1))*1} ))
res
# D0989 D9820 D5629 D4327 D2134
#IslandA 1 1 0 1 0
#IslandB 0 1 1 0 1
A.K.
- Original Message -
From: Elaine Kuo
To: "r-h...@stat.mat
Dear list,
I have a matrix showing the species presence-absence on a map.
Its rows are map locations, represented by GridCellID, such as GID1 and GID
5.
Its columns are species ID, such as D0989, D9820, and D5629.
The matrix is as followed.
Now I want to merge the GridCellID according to t
Hi Kevin,
Sorry.it is not Bt ? A and B are two independent Matrices with equal number
rows and different number of columns.
dim (A)
[1] 30380 104
dim(B)
[1] 3038063
I want to combine both A and B to matrix C wheredim(C)
[1] 30380 167
So I got the answer
C<-cbind(A,B)
Thanks and reg
On 04/12/2011 10:54 AM, pankaj borah wrote:
I have two matrices A and B
dim (A)
[1] 30380 104
dim(Bt)
[1] 3038063
I want to combine both A and B to matrix C where
dim(C)
[1] 30380 167
How do I do that ?
Assuming that Bt is the transpose of B and you want C = [A|Bt] you coul
?cbind should solve your problem
2011-04-12 07:54 keltezéssel, pankaj borah írta:
> I have two matrices A and B
>
>> dim (A)
> [1] 30380 104
>
>> dim(Bt)
> [1] 3038063
>
> I want to combine both A and B to matrix C where
>> dim(C)
> [1] 30380 167
>
> How do I do that ?
>
>
> Regards,
>
I have two matrices A and B
> dim (A)
[1] 30380 104
> dim(Bt)
[1] 30380 63
I want to combine both A and B to matrix C where
>dim(C)
[1] 30380 167
How do I do that ?
Regards,
Pankaj Barah
Department of Biology,
Norwegian University of Science & Technology (NTNU)
Realfagbygget, N-
16 matches
Mail list logo