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

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

Author: tfillebeen
Date: 2014-01-20 19:21:30 +0100 (Mon, 20 Jan 2014)
New Revision: 45

Modified:
   pkg/GARPFRM/R/capm.R
Log:
plot and working on getStatistics

Modified: pkg/GARPFRM/R/capm.R
===================================================================
--- pkg/GARPFRM/R/capm.R	2014-01-20 18:17:06 UTC (rev 44)
+++ pkg/GARPFRM/R/capm.R	2014-01-20 18:21:30 UTC (rev 45)
@@ -128,8 +128,8 @@
   tmp_sm <- do.call(rbind, x)
   holder = holder<-matrix(0,nrow=1,ncol=ncol(ncol(coef(object)))*2)
   n = 1
-  for (i in 1:ncol(ncol(coef(tmp)))){
-    tmpHolder = cbind(c(paste("alpha.",colnames(ncol(coef(tmp)))[i])) ,c(paste("beta.",colnames(managers[,3:4])[i])))
+  for (i in 1:ncol(coef(object))){
+    tmpHolder = cbind(c(paste("alpha.",colnames(ncol(coef(object)))[i])) ,c(paste("beta.",colnames(managers[,3:4])[i])))
     holder[,n:(i*2)] = tmpHolder
     n = n*2 +1
   }