quantileloss <- function(a,b,c){
for (i in length(b)){
d=0
if (a>=b) {
d=d+c*(abs(a-b))
}
if (a<b) {
d=d+(1-c)*abs(a-b)
}
return(d)}
}
a 真实值
b 估计值
c 置信范围[1,0]
非常简单的一个函数……本来想用来比较异方差模型的,结果效果好像不怎么样
根据网上的公式写的


雷达卡




京公网安备 11010802022788号







