OPEN AIR T PACKAGE

mydata <- read.csv("C:/Users/gabriel.juraski/Desktop/CLIMA/teste6.csv", header = TRUE)

timeVariation(subset(mydata, ws > 0 & wd > 10 & wd < 360),

pollutant = "t", ylab = "Temperatura (ºC)")

timeVariation(subset(mydata, ws > 0 & wd > 10 & wd < 360),

pollutant = "u", ylab = "Umidade Relativa (%)")

mydata <- read.csv("C:/Users/gabriel.juraski/Desktop/TCC-2/DADOS3.csv", header = TRUE)

timeVariation(subset(mydata, ws > 0 & wd > 10 & wd < 270),

pollutant = "CO", ylab = "CO (ug/m3)")

timeVariation(subset(mydata, ws > 0 & wd > 100 & wd < 270),

pollutant = "HR", ylab = "HR (%)")

plot(mydata$date, mydata$t, type = "l", xlab = "month",

ylab = "Monoxido de carbono")

plot(mydata$date, mydata$t, type = "l", xlab = "year",

ylab = "Monoxido de carbono")

plot(mydata$date[1:500], mydata$CO[1:500], type = "l", xlab = "date",

ylab = "Nitrogen oxides (ppb)")

C:\Users\gabriel.juraski\Desktop\TCC-2

xyplot(CO ~ date, data = mydata, type = "l")

data(mydata)

timePlot(selectByDate(mydata, year = 2016, month = "aug"),

pollutant = c("CO", "HR", "Temp..1", "Temp..2"))

timePlot(mydata, pollutant = c("t"))

mydata <- read.csv("C:/Users/wafer/Desktop/UFMS CG/gabriel TCC/Aeronet 2003_2016.csv", header = TRUE)

timeVariation(subset(datahour, ws > 0 & wd > 100 & wd < 270),

pollutant = "AOT", ylab = "CO (ug/m3)")

datahour <- timeAverage(mydata, avg.time = "hour", fill = TRUE)

head(datahour, 20)

timePlot(datahour, pollutant = c("AOT"))

dataday <- timeAverage(mydata, avg.time = "day", fill = TRUE)

head(datahour, 20)

calendarPlot(datahour, pollutant = "AOT", year =2005)

mydata <- read.csv("C:/Users/gabriel.juraski/Desktop/CLIMA/teste6.csv", header = TRUE)

timeVariation(subset(mydata, ws > 0 & wd > 10 & wd < 360),

pollutant = "t", ylab = "Temperatura (ºC)")

timeVariation(subset(mydata, ws > 0 & wd > 10 & wd < 360),

pollutant = "u", ylab = "Umidade Relativa (%)")

mydata <- read.csv("C:/Users/gabriel.juraski/Desktop/TCC-2/DADOS3.csv", header = TRUE)

timeVariation(subset(mydata, ws > 0 & wd > 10 & wd < 270),

pollutant = "CO", ylab = "CO (ug/m3)")

timeVariation(subset(mydata, ws > 0 & wd > 100 & wd < 270),

pollutant = "HR", ylab = "HR (%)")

plot(mydata$date, mydata$t, type = "l", xlab = "month",

ylab = "Monoxido de carbono")

plot(mydata$date, mydata$t, type = "l", xlab = "year",

ylab = "Monoxido de carbono")

plot(mydata$date[1:500], mydata$CO[1:500], type = "l", xlab = "date",

ylab = "Nitrogen oxides (ppb)")

C:\Users\gabriel.juraski\Desktop\TCC-2

xyplot(CO ~ date, data = mydata, type = "l")

data(mydata)

timePlot(selectByDate(mydata, year = 2016, month = "aug"),

pollutant = c("CO", "HR", "Temp..1", "Temp..2"))

timePlot(mydata, pollutant = c("t"))

mydata <- read.csv("C:/Users/wafer/Desktop/UFMS CG/gabriel TCC/Aeronet 2003_2016.csv", header = TRUE)

timeVariation(subset(datahour, ws > 0 & wd > 100 & wd < 270),

pollutant

...