plott_base(X = list(harbor_seal$P), fsx = 5)
P_dec <- decdc(harbor_seal$P, 5)
P_interp <- interp2length(X = P_dec, Z = harbor_seal$A)
plott_base(X = list(P_interp$data), fsx = 1)
Run the code above in your browser using DataLab