Project

General

Profile

« Previous | Next » 

Revision d49c3a91

Added by Benoit Parmentier over 10 years ago

multi time scale additional slight modifications to functions script

View differences:

climate/research/oregon/interpolation/multi_timescales_paper_interpolation_functions.R
5 5 
#Functions used in the production of figures and data for the multi timescale paper are recorded.
6 6 
#AUTHOR: Benoit Parmentier                                                                      #
7 7 
#DATE CREATED: 11/25/2013
8 
#DATE MODIFIED: 03/06/2014
9 
#Version: 3
8 
#DATE MODIFIED: 03/18/2014
9 
#Version: 4
10 10 
#PROJECT: Environmental Layers project                                       #
11 11 
#################################################################################################
12 12 

  		




  ......




  273
  273
  
    
      height=480*layout_m[1],width=480*layout_m[2])


  		




  274
  274
  
    
  par(mfrow=layout_m)


  		




  275
  275
  
    
  p<-xyplot(data ~ lag | which , data=dd_combined,group=method_v,type="b", as.table=TRUE,


  		




  276
  
  
    
            pch=1:3,auto.key=list(columns=3,cex=1.5,font=2),


  		




  
  276
  
    
            pch=1:3,,pch.cex=3,auto.key=list(columns=1,space="right",title="Method",cex=2.5,font=2), #Legend information


  		




  277
  277
  
    
            main=title_plot,


  		




  278
  278
  
    
            par.settings = list(


  		




  279
  
  
    
              superpose.symbol = list(pch=1:3,col=1:3,pch.cex=1.4),


  		




  280
  
  
    
              axis.text = list(font = 2, cex = 1.3),layout=layout_m,


  		




  281
  
  
    
              par.main.text=list(font=2,cex=2),strip.background=list(col="white")),


  		




  282
  
  
    
            par.strip.text=list(font=2,cex=1.5),


  		




  
  279
  
    
              superpose.symbol = list(lty=1,pch=1:3,col=1:3,cex=2.3),


  		




  
  280
  
    
              axis.text = list(font = 2, cex = 2),layout=layout_m,


  		




  
  281
  
    
              par.main.text=list(font=2,cex=2.5),strip.background=list(col="white")),


  		




  
  282
  
    
            par.strip.text=list(font=2,cex=2),


  		




  283
  283
  
    
            strip=strip.custom(factor.levels=names_panel_plot),


  		




  284
  
  
    
            xlab=list(label="Spatial lag neighbor", cex=2,font=2),


  		




  285
  
  
    
            ylab=list(label="Moran's I", cex=2, font=2))


  		




  
  284
  
    
            xlab=list(label="Spatial lag neighbor", cex=2.5,font=2),


  		




  
  285
  
    
            ylab=list(label="Moran's I", cex=2.5, font=2))


  		




  286
  286
  
    
  


  		




  287
  287
  
    
  print(p)


  		




  288
  288
  
    
  


  		












Also available in:  Unified diff