---
title: "课后作业8"
format:
  dwsd-revealjs:
    logo: _extensions/drwater/dwsd/inst/ucaslogo.png
---

```{r}
#| include: false
#| cache: false
lang <- "cn"
require(tidyverse)
require(learnr)
knitr::opts_chunk$set(echo = TRUE)
```

```{r}
#| include: false
#| cache: false
lang <- "cn"
require(tidyverse)
require(learnr)
```

## 第8次课后作业

1. 根据`airqualitydf.xlsx`，按采样点统计白天（8:00-20:00）与夜晚（20:00-8:00）中空气质量指数（AQI）中位数，按城市统计低于所有采样点AQI30%分位值的采样点占比，列出上述占比最高的10个城市（不考虑采样点数低于5个的城市）。
2. 按照不同城市分组，统计白天与夜晚AQI中位数是否具有显著差异。

作业模板：[第8次课后作业_模板.qmd](https://git.drwater.net/course/RWEP/raw/branch/main/SD/20240328_9_课后作业/第8次课后作业_模板.qmd)

## 示例代码

### 基于R的示例结果

- [第8次课后作业R示例代码结果](./第8次课后作业_模板.html)

### 基于SAS的示例结果

- [第8次课后作业SAS示例代码](./第8次课后作业_模板.sas)
- [第8次课后作业SAS示例结果1](./median.pdf)
- [第8次课后作业SAS示例结果2](./freq.pdf)
- [第8次课后作业SAS示例结果3](./airqualitymedianoutrow5.pdf)
- [第8次课后作业SAS示例结果4](./npar1wayConover.pdf)

## 欢迎讨论！{.center}

```{r}
#| results: 'asis'
rmdify::slideend(
  wechat = FALSE,
  type = "public",
  tel = FALSE,
  thislink = "../"
)
```

