SD/20240328_9_课后作业/第8次课后作业_模板.qmd

@@ -4,21 +4,22 @@ author: 姓名
 format: html
 ---
 
-# 下载airquality.xlsx，并读取数据
+
+# 示例问题，在R中输出`1+2+3+...+100`的结果
+
+采用`for`循环完成，代码如下：
 
 ```{r}
-# 下载至临时文件
+total <- 0
-tmpxlsxpath <- file.path(tempdir(), "airquality.xlsx")
+for (i in 1:100) {
-download.file("https://drwater.rcees.ac.cn/git/course/RWEP/raw/branch/PUB/data/airquality.xlsx",
+  total <- total + i
-  destfile = tmpxlsxpath)
+}
-airqualitydf <- readxl::read_xlsx(tmpxlsxpath, sheet = 1)
+total
-metadf <- readxl::read_xlsx(tmpxlsxpath, sheet = 2)
 ```
 
+
 # 根据`airqualitydf.xlsx`，按采样点统计白天（8:00-20:00）与夜晚（20:00-8:00）中空气质量指数（AQI）中位数，按城市统计低于所有采样点AQI30%分位值的采样点占比，列出上述占比最高的10个城市（不考虑采样点数低于5个的城市）。
 
 
 
-
-
 # 按照不同城市分组，统计白天与夜晚AQI中位数是否具有显著差异。

_quarto.yml

@@ -24,7 +24,7 @@ website:
   page-navigation: true
   page-footer: "Copyright 2024, [Ming Su](https://drwater.rcees.ac.cn)"
   navbar:
-    background: "light"
+    background: "grey"
     search: true
     right:
       - icon: house