## --- Martin Mächler (for "Comp.Stat.", 2023-03-20)			-*- R -*-
require("quantmod")
bmw <- getSymbols("BMW.DE", auto.assign=FALSE) # from Yahoo, by default
dim(bmw) # 4117 6
str(bmw)
## An xts object on 2007-01-02 / 2023-03-17 containing:
##   Data:    double [4117, 6]
##   Columns: BMW.DE.Open, BMW.DE.High, BMW.DE.Low, BMW.DE.Close, BMW.DE.Volume ....
##   Index:   Date [4117] (TZ: "UTC")
##   xts Attributes:
##     $ src    : chr "yahoo"
##     $ updated: POSIXct[1:1], format: "2023-03-20 13:14:00"

saveRDS(bmw["2019/2022",], "........./BMW_19_22.rds")