data("Ovocytes", package="ssym")
fit <- ssym.l(fraction ~ type + psp(time) | type + psp(time), data=Ovocytes,
family='Powerexp', xi=-0.65)
par(mfrow = c(1,2))
np.graph(fit, which=1, xlab="Time", main="Location")
np.graph(fit, which=2, exp=TRUE, xlab="Time", main="Dispersion")
Run the code above in your browser using DataLab