## Loads the dataset elec88 from the package ade4
data(elec88)
ar <- as.area(elec88$area)
area.plot(ar, lab = elec88$lab, clab = 0.75)
## exportation of the departments toward a dxf file
area2dxf(ar, file = "Dept", lay = elec88$lab)
## Removes the file
file.remove("Dept.dxf")
Run the code above in your browser using DataLab