OPEN AIR T PACKAGE
Por: Socorr0 • 6/12/2018 • Projeto de pesquisa • 556 Palavras (3 Páginas) • 131 Visualizações
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
...