

lvqinit(class)                               R Documentation

_I_n_i_t_i_a_l_i_z_e _a _L_V_Q _C_o_d_e_b_o_o_k

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

     Construct an initial codebook for LVQ methods.

_U_s_a_g_e_:

     lvqinit(x, cl, size, prior, k)

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

       x: a matrix or data frame of training examples, `n'
          by `p'.

      cl: the classifications for the training examples. A
          vector or factor of length `n'.

    size: the size of the codebook. Defaults to
          `min(round(0.4*ng*(ng-1 + p/2),0), n)' where `ng'
          is the number of classes.

   prior: Probabilities to represent classes in the code-
          book. Default proportions in the training set.

       k: k used for k-NN test of correct classification.
          Default is 5.

_D_e_t_a_i_l_s_:

     Selects `size' examples from the training set without
     replacement with proportions proportional to the prior
     or the original proportions.

_V_a_l_u_e_:

     A codebook, represented as a list with components `x'
     and `cl' giving the examples and classes.

_R_e_f_e_r_e_n_c_e_s_:

     Kohonen, T. (1990) The self-organizing map.  Proc. IEEE
     78, 1464-1480.

     Kohonen, T. (1995) Self-Organizing Maps.  Springer,
     Berlin.

_S_e_e _A_l_s_o_:

     `lvq1', `lvq2', `lvq3', `olvq1', `lvqtest'

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

     data(iris3)
     train <- rbind(iris3[1:25,,1],iris3[1:25,,2],iris3[1:25,,3])
     test <- rbind(iris3[26:50,,1],iris3[26:50,,2],iris3[26:50,,3])
     cl <- factor(c(rep("s",25),rep("c",25), rep("v",25)))
     cd <- lvqinit(train, cl, 10)
     lvqtest(cd, train)
     cd1 <- olvq1(train, cl, cd)
     lvqtest(cd1, train)

