# 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