[Stacomir-commits] r279 - pkg/stacomir/R

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

Author: timothee_besse
Date: 2017-02-03 11:16:59 +0100 (Fri, 03 Feb 2017)
New Revision: 279

Modified:
   pkg/stacomir/R/BilanMigrationInterAnnuelle.r
Log:
Methode calcule pour BMI

Modified: pkg/stacomir/R/BilanMigrationInterAnnuelle.r
===================================================================
--- pkg/stacomir/R/BilanMigrationInterAnnuelle.r	2017-02-03 09:27:22 UTC (rev 278)
+++ pkg/stacomir/R/BilanMigrationInterAnnuelle.r	2017-02-03 10:16:59 UTC (rev 279)
@@ -226,8 +226,16 @@
 			for (i in 1:length(dic)){
 				#i=1
 				datadic<-bilanMigrationInterAnnuelle at data[bilanMigrationInterAnnuelle at data$bjo_dis_identifiant==dic[i],]
-				
-			}
+				datadic<-funtraitementdate(datadic, nom_coldt = "bjo_jour", jour_an = TRUE, quinzaine = TRUE)
+				wtd.mean(as.numeric(datadic$jour_365),
+				         weights=datadic$bjo_valeur)
+				fnquant<-function(data){
+				  wtd.quantile(as.numeric(data$jour_365),
+				             weights=data$bjo_valeur,
+				             probs=c(0, .05, .5, .95, 1))
+				}
+
+				}
 			bilanMigrationInterAnnuelle at calcdata<-""
 			return(bilanMigrationInterAnnuelle)
 		})