# NOT RUN {
#read in the motorcycle crash data
#
data(motorcycledata)
#
dim(motorcycledata)
#check data.
#
times<-motorcycledata$time
accel<-motorcycledata$accel
a<-adjustx(times,accel,"mean")
#
#note the repeated values in the original grid data
#
#display new data vectors
a$sepx
#
a$sepf
#
#and now the new adjusted data has length 94.
#
# }
Run the code above in your browser using DataLab