# NOT RUN {
library(ed50simulation)
ans1 <- estimate(groupS$doseSequence, groupS$responseSequence, method = 'ModTurPoint')
ans2 <- estimate(groupSN$doseSequence, groupSN$responseSequence, method = 'Dixon-Mood')
compare(ans1, ans2)
# }
Run the code above in your browser using DataLab