Initial data commit

Task/XML-Input/R/xml-input-2.r

@@ -0,0 +1,18 @@
+#Convert to an XML tree
+xmltree <- xmlTreeParse(str)
+
+#Retrieve the students, and how many there are
+students <- xmltree$doc$children$Students
+nstudents <- length(students)
+
+#Get each of their names
+studentsnames <- character(nstudents)
+for(i in 1:nstudents)
+{
+   this.student <- students$children[i]$Student
+   studentsnames[i] <- this.student$attributes["Name"]
+}
+
+#Change the encoding so that Emily displays correctly
+Encoding(studentsnames) <- "UTF-8"
+studentsnames