ptsaraiva

require(RCurl)
require(jsonlite)

myticker<-"FB"
url.histprice<-function(x){ return(paste0("http://globalquote.morningstar.com/globalcomponent/RealtimeHistoricalStockData.ashx?ticker=",x,"&showVol=true&dtype=his&f=d&curry=USD&range=1900-1-1|2014-10-10&isD=true&isS=true&hasF=true&ProdCode=DIRECT"))}
url.keyratios<-function(x){return(paste0("http://financials.morningstar.com/ajax/exportKR2CSV.html?t=",x))}

#Retrieve historical prices
json.histprice<-getURL(url.histprice(myticker))
json.histprice<-sub("NaN","\"NA\"",json.histprice)

ptsaraiva

http://blog.cloudthat.com/sample-questions-for-mongodb-certified-dba-c100dba-exam/
1. b 
2. с
3. a, c
4. a, c // b
5. c, d
6. b // | c
7. d // | b
8. d // | b, c
9. a