library(yfR)
x<-yf_get("ibm")