# get current encoding
oldEncoding <- getXMLEncoding()
# ensure that we create a file with iso-8859-1
setXMLEncoding("iso-8859-1")
# create XML file
xmlObject <- list(fuel.frame, hist, c(1:50))
xmlFileName <- "object.xml"
annotation <- "This is an example of createXMLFile usage"
precision <- 5
createXMLFile(xmlObject, xmlFileName, annotation, precision)
# return to original encoding
setXMLEncoding(oldEncoding)