R语言水文序列突变点检验之滑动平均差法
刚入手R语言,代码有些无脑,仅做参考。
下面展示一些 内联代码片。
//Q <- read.csv("D:/1Study/Thesis/program/hydata.csv")
n <- length(Q$Runoff)
p <- 22 #假定时间序列周期
Moavse <- function(Q,n,p){
MU <- vector(length=n-1)
MD <- vector(length=n-1)
detaM <- vector(length=
原创
2021-03-10 10:53:21 ·
1887 阅读 ·
2 评论