[Picante-commits] r104 - branches/gsoc/R

[noreply at r-forge.r-project.org]

Author: mrhelmus
Date: 2008-06-16 08:17:46 +0200 (Mon, 16 Jun 2008)
New Revision: 104

Modified:
   branches/gsoc/R/phylodiversity.R
Log:
Fixed big: Rownames for psr

Modified: branches/gsoc/R/phylodiversity.R
===================================================================
--- branches/gsoc/R/phylodiversity.R	2008-06-13 06:14:29 UTC (rev 103)
+++ branches/gsoc/R/phylodiversity.R	2008-06-16 06:17:46 UTC (rev 104)
@@ -238,10 +238,12 @@
     PSRout<-cbind(PSVout[,1]*PSVout[,2],PSVout[,2])
     if(compute.var!=TRUE) {
       colnames(PSRout)<-c("PSR","SR")
+      rownames(PSRout)<-rownames(PSVout)
       return(data.frame(PSRout))
     } else {
       PSRout<-cbind(PSRout,PSVout[,3]*(PSVout[,2])^2)       
       colnames(PSRout)<-c("PSR","SR","vars")
+      rownames(PSRout)<-rownames(PSVout)
       return(data.frame(PSRout))
     }
   }