[Uwgarp-commits] r47 - pkg/GARPFRM/R

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

Author: tfillebeen
Date: 2014-01-20 19:43:08 +0100 (Mon, 20 Jan 2014)
New Revision: 47

Modified:
   pkg/GARPFRM/R/capm.R
Log:
CAPM output still an issue

Modified: pkg/GARPFRM/R/capm.R
===================================================================
--- pkg/GARPFRM/R/capm.R	2014-01-20 18:29:31 UTC (rev 46)
+++ pkg/GARPFRM/R/capm.R	2014-01-20 18:43:08 UTC (rev 47)
@@ -129,7 +129,7 @@
   holder = holder<-matrix(0,nrow=1,ncol=ncol(coef(object))*2)
   n = 1
   for (i in 1:ncol(coef(object))){
-    tmpHolder = cbind(c(paste("alpha.",colnames(coef(mv))[i])) ,c(paste("beta.",colnames(coef(mv))[i])))
+    tmpHolder = cbind(c(paste("alpha.",colnames(coef(object))[i])) ,c(paste("beta.",colnames(coef(object))[i])))
     holder[,n:(i*2)] = tmpHolder
     n = n*2 +1
   }
@@ -137,7 +137,7 @@
   return(tmp_sm)
 }
 
-#' @export
+#' @export for univariate plot
 plot.capm_uv <- function(object){
   xlab <- colnames(object$x_data)
   ylab <- colnames(object$y_data)
@@ -152,3 +152,8 @@
                              paste("beta =", round(beta,dig=2),"(", round(b_tstat,dig=2),")")), cex=.8, bty="n")
   
 }
+
+#' @export for SML line
+plot.capm_mv <- function(object){
+  
+}
\ No newline at end of file