# Create 
qual1 <- CreateQualificationType(name="Worked for me before",
           description="This qualification is for people who have worked for me before",
           status = "Active",
           keywords="Worked for me before")
DisposeQualificationType(qual1$QualificationTypeId)
# QualificationType with test and answer key
qf <- paste0(readLines(system.file("qualificationtest1.xml", package = "MTurkR")), collapse="")
qa <- paste0(readLines(system.file("answerkey1.xml", package = "MTurkR")), collapse="")
qual1 <- CreateQualificationType(name = "Qualification with Test",
           description = "This qualification is a demo",
           test = qf,
           answerkey = qa, # optionally, use AnswerKey
           status = "Active",
           keywords = "test, autogranted")
DisposeQualificationType(qual1$QualificationTypeId)Run the code above in your browser using DataLab