大家好。我有一个全国站点的数据，按照站点分成不同的csv文件，想在分成站点文件时，把每一个站点的分位数也求出来，写成一个单独的文件，请问要怎么做到？
下面是分成不同csv的程序。
origin <- read.csv("F:/Temp/cmd_norm.csv")
origin<-origin[-1,]
names(origin)<-c("site", "year", "month", "day", "tmin")

site<-unique(origin[1])

for (j in t(site)) {
  setwd("F:/Temp/")
  write.csv(origin[origin$site==j, ],row.names = F,
              paste(j,".csv",sep=""))
}

分位数的函数我看了下是quantile函数。请问怎么在这个程序中赋予它数值？然后把每一个站点的分位数写在一个文件中？