opx1 <- read.px(system.file( "extdata", "example.px", package = "pxR"))
if (FALSE) {
write.px(opx1, file = "opx.px")
write.px(opx1, file = "opx.px",
heading = c("sexo", "edad"),
stub = "municipios")
write.px(opx1, filename = "opx.px",
keys = c("municipios","edad"))
}
Run the code above in your browser using DataLab