[Depmix-commits] r101 - trunk/R

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

Author: ingmarvisser
Date: 2008-03-23 15:29:34 +0100 (Sun, 23 Mar 2008)
New Revision: 101

Modified:
   trunk/R/EM.R
   trunk/R/allGenerics.R
   trunk/R/depmix.R
   trunk/R/depmix.fitted.R
   trunk/R/fb.R
   trunk/R/llratio.R
   trunk/R/lystig.R
   trunk/R/responses.R
   trunk/R/viterbi.R
Log:
Moved latest version to pkg directory

Modified: trunk/R/EM.R
===================================================================
--- trunk/R/EM.R	2008-03-23 14:19:00 UTC (rev 100)
+++ trunk/R/EM.R	2008-03-23 14:29:34 UTC (rev 101)
@@ -1,3 +1,7 @@
+# 
+# Maarten Speekenbrink 23-3-2008
+# 
+
 em <- function(object,maxit=100,tol=1e-6,verbose=FALSE,...) {
 	
 	if(!is(object,"depmix")) stop("object is not of class 'depmix'")

Modified: trunk/R/allGenerics.R
===================================================================
--- trunk/R/allGenerics.R	2008-03-23 14:19:00 UTC (rev 100)
+++ trunk/R/allGenerics.R	2008-03-23 14:29:34 UTC (rev 101)
@@ -1,6 +1,6 @@
 
 # 
-# Started by Ingmar Visser, march 2008
+# Ingmar Visser, 23-3-2008
 # 
 
 .First.lib <- function(lib, pkg) {

Modified: trunk/R/depmix.R
===================================================================
--- trunk/R/depmix.R	2008-03-23 14:19:00 UTC (rev 100)
+++ trunk/R/depmix.R	2008-03-23 14:29:34 UTC (rev 101)
@@ -1,6 +1,6 @@
 
 # 
-# Started by Ingmar Visser, 27-2-2008
+# Ingmar Visser, 23-3-2008
 # 
 
 # 

Modified: trunk/R/depmix.fitted.R
===================================================================
--- trunk/R/depmix.fitted.R	2008-03-23 14:19:00 UTC (rev 100)
+++ trunk/R/depmix.fitted.R	2008-03-23 14:29:34 UTC (rev 101)
@@ -1,6 +1,6 @@
 
 # 
-# Ingmar Visser, started 29-2-2008
+# Ingmar Visser, 23-3-2008
 # 
 
 # 
Modified: trunk/R/fb.R
===================================================================
--- trunk/R/fb.R	2008-03-23 14:19:00 UTC (rev 100)
+++ trunk/R/fb.R	2008-03-23 14:29:34 UTC (rev 101)
@@ -1,6 +1,8 @@
 # 
-# FORWARD-BACKWARD algoritme
+# Maarten Speekenbrink
 # 
+# FORWARD-BACKWARD algoritme, 23-3-2008
+# 
 
 fb <- function(init,A,B,ntimes=NULL,return.all=FALSE,stationary=TRUE) {
 
Modified: trunk/R/llratio.R
===================================================================
--- trunk/R/llratio.R	2008-03-23 14:19:00 UTC (rev 100)
+++ trunk/R/llratio.R	2008-03-23 14:29:34 UTC (rev 101)
@@ -1,3 +1,6 @@
+# 
+# Ingmar Viser, 23-3-2008
+# 
 
 setClass("llratio",
 	representation(
Modified: trunk/R/lystig.R
===================================================================
--- trunk/R/lystig.R	2008-03-23 14:19:00 UTC (rev 100)
+++ trunk/R/lystig.R	2008-03-23 14:29:34 UTC (rev 101)
@@ -1,7 +1,8 @@
-
 # 
-# LYSTIG algoritme voor de loglikelihood
+# Ingmar Visser
 # 
+# LYSTIG algoritme voor de loglikelihood, 23-3-2008
+# 
 
 lystig <- function(init,A,B,ntimes=NULL,stationary=TRUE) {
 
Modified: trunk/R/responses.R
===================================================================
--- trunk/R/responses.R	2008-03-23 14:19:00 UTC (rev 100)
+++ trunk/R/responses.R	2008-03-23 14:29:34 UTC (rev 101)
@@ -1,7 +1,8 @@
 
 # 
 # response, transition and prior models for DEPMIX models
-# 
+# 23-3-2008
+# Maarten Speekenbrink & Ingmar Visser
 
 # 
 # RESPONSE CLASS

Modified: trunk/R/viterbi.R
===================================================================
--- trunk/R/viterbi.R	2008-03-23 14:19:00 UTC (rev 100)
+++ trunk/R/viterbi.R	2008-03-23 14:29:34 UTC (rev 101)
@@ -1,3 +1,7 @@
+# 
+# Maarten Speekenbrink, 23-3-2008
+# 
+
 viterbi <- function(object) {
 	# returns the most likely state sequence
 	nt <- sum(object at ntimes)