[Yuima-commits] r291 - pkg/yuima/R

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

Author: iacus
Date: 2014-03-19 23:47:07 +0100 (Wed, 19 Mar 2014)
New Revision: 291

Modified:
   pkg/yuima/R/toLatex.R
Log:
fixed toLatex

Modified: pkg/yuima/R/toLatex.R
===================================================================
--- pkg/yuima/R/toLatex.R	2014-03-19 16:33:41 UTC (rev 290)
+++ pkg/yuima/R/toLatex.R	2014-03-19 22:47:07 UTC (rev 291)
@@ -234,8 +234,8 @@
     n.eq <- mod at equation.number
     dr <- paste("\\left(\\begin{array}{c}\n")
     for (i in 1:n.eq) {
-        #    dr <- paste(dr, substr(mod at drift[i], 2, nchar(mod at drift[i]) -1), "\\\\ \n")
-              dr <- paste(dr, substr(mod at drift[i], 3, nchar(mod at drift[i]) - 2), "\\\\ \n")
+            dr <- paste(dr, substr(mod at drift[i], 2, nchar(mod at drift[i]) -1), "\\\\ \n")
+        #      dr <- paste(dr, substr(mod at drift[i], 3, nchar(mod at drift[i]) - 2), "\\\\ \n")
     }
     #
     dr <- paste(dr, "\\end{array}\\right)", sprintf("d%s", mod at time.variable))
@@ -302,8 +302,8 @@
     numb.solve.var <- length(mod at solve.variable)
     bodyaus <-c( paste("\\left(\\begin{array}{c}\n"))
     for (i in 1:numb.solve.var) {
-      bodyaus <-
-      paste(bodyaus, paste(paste(mod at solve.variable[i],"(0)",sep=""),substr(mod at xinit[i], 3, nchar(mod at xinit[i]) - 2),sep="="), "\\\\ \n")
+      bodyaus <-paste(bodyaus, paste(paste(mod at solve.variable[i],"(0)",sep=""),substr(mod at xinit[i], 2, nchar(mod at xinit[i]) - 1),sep="="), "\\\\ \n")
+      # paste(bodyaus, paste(paste(mod at solve.variable[i],"(0)",sep=""),substr(mod at xinit[i], 3, nchar(mod at xinit[i]) - 2),sep="="), "\\\\ \n")
       #     paste(bodyaus, paste(paste(mod at solve.variable[i],"(0)",sep=""),substr(mod at xinit[i], 2, nchar(mod at xinit[i]) - 1),sep="="), "\\\\ \n")
     }