# NOT RUN {
data(return)
###for the one peak, this function returns not useful results.
#This function more related to vegetation and canopy.
y<-return[1,]
#default
yr<-fslope(y)
yy<-return[182,]
yyr<-fslope(yy)
# }
Run the code above in your browser using DataLab