# Create an Interval-Data object containing the intervals for 899 observations
# on the temperatures by quarter in 60 Chinese meteorological stations.
ChinaT <- IData(ChinaTemp[1:8])
# Estimate parameters by maximum likelihood, assuming that
# one of C3, C4 or C5 restricted configurations holds
ChinaE <- mle(ChinaT,Config=3:5)
cat("China maximum likelhiood estimation results =\n") ; print(ChinaE)
cat("Standard Errors of Estimators:\n") ; print(stdEr(ChinaE))
Run the code above in your browser using DataLab