1 Troca de códigos

Pode haver códigos nos dados que precisam ser recodiﬁcados. No caso dos dados o303.geo, pode-se fazer uma tabela com os códigos existentes nos dados.

> table.citrus(o303.geo)

  object
      0     1     2     3     F     G     O     R
  11090  6897  1363  4292    94     3     8   253

Neste caso, os códigos “G” e “O” representam plantas com “gomose” e “sadias”, este último caso sendo um erro de digitação: devia ser 0 (zero) em lugar de O (letra ó). Ambos os casos deve ser 0 (zero).

A função change.code() pode ser utilizada para trocar um ou mais códigos por um ou mais outros códigos. Basta informar os códigos originais no argumento ori.code e os novos códigos no argumento mod.code.

Trocando códigos:

> cg303 <- change.code(data = o303.geo, ori.code = c("G", "O"),
+ mod.code = c(0, 0))

Inspencionando o objeto:

> cg303

Disease plant data in 25 evaluations of
20 rows of plants and 48 plants in each row.

> class(cg303)

[1] "citrus" "geodata"

> table.citrus(cg303)

  object
      0     1     2     3     F     R
  11101  6897  1363  4292    94   253

> names(cg303)

[1] "coords" "data" "dates" "n.subst.code"

> cg303$n.sub

  $Gpor0
  [1] 3

  $Opor0
  [1] 8

Observa-se que agora não há os códigos “G” e “O”

[next] [front] [up]