#Ex: CanadianWeather data
t=1:365
fdataobj<-fdata(t(CanadianWeather$dailyAv[,,1]),t)
# Fraiman-Muniz Depth
out.FM=depth.FM(fdataobj,draw=TRUE)
out.FM2=depth.FM(fdataobj,trim=0.1,draw=TRUE)
plot(out.FM$mtrim,type="l",lwd=2)
lines(out.FM2$mtrim,col=2,lwd=2,lty=2)Run the code above in your browser using DataLab