[Sem-additions-commits] r7 - pkg/R

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

Author: jebyrnes
Date: 2010-04-24 23:41:19 +0200 (Sat, 24 Apr 2010)
New Revision: 7

Modified:
   pkg/R/update.model.r
Log:


Modified: pkg/R/update.model.r
===================================================================
--- pkg/R/update.model.r	2010-04-24 21:14:59 UTC (rev 6)
+++ pkg/R/update.model.r	2010-04-24 21:41:19 UTC (rev 7)
@@ -133,10 +133,10 @@
      	#see if this is a fixed parameter values
     	     if(op=="=~"){
  		   isFixed<-strsplit(y[q], '*', fixed=T)[[1]]
-		   if(length(isFixed)>1) y[q]<-isFixed[2]
+		   if(length(isFixed)>1) {y[q]<-isFixed[2]}
 		 }else{
 			isFixed<-strsplit(x[j], '*', fixed=T)[[1]]
-			if(length(isFixed)>1) x[j]<-isFixed[2]
+			if(length(isFixed)>1) {x[j]<-isFixed[2]}
 			}
      	
      	
@@ -175,17 +175,17 @@
 
 
 
-###example
-a.model<-'y~x+z
-		  x~3*z
-		  z=~a+b+c
-		  y~~c
-'
+####example
+#a.model<-'y~x+z
+#		  x~3*z
+#		  z=~a+b+c
+#		  y~~c
+#'
+#
+#cat(a.model)
+#model.to.ram(a.model)
 
-cat(a.model)
-model.to.ram(a.model)
 
-
 ###
 #can we go back?
 #we'll need to know which are latent variables