函数程序"qdensity"<-function(z1,alpha,n){
p<-z1$sol[1,]
h<-rq.bandwidth(p,n,hs=F)
h<-0.6*h
trim<-((p-h)<alpha)|((p+h)>1-alpha)
qup<-qrq1(z1,(p+h)[!trim])
qlo<-qrq1(z1,(p-h)[!trim])
s<-(2*h[!trim])/(qup-qlo)
return(s,trim)
}
后面定义den<-qdensity(z,alpha,n)
整个程序结果就会出现 错误于return(s,trim),不允许多参数回覆值
请问这个怎么解决?