3 Escrevendo dados em arquivos texto

Os dados da classe array ou geodata, podem ser salvos em arquivo texto. Ambos os formatos podem ser salvos usando a função write.citrus(), porém o arquivos de dados terão formatos diferentes.

Para o objeto da classe geodata, a planilha terá duas colunas indicando as coordenadas das plantas e colunas adicionais dos atributos em cada avaliação.


  > write.citrus(o303.geo, "og303.txt")

Para a classe array, o arquivo terá os atributos de cada avaliação abaixo uma das outras, como no arquivo original303.csv.


  > write.citrus(o303.array, "oar303.txt")

Esses arquivos podem ser lidos novamente. Usando a função read.citrus() para ler o arquivo dos dados da classe array:


  > oar303 <- read.citrus("oar303.txt", nrow = 20, row.id = 1,
  +     n.att = 13)
  > oar303


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


  > class(oar303)


  [1] "citrus" "array"

A função read.citrus.geo() pode ser usada para ler o arquivo dos dados da classe geodata. Observando os argumentos dessa função:


  > args(read.citrus.geo)


  function (file, n.att = NULL, header = TRUE, coords.col = 1:2,
      data.col = NULL, sep = "", dec = ".", na.strings = "NA",
      col.nam.att = 1, col.val.att = 2)
  NULL

Lendo o arquivo:


  > ogr303 <- read.citrus.geo("og303.txt", n.att = 13)
  > ogr303


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


  > class(ogr303)


  [1] "citrus"  "geodata"


  > names(ogr303)


  $coords
  [1] "nam.at" "val.at"
  
  $data
   [1] "X1"  "X2"  "X3"  "X4"  "X5"  "X6"  "X7"  "X8"  "X9"  "X10" "X11"
  [12] "X12" "X13" "X14" "X15" "X16" "X17" "X18" "X19" "X20" "X21" "X22"
  [23] "X23" "X24" "X25"
  
  $other
  [1] "dates"

Também é fácil salvar arquivos em formato de texto “.csv” e abrir em planilha OpenOffice ou Excel. No Excel há um detalhe: para abrir arquivos com colunas separadas por “,”, deve ser dados um “duplo-clique” no ícone do arquivo, enquanto que arquivos separados por “;”, deve ser pelo menu File Open ou Arquivo Abrir.


  > write.citrus(ogr303, "og303.csv", sep = ",")
  > write.citrus(oar303, "oar303.csv", sep = ",")