diff --git a/Manuscript/stitch.R b/Manuscript/stitch.R
index 3fb764f..5a65b79 100755
--- a/Manuscript/stitch.R
+++ b/Manuscript/stitch.R
@@ -24,11 +24,11 @@ for( i in 1:length( rmdFiles ) )
   cat( rmdFiles[i] )
   if( i == 1 )
     {
-    cmd <- paste( "type", rmdFiles[i], ">", stitchedFile )
+    cmd <- paste( "cat", rmdFiles[i], ">", stitchedFile )
     } else {
-    cmd <- paste( "type", rmdFiles[i], ">>", stitchedFile )
+    cmd <- paste( "cat", rmdFiles[i], ">>", stitchedFile )
     }
-  shell( cmd )
+  system( cmd )
   }
 
 cat( '\n Pandoc rendering', stitchedFile, '\n' )
diff --git a/Manuscript/stitch_win.R b/Manuscript/stitch_win.R
new file mode 100644
index 0000000..3fb764f
--- /dev/null
+++ b/Manuscript/stitch_win.R
@@ -0,0 +1,37 @@
+library( rmarkdown )
+library( ggplot2 )
+
+stitchedFile <- "stitched.md"
+
+rmdFiles <- c( "format.md",
+               "titlePage.md",
+               "abstract.md",
+               "intro.md",
+               "introAnts.md",
+               "resultsAllen.md",
+               "resultsDevCCF.md",
+               "resultsKK.md",
+               "discussion.md",
+               "methods.md",
+               "data_availability.md",
+               "acknowledgments.md",
+               "author_contributions.md",
+               "references.md"
+             )
+
+for( i in 1:length( rmdFiles ) )
+  {
+  cat( rmdFiles[i] )
+  if( i == 1 )
+    {
+    cmd <- paste( "type", rmdFiles[i], ">", stitchedFile )
+    } else {
+    cmd <- paste( "type", rmdFiles[i], ">>", stitchedFile )
+    }
+  shell( cmd )
+  }
+
+cat( '\n Pandoc rendering', stitchedFile, '\n' )
+render( stitchedFile, pdf_document( number_sections = TRUE, pandoc_args = "--variable=subparagraph" ) )
+render( stitchedFile, latex_document() )
+