set.seed(1000)
data(tonedata)
# Note: If you do not use the installed package, replace this by
# tonedata <- read.table("(path/)tonedata.txt", header=TRUE)
attach(tonedata)
tonefix <- fixreg(stretchratio,tuned)
simmatrix(tonefix)[sseg(2,3)]Run the code above in your browser using DataLab