underlying data summary lm

00-scripts/step5/figures/figure3.R

@@ -171,7 +171,10 @@ p_ic_F=p_ic_F+theme(plot.title = element_text(size = 24),
                     panel.grid.major = element_blank(),
                     panel.border=element_rect(fill=NA,size=1),
                     panel.background = element_blank())+ggtitle("(c)")
-
+## underlying data
+sink("14-tables/figure_3c_underlying_data.tsv")
+print(summary(modclimF.autof))
+sink()
 
 ##########################################################################
 ## hier.part
@@ -329,7 +332,10 @@ p_ic_M=p_ic_M+theme(plot.title = element_text(size = 24),
                     panel.grid.major = element_blank(),
                     panel.border=element_rect(fill=NA,size=1),
                     panel.background = element_blank())+ggtitle("(a)")
-
+## underlying data
+sink("14-tables/figure_3a_underlying_data.tsv")
+print(summary(modclimM.autof))
+sink()
 
 ##########################################################################
 ## hier.part