toy                 package:emulator                 R Documentation

_A _t_o_y _d_a_t_a_s_e_t

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

     A dataframe consisting of 10 rows and 6 columns corresponding to
     10 points in  a six-dimensional space.

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

     data(toy)

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

          data(toy)
          real.relation <- function(x){sum( (1:6)*x )}
          d.noisy <- apply(toy,1,real.relation)+rnorm(nrow(toy))/10

          fish <- rep(2,6)
          A <- corr.matrix(toy,scales=fish , power=1.5)
          Ainv <- solve(A)
          x.unknown <- rep(0.5 , 6)
          interpolant(x.unknown, d.noisy, toy, Ainv, scales=fish, g=FALSE)
          real.relation(x.unknown) ##should match estimate.

