# Generate simulated data dataC
dataC <- createData(200)
# Plot the nonlinear dose-response relationship between the independent variable and lnOR
spm.fit <- fitSemiParamModel(dataC)
plot(spm.fit,ylab = "lnOR",xlab = "age",shade = FALSE)
summary(spm.fit)
Run the code above in your browser using DataLab