File:CAPM-SML.svg
Материал из Викисклада, хранилища свободных медиафайлов
Перейти к навигации
Перейти к поиску
Размер этого PNG-превью для исходного SVG-файла: 723 × 578 пкс. Другие разрешения: 300 × 240 пкс | 601 × 480 пкс | 961 × 768 пкс | 1280 × 1023 пкс | 2560 × 2047 пкс.
Исходный файл (SVG-файл, номинально 723 × 578 пкс, размер файла: 11 КБ)
Сведения о файле
Структурированные данные
Краткие подписи
ОписаниеCAPM-SML.svg | dow jones index and it's 30 stocks: the CAPM and the security market line (purple). the grey line is the linear model. mean yield is assumed to be 2.9% |
Дата | |
Источник | data by quote.yahoo, atomatically retrieved with GNU R, see graph source below |
Автор | Thomas Steiner |
Права (Повторное использование этого файла) |
Thomas Steiner put it under the CC-by-SA 2.5. |
Этот файл доступен по лицензии Creative Commons Attribution-Share Alike 2.5 Generic
- Вы можете свободно:
- делиться произведением – копировать, распространять и передавать данное произведение
- создавать производные – переделывать данное произведение
- При соблюдении следующих условий:
- атрибуция – Вы должны указать авторство, предоставить ссылку на лицензию и указать, внёс ли автор какие-либо изменения. Это можно сделать любым разумным способом, но не создавая впечатление, что лицензиат поддерживает вас или использование вами данного произведения.
- распространение на тех же условиях – Если вы изменяете, преобразуете или создаёте иное произведение на основе данного, то обязаны использовать лицензию исходного произведения или лицензию, совместимую с исходной.
R source:
library(tseries) library(RSvgDevice) quote<-function(inst, nDs) { if(!inherits(try(open(url("http://quote.yahoo.com")), silent = TRUE), "try-error")) { start <- strftime(as.POSIXlt(Sys.time() - nDs*24*3600), format="%Y-%m-%d") end <- strftime(as.POSIXlt(Sys.time()), format = "%Y-%m-%d") x <- get.hist.quote(instrument=inst, start=start, end=end, quote = c("AdjClose"), compression="m", quiet=T, retclass="zoo") } return(x) } yield=2.9 nDays=1042 comp<-c("^DJI", "AA", "AIG", "AXP", "BA", "C", "CAT", "DD", "DIS", "GE", "GM", "HD", "HON", "HPQ", "IBM", "INTC", "JNJ", "JPM", "KO", "MCD", "MMM", "MO", "MRK", "MSFT", "PFE", "PG", "T", "UTX", "VZ", "WMT", "XOM") comp.quote<-quote(comp[1],nDays) from= as.Date(index(comp.quote[1,1]),format="%Y-%m-%d") to= as.Date(index(comp.quote[length(comp.quote[,1]),1]),format="%Y-%m-%d") for (c in 2:length(comp)) { comp.quote<-merge(comp.quote,quote(comp[c],nDays)) } rdt<-12*diff(comp.quote)/comp.quote*100 points=array(NA,dim=c(length(comp),2)) for (p in 1:length(comp)) { points[p,1]= cov(rdt[,1],rdt[,p])/var(rdt[,1]) points[p,2]=mean(rdt[,p]) } devSVG(file="CAPM-SML.svg", width=10, height=8, bg="transparent", fg="black", onefile=TRUE, xmlHeader=TRUE) par(lwd=2) plot(points[2:length(comp),],type="p",col="blue",xlab="beta",ylab="return (in % p.a.)",main="CAPM: Security Market Line",xlim=range(0,points[,1])) lines(points[1,1],points[1,2],col="red",type="p") abline(a=yield,b=points[1,2]-yield,col="purple") text(points[2:length(comp),1],points[2:length(comp),2],comp,pos=3,col="blue") text(points[1,1], points[1,2], comp[1],pos=3,col="red") lm1<-lm(points[,2]~points[,1]) abline(lm1,col="darkgrey",lwd=1) text(x=par("usr")[2], y=par("usr")[3]+0.5, labels=paste("Dow Jones monthly data from", format.Date(from,"%d %b %Y"), "to", format.Date(to,"%d %b %Y"),""), col="grey",adj=c(1,0) ) grid(lwd=1) dev.off()
История файла
Нажмите на дату/время, чтобы увидеть версию файла от того времени.
Дата/время | Миниатюра | Размеры | Участник | Примечание | |
---|---|---|---|---|---|
текущий | 14:08, 8 ноября 2006 | 723 × 578 (11 КБ) | Thire (обсуждение | вклад) | {{Information| |Description = dow jones index and it's 30 stocks: the CAPM and the security market line (purple). the grey line is the linear model. mean yield is assumed to be 2.9% |Source = data by quote.yahoo, atomatically retrieved with GNU R, see gra |
Вы не можете перезаписать этот файл.
Использование файла
Нет страниц, использующих этот файл.
Глобальное использование файла
Данный файл используется в следующих вики:
- Использование в de.wikibooks.org
- Использование в en.wikipedia.org
- Использование в en.wikibooks.org
- Использование в fa.wikipedia.org
- Использование в he.wikipedia.org
- Использование в he.wiktionary.org
- Использование в hi.wikipedia.org
- Использование в hy.wikipedia.org
- Использование в nl.wikipedia.org
- Использование в pt.wikipedia.org
- Использование в ru.wikipedia.org
Метаданные
Файл содержит дополнительные данные, обычно добавляемые цифровыми камерами или сканерами. Если файл после создания редактировался, то некоторые параметры могут не соответствовать текущему изображению.
Название изображения | R SVG Plot! |
---|