library(XML)
library(methods)
myXML <- xmlParse (file = "book.xml")
print (myXML)
root <-  xmlRoot (myXML)
xmlName (root)
xmlSize (root)
root [1:2]
myCSV <- read.csv ("sample.csv")
print (myCSV)

head (ncol (myCSV))
head (nrow (myCSV))

myTXT <- read.table ("Faradars.txt")
head (myTXT)


myTXT <- read.table (file.choose())

library(RCurl)

webFile <- getURL ("https://faradars.org")

webFile
