# Create an Interval-Data object containing the intervals for characteristics
# of 27 cars models.
Cars <- IData(CarsData[1:8],Seq="MidPLogR_VarbyVar",
VarNames=c("Price","EngineCapacity","TopSpeed","Acceleration"))
#Display the first and last observations
head(Cars)
tail(Cars)
# Estimate normal distributuion parameters robustly by full maximum trimmed likelihood,
CarsTE <- fulltle(Cars)
cat("Cars data -- normal maximum trimmed likelhiood estimation results:\n")
print(CarsTE)
Run the code above in your browser using DataLab