[Uwgarp-commits] r53 - in pkg/GARPFRM: . R sandbox/project_plan vignettes

[noreply at r-forge.r-project.org]

Author: tfillebeen
Date: 2014-01-25 21:44:39 +0100 (Sat, 25 Jan 2014)
New Revision: 53

Modified:
   pkg/GARPFRM/NAMESPACE
   pkg/GARPFRM/R/capm.R
   pkg/GARPFRM/sandbox/project_plan/project_plan.pdf
   pkg/GARPFRM/sandbox/project_plan/project_plan.tex
   pkg/GARPFRM/vignettes/CAPM_TF.pdf
Log:
CAPM complete with CAPM plots and SML charts

Modified: pkg/GARPFRM/NAMESPACE
===================================================================
--- pkg/GARPFRM/NAMESPACE	2014-01-24 20:12:49 UTC (rev 52)
+++ pkg/GARPFRM/NAMESPACE	2014-01-25 20:44:39 UTC (rev 53)
@@ -1,12 +1,16 @@
-S3method(getAlphas,capm_mv)
-S3method(getAlphas,capm_uv)
-S3method(getBetas,capm_mv)
-S3method(getBetas,capm_uv)
-S3method(getStatistics,capm_mv)
-S3method(getStatistics,capm_uv)
 export(CAPM)
+export(chartSML)
 export(getAlphas)
 export(getBetas)
 export(getStatistics)
-export(plot.capm_mv)
+export(hypTest)
+export(plot.capm_mlm)
 export(plot.capm_uv)
+S3method(getAlphas,capm_mlm)
+S3method(getAlphas,capm_uv)
+S3method(getBetas,capm_mlm)
+S3method(getBetas,capm_uv)
+S3method(getStatistics,capm_mlm)
+S3method(getStatistics,capm_uv)
+S3method(hypTest,capm_mlm)
+S3method(hypTest,capm_uv)

Modified: pkg/GARPFRM/R/capm.R
===================================================================
--- pkg/GARPFRM/R/capm.R	2014-01-24 20:12:49 UTC (rev 52)
+++ pkg/GARPFRM/R/capm.R	2014-01-25 20:44:39 UTC (rev 53)
@@ -45,8 +45,8 @@
   capm_fit$y_data <- R
   
   if(ncol(R) > 1){
-    #  Multi-Beta CAPM
-    class(capm_fit) <- c("capm_mv", "mlm", "lm")
+    #  Multiple Linear Model CAPM
+    class(capm_fit) <- c("capm_mlm", "mlm", "lm")
   } else if(ncol(R) == 1){
     #  Univariate CAPM
     class(capm_fit) <- c("capm_uv", "lm")
@@ -71,10 +71,10 @@
   return(coef(object)[1])
 }
 
-#' @method getAlphas capm_mv
-#' @S3method getAlphas capm_mv
-getAlphas.capm_mv <- function(object){
-  if(!inherits(object, "capm_mv")) stop("object must be of class capm_mv")
+#' @method getAlphas capm_mlm
+#' @S3method getAlphas capm_mlm
+getAlphas.capm_mlm <- function(object){
+  if(!inherits(object, "capm_mlm")) stop("object must be of class capm_mlm")
   tmp_sm = getStatistics(object)
   tmp_sm = tmp_sm[seq(1,nrow(tmp_sm),2),1]
   return(tmp_sm)
@@ -97,10 +97,10 @@
   return(coef(object)[2])
 }
 
-#' @method getBetas capm_mv
-#' @S3method getBetas capm_mv
-getBetas.capm_mv <- function(object){
-  if(!inherits(object, "capm_mv")) stop("object must be of class capm_mv")
+#' @method getBetas capm_mlm
+#' @S3method getBetas capm_mlm
+getBetas.capm_mlm <- function(object){
+  if(!inherits(object, "capm_mlm")) stop("object must be of class capm_mlm")
   tmp_sm = getStatistics(object)
   tmp_sm = tmp_sm[seq(2,nrow(tmp_sm),2),1]
   return(tmp_sm)
@@ -126,10 +126,10 @@
   return(result)
 }
 
-#' @method getStatistics capm_mv
-#' @S3method getStatistics capm_mv
-getStatistics.capm_mv <- function(object){
-  if(!inherits(object, "capm_mv")) stop("object must be of class capm_mv")
+#' @method getStatistics capm_mlm
+#' @S3method getStatistics capm_mlm
+getStatistics.capm_mlm <- function(object){
+  if(!inherits(object, "capm_mlm")) stop("object must be of class capm_mlm")
   # Gets t-value, and p-value of model
   # Multi-Beta CAPM
   x <- coef(summary(object))
@@ -144,7 +144,7 @@
   return(tmp_sm)
 }
 
-# you can't have anything after the @export tag
+# CAPM plotting for UV
 #' @export
 plot.capm_uv <- function(object){
   xlab <- colnames(object$x_data)
@@ -161,8 +161,26 @@
   
 }
 
+# CAPM plotting for mlm
 #' @export
-plot.capm_mv <- function(object){
+plot.capm_mlm <- function(object){
+  if(ncol(object$y_data) > 4) warning("Only first 4 assets will be graphically displayed")
+  par(mfrow=c(2,round(ncol(coef(object))/2)))
+  Rmkt = object$x_data
+  nbPlot = min(ncol(coef(object)),4)
+  for (i in 1:nbPlot){
+    tmp = CAPM(object$y_data[,i],Rmkt)
+    plot(tmp)
+  }
+}
+#' CAPM SML
+#' 
+#' Description of CAPM Security Market Line (SML)
+#' 
+#' @param object a capm object created by \code{\link{CAPM}}
+#' @export
+chartSML <- function(object){
+  if(!inherits(object, "capm_mlm")) stop("object must be of class capm_mlm")
   #' Plot expected return versus beta
   mu.hat = colMeans(object$y_data,na.rm=TRUE)
   betas = getBetas(object)
@@ -173,7 +191,7 @@
   legend("topleft",1, "Estimated SML",1)                  
 }
 
-#' CAPM hypthTest
+#' CAPM hypTest
 #' 
 #' Description of CAPM beta/alpha test
 #' 
@@ -191,22 +209,22 @@
   tmp_A = tmp_sm[1,3] < CI
   tstat = (tmp_sm[2,2] - 1 )/tmp_sm[2,3]
   #' Two sided t-test
-  tmp_B = (2*(1 - pt(abs(tstat),df=nrow(object$x_data)-ncol(object$y_data)))) < CI
+  tmp_B = (2*(1 - pt(abs(tstat),df=nrow(object$x_data)-1))) < CI
   result = c(tmp_A, tmp_B)
   result = as.matrix(result)
   rownames(result) = cbind(c(paste("alpha.", colnames(object$y_data))),c(paste("beta. ", colnames(object$y_data))))
   return(result)
 }
 
-#' @method hypTest capm_mv
-#' @S3method hypTest capm_mv
-hypTest.capm_mv <- function(object,CI = 0.05){
-  if(!inherits(object, "capm_mv")) stop("object must be of class capm_mv")
+#' @method hypTest capm_mlm
+#' @S3method hypTest capm_mlm
+hypTest.capm_mlm <- function(object,CI = 0.05){
+  if(!inherits(object, "capm_mlm")) stop("object must be of class capm_mlm")
   tmp_sm = getStatistics(object)
   tmp_A = tmp_sm[seq(1,nrow(tmp_sm),2),4] < CI
   tstat = (tmp_sm[seq(2,nrow(tmp_sm),2),1] - 1 )/tmp_sm[seq(2,nrow(tmp_sm),2),2]
   #' Two sided t-test
-  tmp_B = (2*(1 - pt(abs(tstat),df=nrow(object$x_data)-ncol(object$y_data)))) < CI
+  tmp_B = (2*(1 - pt(abs(tstat),df=nrow(object$x_data)-2))) < CI
   result = c(tmp_A, tmp_B)  
   return(result)
 }
\ No newline at end of file

Modified: pkg/GARPFRM/sandbox/project_plan/project_plan.pdf
===================================================================
(Binary files differ)

Modified: pkg/GARPFRM/sandbox/project_plan/project_plan.tex
===================================================================
--- pkg/GARPFRM/sandbox/project_plan/project_plan.tex	2014-01-24 20:12:49 UTC (rev 52)
+++ pkg/GARPFRM/sandbox/project_plan/project_plan.tex	2014-01-25 20:44:39 UTC (rev 53)
@@ -93,13 +93,14 @@
 A closely related concept is exploratory data analysis. We should have some basic EDA with good support for visualization using trellis or lattice style plots. The lattice package is pretty complex so we will create some wrapper functions to hide the complexity for the user.
 
 \section{Monte Carlo Methods}
-This section is relatively short and gives a basic overview of Monte Carlo methods. We should have a function that generates data using monte carlo methods. The book uses a geometric brownian motion model.
+This section is relatively short and gives a basic overview of Monte Carlo methods. We should have a function that generates data using Monte Carlo methods. The book uses a geometric brownian motion model.
 
 \begin{itemize}
 \item \verb"runMonteCarlo"
 \item \verb"plot" method to show simulated price paths
 \item chart distribution of ending prices
 \end{itemize}
+Best way of implement is 1) create functionality and 2) use Shiny app.
 
 
 \section{Estimating Volatilities and Correlation}
@@ -107,6 +108,8 @@
 
 Additional features
 \begin{itemize}
+\item \verb"estVola"
+\item \verb"estCorr"
 \item Shiny app
 \item demo
 \item vignette

Modified: pkg/GARPFRM/vignettes/CAPM_TF.pdf
===================================================================
--- pkg/GARPFRM/vignettes/CAPM_TF.pdf	2014-01-24 20:12:49 UTC (rev 52)
+++ pkg/GARPFRM/vignettes/CAPM_TF.pdf	2014-01-25 20:44:39 UTC (rev 53)
@@ -5,7 +5,7 @@
 /Filter /FlateDecode
 >>
 stream
-xÚÝXMoã6½çWè(
Wâ‡$"§l] ínâÛnŒÌÄBdÉ èMÚ_ß!‡’eÇ	‚bÛm÷b‘CÎpæÍðqà,º²èç“ì…ïûÅɻ˼Šò’Ð\ðhqÑŒ“¢(£BV¤È£Å2úŸŸ}¼JR–Ñø²±¶éîq¢º%I)c=ø•ßÀ¤ŒòœH!¨3É+‹*J™ UQ ÉŪ_«
Ôi
FÛVß&)-c­;g!åŠG !•¨ñAu	ìØ*óªQúSd9wZÏÂ{wɳ¨"²(04F˜àGAJIÑêÙí`ªíúLÎôÓ\0"J
ƒ‚ÎЍ”qPpŸ'y¬6U-ÎφA[~4M
+xÚÝXMoã6½çWè(
Wâ‡$"§l] ínâÛnŒÌÄBdÉ èMÚ_ß!‡’eÇ	‚bÛm÷b‘CÎpæÍðqà,º²èç“ì…ïûÅɻ˼Šò’Ð\ðhqÑŒ“¢(£BV¤È£Å2úŸŸ}¼JR–Ñø²±¶éîq¢º%I)c=ø•ßÀ¤ŒòœH!¨3É+‹*J™ UQ ÉŪ_«
Ôi
FÛVß&)-c­;g!åŠG !•¨ñAu	ìØ*óªQþSd9wZÏÂ{wɳ¨"²(04F˜àGAJIÑêÙí`ªíúLÎôÓ\0"J
ƒ‚ÎЍ”qPpŸ'y¬6U-ÎφA[~4M
 «̯zYÆKí·ÒøK&2‡4|sÜñ%c|Ä›xƒÜ¬½t;L?maK°¶TVeæýåÊ,™<«œoÛõÆ6}78Œs’¤…àñ/KH¸f›ÚÅá–/øšÐÊ%º7šx\õ8PFãÆ
 D©QfÕƒSÒf8
øDGû{ÆÖá0ÔïwK&˜YiGš3RQ¢©0šA­á4–pv­zÓüÙw§®:ẍ;¼ŠíÃ>£º
2a£ î;à°7azÒCÐçAÿ\…ý®R+Øjzçå#
 170hõ8R¿¦Ò;£ƒwFY}º—˜Šp•ˆNå ÔÎï»Ö>—qíÁv2uëK¨ßZœopjì]ß6=ÊôJum5”ßmm·¦Vº üšˆ2Ù¨®v[ ‚ÆEðëJ™ŸX²Á(ÑsÞ¡Tµí±ÂÛloÛ¦Æ ˜KÃR/Ca»K2`µKòbåâ…£Ïá¼P²éo¦	…ã͸U¤)5žYÀ“Nµ=¸{ßoƒÄö¸ÃŽ&‡f½iÃø®7kùPæÛœm‚˧ZoìË%iW>óÀUA»Œï/ëG»Â¹«
áAeÈœ+y7«=…„ñ.f¬D4CzÓª
˜÷Üþ”o'붯ÇÌÚ£yE5Õ”KXH¢· ‚¦®[í
@@ -13,7 +13,7 @@
 Ã!ÿxß½W@¤ÇA¤#ˆ,€¸+mÆFºƒšóDÔuïµß1¼ãcp²=é
i¤@<’ÍehG)RÇ"‘E<5W¯Ð‡x3}Љ>΍V{ì’w™T<Þv¡!‘¥øAêüÍÙ¯?}Anšû®q
 r­ðÑ
62€éÂa
 yÄÙ{ß±(œ\ëaÛúŽ¥ÿŒŠWY–NqȲO/½Z^ÛÞµßì?ŠÈkõü­".ß~ÿCëÀðþ?ï/
-ýåHЫˆ¢ˆó쌖ç¹aÓýß'ï¤Î"”&-òò‡|ìþ~Õs×[d‡‰ÜoG¼çm£C;ßëQGG»&ౌ”U9oõœö¬ÕõÝ¥IhõJá[== ‹„FÑôcî£}Áõü?…½’¡yFò¬òJ0JgÍél^,Nþzœ[
+ýåHЫˆ¢ˆó쌖ç¹aÓýß'ï¤Î"”&-òò‡|ìþ~Õs×[d‡‰ÜoG¼çm£C;ßëQGG»&ౌ”U9oõœö¬ÕõÝ¥IhõJá[== ‹„FÑôcî£}Áõü?…½’¡yFò¬òJ0JgÍél^,Nþœ¤]
 endstream
 endobj
 69 0 obj <<
@@ -465,17 +465,28 @@
 /Type /ObjStm
 /N 100
 /First 797
-/Length 1793      
+/Length 1796      
 /Filter /FlateDecode
 >>
 stream
-xÚíYÛnÛF}çWìcüîýV
;n4MhZÃµvØJ¤+’Aú÷=#Y±dYYm ˆ²Ôîìì™3³3CY2Á,Ó‚9f,‹,&ñOJ&5“ÆáäWø0%<“)…dʆL)¦¼Æ#`Ò1­1™vžT¨Ðš˜6̈yf%†À¬Á‚dÖ‡Ì(f£e˜pÊCÂ€q´Â©P%µƒê`Ñ0¬Ê-ðzo2¤-P	l²XFÀWd%ðd,kéfµ ÔŠ9aaž0Fùf(‡/ÞÂNœêñ=@ì¨y˜¢"zì!yZxŒŠiÀaT(%X0àAŠ@´ „Xpˆ*YÄ>/‹#Ø`2’IX°R+Aò4âL}á4…ÿˆ6­¡ë‡GðgÈiLYOhÀ$ÐF:4x">…cÈéØá
-	|V8Ž8°’ˆ†¹V:< ¢0<hr -Yf-’¸&/ù.ÒöHÞ•ä7fCЙ„NPd)ƒ!a«“ ,;N£ð±3ŠøÁHÈ#s8êà‰ørÎS@Ô
½X
-Ð)Ž¼/Á•´‘楡™È<<¨5`KDŸ×8ñ“ÁˆUx™–\-eöä	ã'ŒÿØœ6Œ±Gm*»ª©syÀž>ÍW]WÕ—ìðÙ›WëÂýûÏò‹'iŒ©4boS×O떝V“ÄNÒ´Jí
-j®áEÛU“¢Kìŧ2µíBÑ–Íz0{ÕŒÒø`£×睦v˜jaãá4dâìã¾ž-oÙzÛ¸“ê²®.ª²¨ËÄŠzÄ{žº·ý¸k·(Ôkl]­OJߌ›n3
×*›ºí'W4õø5üT/lû"½#ïÜs†¬'Ø[Æ!wNž<ÉøéßW‰ñ7ÅeÊ8Žïpf‹kF‚‡ýM?…ï)kÍf^¥QU<o>±3AÉ<ÚÉ
-9Gæ!žgÐ3…Ü™¹ô³ºn îŒ-lì|póÁχ0âl°b>Èù æÃøy¶z¦=ã'ýûnöýçªþ3ãÏ›é(Mgðä9ÿ‰¿ä‡g¤Lœ“=eÇ΂Í)aêhrƒì(½Ë%,6ÂæHh{ƾ|ïòeNHû›H…Må%MŸk~Íï‹9U1­áN0äbn¤ÛEí
Š9Ê€’1wTC­„³ôv(úþ ,âDªÜS!‚£¨h¥s7‹öÍq²BP{
Œh“G"áê¬ÝƈÚGœàÎpÿј fQñ¶cÙ/6ä‘ú’ ~PÞ‚ÖorÏzÚ¾ÏHA›—KAQðY1FûÅ@Ñ{ D¢  »”D˜Y/šG'·¢We©\¼ûíw6³-t*ô0u?ŸousQ‡Ëˆfu€¨AêSrV2* |ŒÆpEô%nÆÂ1z<®ë!µñú=›×ÏÔÊÅ<ZöEý¤×³ØëÑ+Ξq3mÊ“o ¦3~š>u·ëÖ­bëâíbëü7Û.\æ·.`˜_Ø	üZ<ãuCß—Þݶӛìôvp|®ˆÎÃí<"IEyÎéÍb{KŒ-GÌÎì¹Æ^܉½ ¾Ë(	k­gÐßnçìý ÙíˆúòGG?(w2¸Ž²ñ J›ÑƵӪcå-ûqZ\}¨Ê–½î»«m<6êË4¥UTXÐwp}XCs«&…K	&eÆ)&´¦Û‹6Íhæ?¥ñÇÔá]$ã/ê²Q7å²E4ê;5>~ÞŒGwª=ã/iLjřOÏ—NZÈÏu~ÞÍ­êgu[Ý,U	. —¡á·|RÕ}Ë¢ãõM‡wÑ‹Ž^vù¨
«m[ñËiñ1ñ¢ì»ÄËjZö“‹qúÄ»j<J|R”Ó¦æï§	2ØR”%¼ËGŽh«–稑£tÁ§8›—ˆŒñ¸ø<ù¡¯/‹i?}Ǜ˦Nò² }íUQ¦åÛÌà²":OZ!øðR3 at TÔ8p¾ánݝ+6åº[ï^¿ÿƒê>m9‘̇]®]\»vQï”^âpbã:[Mœ‹ÿmƍku9~U]¦Nð'a8'aXCµK}'R¬Å	ý>÷í¬|!Ak!6&èùÚw’ é7Ë}dè%½K)Zʇ–£éä¯mU–’ÂòXM
-«)”~ÂV;]¹ÖáÒ/Ô;¥úÑ{—6m™‡¥–mçä(•X·5<ôD Ü~ÁÞåD üCK2. «²7íš´q¬
-2wÂì«_Ó¸.»Ub½~
UØ1Ù¨ø]¾J½Þuèßu˜=uæήÃ<¸®Cÿ+]ý¹xH×qf•eÿγ  tÙk
+xÚíY]oÛØ}篘Çø!¼ß_E°@bÇ»
š&ˆ
+ìn
+?0íeW&]‘\¤ÿ¾g$+–,+âFV4¢\êÞ¹sÏœ™;3”Ird$y²ŽEI
+ÿ”"eHY© ñ!-©HZã£H»˜iM:<B
&=ƒ™DÆVi¡Â²6’±d#Ä9…!’³XPäB̬&—aÂë i`ˆs0X` 2bÄѧB•2ª€%KX=”;à
+ÁfH ; ’Øä<°FŒ€¯ÙJàcÈX6ÊfK CÚJMF8˜$ŒÑ!ƒÚãKp°§|;:A¦è¤
ûSŒLž‘
£&8@…Ö’¢Jf b¬É ā‹ÈT©D	û‚ô”F°Ádb“°ž`¥W’åyÄ!˜²*…,Áiÿ1mÆ@Ö
+OàϲÓ$˜rÑ€I MôJhL&|
+Ç°Ó±'Á
+øœô8qà
+sòx D`x0ì@^räPŠ¹f/1ù>ñöÄÞUì7r1šLÁ/9²´ÅŒP°Õ+ Vˆ¯™QøØ[Íü`dä‰<‡ºˆø@!¾¼
+QB/–"t*‚gï+p$ïB¤ey&Q€ç5p£
l…èÇ žà`6±
+/ó’…«•Ê^¼ qFâÇö¼%qBϺªìë¶ÉÕýðCöì´îûº¹¦ã—ïßm
+?Ë/wœUSLUúPõìéè¼¾©è¬šÕU·Cƒ^hxÝõõMÑWôúSYuÝRÑŽÍf0½m'Õôh«wçWÝ8õÒÆãYU°‰óCN‡f¾¼cëCãÎê릾ªË¢)+*š	1zUõî†ißíPh6غ]'ž•¾Ÿ¶ývîT·M7ÜÜòÔówðS³´í‹ÌFŒ<tϲž¤$ wÉ^¼ÈÄù¿n+ï‹ë*8¾Ç™®fö·Ã¾ç¬5Ÿy[MêâUû‰.$'óär$+ä•Çt™AÏ
+pgÒ/›¦…ºN´|²u‹Á/†°âbHóÁÉÅ ƒ^à—Ùè¹öLœ
+ûù÷¿ÖÍï™xÕÎ&ÕlO]ŠŸÄq|ÁÊä%ÛSöt]Î	Ó$›[dG|®`±•.GBƒØKúòe|È—9g bn6{”4Cnl|Ææ5Z,^æ\ÅŒ;ÁO¹U~7} (Væ(Z¥Üs
+u
+Î2»¡˜§ƒ²Œ¥óÀ…ŽâBb´Éý<Ú·ÇÉ
Aí0blž˜ „«wn#úq‚;hTÄýGc‚˜EÅۍ弸˜'îK"øAy×Ú°Í=›iû)#m^®$CBFÁWdÅ”ÜÅ€…‚€îR%aç½hž¼ÚEˆY”•rñ˯§¹…hY S£‡i†éôr›¨_ˆz\F4«#D-RŸV£´²Qi åác4†k¢§(qsNÑã¹xW¹}LwÏèÙ¼¼{æ†P-çѲ/ë'¿>ØåÞ€^qþŒ#ÄûY[žUðjêÉ)‰óêSÿ°n=(¶>=,¶>|E±½çÂÇq~»ç†…¥0,èå3^7ÌSÙüC;ƒÝËÎàFÇçšè"<ÐÎ#’ÌQ”çœß,Æ°·ÂØjÄìÍ^T쥽؋ò›Œ’¸ÑzFóõvÎߐÝN¸/vò-ñN†WB¼·k—Ž ´l];¯û)V>Џ³âö·ºìèÝÐßhãÙ°ÉPV3^E…}Gw‡µ<w´n"S¸’ÐyReâoÅ
+¯iäö¢«æ4‹ŸªéUw‘L¼nÊvÂÝ|R«ÐhÕøüU;<ªöB¼9>æJsŸ^®œ´”_èü¼[ü\7/›®¾_>©¯®*¸€]††ß‰›º:J^üsh{¼‹^õü²+&-XíºZ\ÏŠ?*Q”C_‰²ž•ÃÍÕ´ú$úz:©ÄMQÎÚF|œUÁ–¢,á]1©qDWw"GœTWb†³E‰È˜N‹Ï“¿
+Íu1n¦ÅЋöºmªßEY°¾î¶(«ÕÛíè²&ºHF#øðR3BTGÔ8p¾ån=ž+¶å¾[¿¼ûø®û¼ý͍¢÷¹viãÚ%³WzIã‰M›ly4q>ýw3nÚ¨ËéOÕeîpÇsÇ5TûDÐWp¢äFœðïs_ÏÊÿB‚æß,‘¡Wô®¤h¥¾·Í? ÿÙVe%)¬^€õ¤°žBù'l½×åP.ÿB½WÊà½÷iÓVyXiÙöNŽJËM[ã÷ž´?L"¸×»štøށJ£èºì}»¦\%«£Ê½´‡ê×®Ë~•Øl^@÷L6:}“ï„Êlvæ@]‡‘rk²Y¬}+Éƨ및vö»ë:̤ëà?é:.œvôÿÏèÏeöoU.ÙÇ
 endstream
 endobj
 156 0 obj <<
@@ -2386,8 +2397,8 @@
 endobj
 183 0 obj <<
 /Author()/Title()/Subject()/Creator(LaTeX with hyperref package)/Producer(pdfTeX-1.40.14)/Keywords()
-/CreationDate (D:20140122233301-08'00')
-/ModDate (D:20140122233301-08'00')
+/CreationDate (D:20140124191301-08'00')
+/ModDate (D:20140124191301-08'00')
 /Trapped /False
 /PTEX.Fullbanner (This is pdfTeX, Version 3.1415926-2.5-1.40.14 (TeX Live 2013) kpathsea version 6.1.1)
 >> endobj
@@ -2442,18 +2453,17 @@
 /W [1 3 1]
 /Root 182 0 R
 /Info 183 0 R
-/ID [<983044C3BDAC1E7E19B21547BBFEED69> <983044C3BDAC1E7E19B21547BBFEED69>]
-/Length 475       
+/ID [<A2BF1C88074426FE39C96F841408ABB4> <A2BF1C88074426FE39C96F841408ABB4>]
+/Length 477       
 /Filter /FlateDecode
 >>
 stream
-xÚ%Ó»S“QÆá}¿…@.j”‹J¼£T¼"ˆ— "oÌØÙXX;ccAåŽ
-38–Ô´ü
ö¶6–Öj~KóÌ{6'gÏ÷ecfö/1KLöù«‘N6ð3$A§¨õ“R¶x™Ô{à,µ>Ò^h†ËÔN“Z Uj½¤VhƒkÔzHYÈÁ5š'y(À<5.™ìƒý°@íé á ‚vè€Nè‚ÃpŽB7” GfùxÇà8'ó5ç ç<èæôpº9=<N‰Çï•5ÕâžÜiä4òè; eYæolé—µoD:ƒ²Âh,ÏÁ(ÉŠ¿¢6Ãp
*p.ÉÊßcË\‘Uæby&ẬºµqîR’MtÄòܐí^c
-nÂ-¸
-wà®lª¯1*K?bß}˜–Õ6c9O`V¶XŠÚ<€‡ðCM¶Ò[–`Qöv·ùSÙûl¤×ðLöîC,_Á2Ôá9¼€—²OE¶xÃ
-‰9pSz²0ÊÎ(;ì°3¶ÎØ:ÃêͲµ\ln‘íüŒ”‘ê"µJ[#µ)©¬GÊ*Y7î9%¿ßDÊ+UïŒTPjûK$æÔ™&iŠ?	#àƒÀìüð>ÃJï4.>ûÍþ”—T“
+xÚ%Ó»S“QÆá}¿…@HÐ(¨H@åPˆ¹{Á¢A4*PYÐPX[1TnãX8ÎØX[Øú8cigeco猗ü–æ™÷lNΞ/ßÆÌì_b–˜ìÕ[#¯á$A'¨õ“R¶x‰T{à$µ>Ò^¨‡ÔzI
+Qj=¤Fh‚KÔºIYh†ij4Or‡{Ô¸dÒûà>µc¤ýP€pZ¡
+Áa8íp: Ý2ËÅÑ	]œÌלœó< ›ÓÃéæôð8%¿GVW‰Sxr§‘ÓÈ£ï)(É2cK¿¬õC¤30(ˏÅò4ŒÁ¬ð#jçaF gᜬô%¶LÀEYy)–ã0“²Ñ¨Mq—¢lº-–×aV6±{y˜ƒËp®Â5Ù|_mTV¿Å¾[pCVùË›ð dËŨ-ÁmX„;p*²ŽØ²
+˲ÍÝæ+²çÙHëðP¶õ"–kðªðžÀSÙË[<†aƒÄ¸)=30ÊÎ(;ì°3¶ÎØ:Ãêõ²7-±¹Aöû{¤ŒTý©Qú´©IIù]¤¬’¯‘š•ü|)§Tµ=R^©Ï¯#1§Î4yLSüI
^²óâ}†•žúS»øÂ{û¡¥T·
 endstream
 endobj
 startxref
-282272
+282275
 %%EOF