# Plots for visualisation ----
opar <- par("mfrow")
par(mfrow = c(2,1))
plot.new()
plot.window(xlim = range(oufti99$'1sin'$x),
ylim = range(oufti99$'1sin'$y))
title("oufti99$'1sin'")
placesvg(oufti99$'1sin')
plot.new()
plot.window(xlim = range(oufti99$ammonite$x),
ylim = range(oufti99$ammonite$y), asp = 1)
title("oufti99$ammonite")
placesvg(oufti99$ammonite)
par(mfrow = opar)
# Exemplification of is.joint ----
is.joint(oufti99$'1sin')
is.joint(oufti99$ammonite)
Run the code above in your browser using DataLab