source('http://datayyy.com/fmr/week4.txt')

library(yfR)
begdate<-"2023-1-1"
enddate<-"2023-12-31"
x<-yf_get("ibm",begdate,enddate)
print(head(x))