This function has been implemented for a simpler call of apply.
span(x)
x
diff(range(x,na.rm=TRUE))
Dominik Reusser
diagnostic
data(models_dawson,package="wasim") span(models_dawson[,1])