1.49 - fix for GPL2 map2stan distribution

- 1.48 broke GPL2. This release fixes it.
rmcelreath · Feb 22, 2015 · fdc7de5 · fdc7de5
1 parent c7a624e
commit fdc7de5
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,8 +1,8 @@
 Package: rethinking
 Type: Package
 Title: Statistical Rethinking book package
-Version: 1.48
-Date: 2015-02-15
+Version: 1.49
+Date: 2015-02-22
 Author: Richard McElreath
 Maintainer: Richard McElreath <[email protected]>
 Imports: coda, MASS

diff --git a/R/map2stan.r b/R/map2stan.r
@@ -1017,8 +1017,10 @@ map2stan <- function( flist , data , start , pars , constraints=list() , types=l
                 m_data <- concat( m_data , indent , type , "[",var$N[1],",",var$N[2],"] " , var$var , ";\n" )
             }
             if ( type=="index" ) {
-                m_data <- concat( m_data , indent , "int<lower=1> " , var$var , ";\n" )
-            } else {
+                # index variable go at top of m_data
+                m_data <- concat( indent , "int<lower=1> " , var$var , ";\n" , m_data )
+            }  
+            if ( type!="index" & type!="matrix" ) {
                 m_data <- concat( m_data , indent , type , " " , var$var , "[" , var$N , "];\n" )
             }
         }#i