plotDSobj             package:clim.pact             R Documentation

_P_l_o_t_t_i_n_g _r_o_u_t_i_n_e _f_o_r _o_b_j_e_c_t_i_v_e _d_o_w_n_s_c_a_l_i_n_g _o_f _m_o_n_t_h_l_y _m_e_a_n_s

_D_e_s_c_r_i_p_t_i_o_n:

     Plotting routine for 'objDS'.

_U_s_a_g_e:

     plotDSobj(result,outdir="output",figs=c(1,2,3,4)))

_A_r_g_u_m_e_n_t_s:

  result: A 'objDS' object from 'objDS'.

  outdir: Directory for storing EPS-files with figures

    figs: Figs to plot: 1 - time series, 2 - time series of  residuals,
          3 - distribution of residuals, 4 - rates of change.

_V_a_l_u_e:

_A_u_t_h_o_r(_s):

     R.E. Benestad

_E_x_a_m_p_l_e_s:

     ## Not run: 
     library(clim.pact)
     source("clim.pact/R/ds.R")
     source("clim.pact/R/objDS.R")
     source("clim.pact/R/catFields.R")
     source("clim.pact/R/eof.R")
     oslo<-getnordklim("Oslo-Blindern")
     t2m <- retrieve.nc("~/data/analysis/DNMI_t2m.nc")
     t2m.gcm <- retrieve.nc("~/data/mpi/mpi-gsdio_t2m.nc",
                x.rng=range(t2m$lon),y.rng=range(t2m$lat))
     ds <- objDS(field.obs=t2m,field.gcm=t2m.gcm,station=oslo,lsave=FALSE,plot=FALSE)
     plotDSobj(result)
     ## End(Not run)

