Nhập và quản lý dữ liệu tài chính trong R
Joshua Ulrich
Quantitative Analyst & quantmod Co-Author and Maintainer
getSymbols("DGS10", src = "FRED")
"DGS10"
treasury_10 <- DGS10["1982-02"]
plot(treasury_10, main = "Lãi suất Trái phiếu Kho bạc 10 năm (kỳ hạn cố định)")

# Điền NA bằng giá trị cuối cùng mang sang (LOCF)
locf <- na.locf(treasury_10)
# Điền NA bằng nội suy tuyến tính
approx <- na.approx(treasury_10)
# Điền NA bằng nội suy spline
spline <- na.spline(treasury_10)
# Gộp thành một đối tượng na_filled <- merge(locf, approx, spline)# Vẽ đối tượng tổng hợp plot(na_filled, col = c("black", "red", "green"), main = "So sánh phương pháp nội suy")


getSymbols("MSFT", from = "2004-07-01", to = "2004-12-31", src = "google")
"MSFT"
plot(Cl(MSFT), main = "Microsoft (Google Finance)")

getSymbols("MSFT", from = "2004-07-01", to = "2004-12-31", src = "google")
"MSFT"
plot(Cl(MSFT), main = "Microsoft (Google Finance)")

getSymbols("MSFT", from = "2004-07-01", to = "2004-12-31")
"MSFT"
plot(Cl(MSFT), main = "Microsoft (Yahoo Finance)")

getSymbols("MSFT", from = "2004-07-01", to = "2004-12-31")
"MSFT"
plot(Ad(MSFT), main = "Microsoft (Yahoo Finance-Adjusted)")

getSymbols("MSFT", from = "2004-07-01", to = "2004-12-31")
"MSFT"
plot(Ad(MSFT), main = "Microsoft (Yahoo Finance—Adjusted)")



Nhập và quản lý dữ liệu tài chính trong R