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...
