[Returnanalytics-commits] r2120 - pkg/FactorAnalytics/R

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

Author: chenyian
Date: 2012-07-07 07:34:55 +0200 (Sat, 07 Jul 2012)
New Revision: 2120

Removed:
   pkg/FactorAnalytics/R/factorModelAttribution.r
Log:


Deleted: pkg/FactorAnalytics/R/factorModelAttribution.r
===================================================================
--- pkg/FactorAnalytics/R/factorModelAttribution.r	2012-07-07 05:34:23 UTC (rev 2119)
+++ pkg/FactorAnalytics/R/factorModelAttribution.r	2012-07-07 05:34:55 UTC (rev 2120)
@@ -1,34 +0,0 @@
-# Yi-An Chen
-# July 5, 2012
-
-factorModelAttribution <- 
-  function(fit) {
-    class = class(fit,benchmark)
-  # input
- # class:   Class has to be either MacroFactorModel, FundmentalFactorModel
- #          or StatFactorModel 
- # benchmark: benchmark returns, default is           
-    # only class of 3 fit model can be used
-  if (class !="MacroFactorModel" && class !="FundmentalFactorModel"
-      && class != "StatFactorModel")
-    {
-    stop("Class has to be either MacroFactorModel, FundmentalFactorModel
-         or StatFactorModel")
-  }
-    
-    
-  # beginning of switching  
-    switch(class,
-    MacroFactorModel={
-     
-      
-    },       
-    FundmentalFactorModel={
-      print("test 2")
-    },
-    StatFactorModel={
-      
-    }       
-           
-           )
-  }
\ No newline at end of file