Kenvl                package:spatial                R Documentation

_C_o_m_p_u_t_e _E_n_v_e_l_o_p_e _a_n_d _A_v_e_r_a_g_e _o_f _S_i_m_u_l_a_t_i_o_n_s _o_f _K-_f_n_s

_D_e_s_c_r_i_p_t_i_o_n:

     Computes envelope (upper and lower limits) and average of
     simulations of K-fns

_U_s_a_g_e:

     Kenvl(fs, nsim, ...)

_A_r_g_u_m_e_n_t_s:

      fs: full scale for K-fn 

    nsim: number of simulations 

     ...: arguments to produce one simulation 

_V_a_l_u_e:

     list with components

       x: distances 

   lower: min of K-fns 

   upper: max of K-fns 

    aver: average of K-fns 

_S_e_e _A_l_s_o:

     `Kfn', `Kaver'

_E_x_a_m_p_l_e_s:

     towns <- ppinit("towns.dat")
     par(pty="s")
     plot(Kfn(towns, 40), type="b")
     plot(Kfn(towns, 10), type="b", xlab="distance", ylab="L(t)")
     for(i in 1:10) lines(Kfn(Psim(69), 10))
     lims <- Kenvl(10,100,Psim(69))
     lines(lims$x,lims$l, lty=2, col="green")
     lines(lims$x,lims$u, lty=2, col="green")
     lines(Kaver(10,25,Strauss(69,0.5,3.5)), col="red")

