[adegenet-commits] r408 - pkg/R

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

Author: jombart
Date: 2009-06-18 19:37:05 +0200 (Thu, 18 Jun 2009)
New Revision: 408

Modified:
   pkg/R/seqTrack.R
Log:
orthograph mistake reticified


Modified: pkg/R/seqTrack.R
===================================================================
--- pkg/R/seqTrack.R	2009-06-18 17:16:44 UTC (rev 407)
+++ pkg/R/seqTrack.R	2009-06-18 17:37:05 UTC (rev 408)
@@ -11,11 +11,11 @@
 }
 
 
-get.likelyhood <- function(...){
-    UseMethod("get.likelyhood")
+get.likelihood <- function(...){
+    UseMethod("get.likelihood")
 }
 
-get.likelyhood.seqTrack.default <- function(...){
+get.likelihood.seqTrack.default <- function(...){
     cat("Method not implemented.")
     return()
 }
@@ -812,9 +812,9 @@
 
 
 ###########################
-## get.likelyhood.seqTrack
+## get.likelihood.seqTrack
 ###########################
-get.likelyhood.seqTrack <-function(x, method=("genetic"), mu0=NULL, seq.length=NULL,...){
+get.likelihood.seqTrack <-function(x, method=("genetic"), mu0=NULL, seq.length=NULL,...){
     method <- match.arg(method)
     if(method=="genetic"){ # p(nb mutations occur in the time interval)
         if(any(na.omit(res$weight - round(res$weight) > 1e-10))){
@@ -837,7 +837,7 @@
     }
 
     return(res)
-} # end get.likelyhood.seqTrack
+} # end get.likelihood.seqTrack