X-Git-Url: https://git.auder.net/?a=blobdiff_plain;f=InputParameters%2FbasicInitParameters.R;fp=InputParameters%2FbasicInitParameters.R;h=0000000000000000000000000000000000000000;hb=493a35bfea6d1210c94ced8fbfe3e572f0389ea5;hp=b70edab719936405469463d78996f82c41436ec4;hpb=35b42a4bd37b162a3d579693b2b5fa4913a52ed5;p=valse.git

diff --git a/InputParameters/basicInitParameters.R b/InputParameters/basicInitParameters.R
deleted file mode 100644
index b70edab..0000000
--- a/InputParameters/basicInitParameters.R
+++ /dev/null
@@ -1,29 +0,0 @@
-basic_Init_Parameters = function(n,p,m,k){
-  phiInit = array(0, dim=c(p,m,k))
-  
-  piInit = (1.0/k)*rep.int(1,k)
-  
-  rhoInit = array(0, dim=c(m,m,k))
-  
-  for(i in 1:k){
-    rhoInit[,,i] = diag(m)
-  }
-  
-  gamInit = 0.1*array(1, dim=c(n,k))
-  
-  R = sample(1:k,n, replace= TRUE)
-  
-  for(i in 1:n){
-    gamInit[i,R[i]] = 0.9
-  }
-  gamInit = gamInit/sum(gamInit[1,])
-  
-  
-  return(list(phiInit, rhoInit, piInit, gamInit))
-}
-
-n= 10
-p = 10
-m = 5
-k = 5
-list_param = basic_Init_Parameters(n,p,m,k)