# This command reads a few lines sampled from
# the EPA for 2011Q1
x <- test.metadata(system.file("extdata", "sampleEPA0111.txt", package = "MicroDatosEs"),
system.file("metadata", "epa_mdat1.txt", package = "MicroDatosEs"),
system.file("metadata", "epa_mdat2.txt", package = "MicroDatosEs"))
# Example of first metadata file
mdat1_example <- read.table(system.file("metadata", "epa_mdat1.txt",
package = "MicroDatosEs"),
header = TRUE, sep = "\t",
fileEncoding = "UTF-8",
stringsAsFactors = FALSE)
head(mdat1_example)
# Example of second metadata file
mdat2_example <- read.table(system.file("metadata", "epa_mdat2.txt",
package = "MicroDatosEs"),
header = TRUE, sep = "\t",
fileEncoding = "UTF-8",
stringsAsFactors = FALSE)
head(mdat2_example)
Run the code above in your browser using DataLab