- peak=AirPassengers
- Quan=quantile(peak,0.2)
- TBoot1=NULL
- n=10
- B=1000
- SD1.peak=NULL
- for(i in 1:B)
- {
- Sample1=sample(peak,n,T)
- Tboot1=quantile(Sample1,0.2)
- TBoot1=c(TBoot1,Tboot1)
- SD1.peak=c(SD1.peak,sd(TBoot1))
- }
- TBoot1[1000]
- Lcl2=2*Quan-quantile(TBoot1,0.975)
- Ucl2=2*Quan-quantile(TBoot1,0.025)
- peakPIVOTAL=c(Lcl2,Ucl2)
- peakPIVOTAL




雷达卡





京公网安备 11010802022788号







