# NOT RUN {
# load the first record
fdascriptX <- fdascript[,1,1]
fdascriptY <- fdascript[,1,2]
# Define the observation times in 100ths of a second
centisec <- seq(0,2.3,len=1401)*100
# plot the script
plot(fdascriptX, fdascriptY, type="l")
# }
Run the code above in your browser using DataLab