#从github上下载R包
install.packages("devtools")
devtools::install_github("username/get_draws")

#从 lgpfit 或 stanfit 提取参数的R包，在 lgpr 中：纵向高斯过程回归
install.packages("lgpr")
library(lgpr)
get_draws

#获取人口位置的R包
install.packages("EmiR")
library(EmiR)
get_draws


# 读取数据
data1 <- read.csv("D:\\BaiduNetdiskDownload\\GBDmap\\Norpred\\Depressionincidence\\IHME-GBD_2021_DATA-52bdbd7b-1.csv")
data2 <- read.csv("D:\\BaiduNetdiskDownload\\GBDmap\\Norpred\\Depressionincidence\\IHME-GBD_2021_DATA-52bdbd7b-2.csv")
data3 <- read.csv("D:\\BaiduNetdiskDownload\\GBDmap\\Norpred\\Depressionincidence\\IHME-GBD_2021_DATA-52bdbd7b-3.csv")




# 查看数据结构
str(data1)
str(data2)
# 查看前几行数据
head(data1)
head(data2)

# 合并数据
combined_data <- rbind(data1, data2, data3)
# 检查合并后的数据结构
str(combined_data)
# 查看合并后的数据摘要
summary(combined_data)
# 查看行数，确保行数是两个数据框行数的总和
nrow(combined_data)

# 保存合并后的数据到 CSV 文件
write.csv(combined_data, "path/to/Norpred", row.names = FALSE)