[Seqinr-commits] r1741 - pkg/R

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

Author: lobry
Date: 2010-03-07 12:15:09 +0100 (Sun, 07 Mar 2010)
New Revision: 1741

Modified:
   pkg/R/zscore.R
Log:
rho has its own file now

Modified: pkg/R/zscore.R
===================================================================
--- pkg/R/zscore.R	2010-03-07 11:14:11 UTC (rev 1740)
+++ pkg/R/zscore.R	2010-03-07 11:15:09 UTC (rev 1741)
@@ -1,8 +1,3 @@
-rho <- function (sequence, alphabet = s2c("acgt")){
-  di <- count(sequence,2,freq=TRUE, alphabet = alphabet)
-  uni <- count(sequence,1,freq=TRUE, alphabet = alphabet)
-  di/(rep(uni,4)*rep(uni,each=4))
-}
 
 zscore <- function (sequence, simulations = NULL, modele, exact = FALSE, alphabet = s2c("acgt"), ... ){
   if (is.null(simulations)){