第7次课

SD/20240326_9_课后作业/_extensions

@@ -0,0 +1 @@
+../../_extensions

SD/20240326_9_课后作业/index.qmd

@@ -0,0 +1,50 @@
+---
+title: "课后作业7"
+subtitle: 《区域水环境污染数据分析实践》<br>Data analysis practice of regional water environment pollution
+author: 苏命、王为东<br>中国科学院大学资源与环境学院<br>中国科学院生态环境研究中心
+date: today
+lang: zh
+format:
+  revealjs:
+    theme: dark
+    slide-number: true
+    chalkboard:
+      buttons: true
+    preview-links: auto
+    lang: zh
+    toc: true
+    toc-depth: 1
+    toc-title: 大纲
+    logo: ./_extensions/inst/img/ucaslogo.png
+    css: ./_extensions/inst/css/revealjs.css
+    pointer:
+      key: "p"
+      color: "#32cd32"
+      pointerSize: 18
+revealjs-plugins:
+  - pointer
+filters:
+  - d2
+---
+
+```{r}
+#| include: false
+#| cache: false
+lang <- "cn"
+require(tidyverse)
+require(learnr)
+```
+
+## 第7次课后作业
+
+1. 根据`airqualitydf.xlsx`，按采样点统计周末2天与工作日5天中空气质量指数（AQI）中位数，按城市统计低于所有采样点AQI30%分位值的采样点占比，列出上述占比最高的10个城市（不考虑采样点数低于5个的城市）。
+2. 按照不同城市分组，统计周末2天与工作日5天AQI中位数是否具有显著差异。
+
+作业模板：[第7次课后作业_模板.qmd](https://drwater.rcees.ac.cn/git/course/RWEP/raw/branch/main/SD/20240326_9_课后作业/第7次课后作业_模板.qmd)
+
+
+## 欢迎讨论！{.center}
+
+
+`r rmdify::slideend(wechat = FALSE, type = "public", tel = FALSE, thislink = "https://drwater.rcees.ac.cn/course/public/RWEP/@PUB/SD/")`
+

SD/20240326_9_课后作业/第7次课后作业_模板.qmd

@@ -0,0 +1,25 @@
+---
+title: 课后作业7
+author: 姓名
+format: html
+---
+
+
+# 示例问题，在R中输出`1+2+3+...+100`的结果
+
+采用`for`循环完成，代码如下：
+
+```{r}
+total <- 0
+for (i in 1:100) {
+  total <- total + i
+}
+total
+```
+
+
+# 根据`airqualitydf.xlsx`，按采样点统计周末2天与工作日5天中空气质量指数（AQI）中位数，按城市统计低于所有采样点AQI30%分位值的采样点占比，列出上述占比最高的10个城市（不考虑采样点数低于5个的城市）。
+
+
+
+# 按照不同城市分组，统计周末2天与工作日5天AQI中位数是否具有显著差异。