#AODtoPM2.5
library(readxl)
library(emmeans)
library(sjstats)
library(lme4)
library(lmerTest)
library(MuMIn)
library(nlme)
library(factoextra)
library(tidyverse)
data <- file.choose()
AQ1=read.csv("Sakon.csv")
# divide the months into four seasons
seasons = c( 'winter',
'winter',
rep('spring',3),
rep('summer',3),
rep('fall',3),
'winter')
AQ1 = AQ1 %>%
filter(!is.na(AQ1) & AQ1 > 0) %>%
mutate(season=factor(month, 1:12, seasons))
# boxplot for response grouped by cbwd
boxplot(formular = PM2.5 ~ month + day + AOD + Tem + RH + WS +
HPBL + NDVI, col=c("white","lightgray"), AQ1)
library(lme4)
library(lmerTest)
lmer1 = lmer(PM2.5 ~ month + day + AOD + Tem + RH + WS +
HPBL + NDVI, REML = TRUE, data = AQ1,
na.action=na.omit)
summary(lmer1)
lmer1 = lme(PM2.5 ~ month + day + AOD + Tem + RH + WS +
HPBL + NDVI, REML = TRUE, data = AQ1,
na.action=na.omit)
Error in lme(PM2.5 ~ month + day + AOD + Tem + RH + WS + HPBL + NDVI, : unused argument (REML = TRUE)
summary(lmer1)
Length Class Mode
3 formula call