1 1
#Australia 0 0 0 0 0 0 0 0 0
A.K.
From: Elaine Kuo
To: arun
Sent: Saturday, September 28, 2013 12:23 AM
Subject: Re: [R] Compare species presence and absence between sites
Hello Arun,
Thanks for the imme
t1)<- paste(dat1[,1],dat1[,2],sep="_")
A.K.
________________
From: Elaine Kuo
To: arun
Sent: Friday, September 27, 2013 6:17 PM
Subject: Re: [R] Compare species presence and absence between sites
Hello Arun,
Thanks for the code, but I have problem replacing
)<- paste(dat1[,1],dat1[,2],sep="_")
A.K.
- Original Message -
From: Rui Barradas
To: Elaine Kuo
Cc: "r-help@r-project.org"
Sent: Friday, September 27, 2013 7:39 AM
Subject: Re: [R] Compare species presence and absence between sites
Hello,
Something like this?
ERS[1:5]),]
> lst1<- lapply(seq_len(nrow(dat1)),function(i)
> {x<-mat1[unlist(dat1[i,]),]; which(different(x[1,],x[2,]))}) #using Rui's
> function
> names(lst1)<- paste(dat1[,1],dat1[,2],sep="_")
>
>
> A.K.
>
>
>
> - Original Message --
- Original Message -
From: Rui Barradas
To: Elaine Kuo
Cc: "r-help@r-project.org"
Sent: Friday, September 27, 2013 7:39 AM
Subject: Re: [R] Compare species presence and absence between sites
Hello,
Something like this?
different <- function(x, y) x == 1 & y == 0
set.s
Hello,
Something like this?
different <- function(x, y) x == 1 & y == 0
set.seed(7054)
mat <- matrix(sample(0:1, 500, TRUE), nrow = 5)
rownames(mat) <- LETTERS[1:5]
colnames(mat) <- sprintf("D%03d", 1:100)
different(mat["B",], mat["E",])
Hope this helps,
Rui Barradas
Em 27-09-2013 11:48,
6 matches
Mail list logo