# NOT RUN {
a <- GenerateExternalQuestion(url="http://www.example.com/", frame.height="400")
hit1 <-
CreateHIT(title = "Survey",
description = "5 question survey",
reward = ".10",
expiration = seconds(days = 4),
duration = seconds(hours = 1),
keywords = "survey, questionnaire",
question = a$string)
ExpireHIT(hit1$HITId)
DisposeHIT(hit1$HITId)
# }
Run the code above in your browser using DataLab