# NOT RUN {
# }
# NOT RUN {
  ## Loads the dataset elec88 from the package ade4
  data(elec88)
  ar <- as.area(elec88$area)
  area.plot(ar, values=elec88$tab[,1])
  
  ## exportation of the election results toward a dxf file
  area2dxf(ar, file = "Dept", lay = elec88$tab[,1])
  
  ## Removes the file
  file.remove("Dept.dxf")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab