Update scale factor for larger scale (Not really accurate)

Author: Pham Minh Duc

src/main/resources/scale_factors.xml

@@ -41,4 +41,22 @@
         <start_year>2010</start_year>
         <num_years>3</num_years>
     </scale_factor>
+
+    <scale_factor number="3000" >
+        <num_persons>8881000</num_persons>
+        <start_year>2010</start_year>
+        <num_years>3</num_years>
+    </scale_factor>
+
+    <scale_factor number="10000" >
+        <num_persons>24323000</num_persons>
+        <start_year>2010</start_year>
+        <num_years>3</num_years>
+    </scale_factor>
+
+    <scale_factor number="30000" >
+        <num_persons>60994000</num_persons>
+        <start_year>2010</start_year>
+        <num_years>3</num_years>
+    </scale_factor>
 </scale_factors>

tools/scalefactor/scale_factor_regression.R

@@ -5,7 +5,7 @@ table = read.table(paste(args[1],sep=''),header=TRUE)
 names(table)
 m <- lm(formula=log(Persons) ~ log(Bytes),data=table)
 #here is the list of scale factors to retrieve
-scaleFactors <- data.frame(Bytes=c(1073741824, 3221225472, 10737418240, 32212254720, 107374182400, 322122547200, 1099511628000))
+scaleFactors <- data.frame(Bytes=c(1073741824, 3221225472, 10737418240, 32212254720, 107374182400, 322122547200, 1099511628000, 3298534883328, 10995116277760, 32985348833280, 329853488332800, 1125899906842624))
 predicted <- exp(predict(m,scaleFactors))
 for( i in 1:length(predicted)) {
     print(paste(round(predicted[[i]],digits=-3),scaleFactors$Bytes[[i]],sep=' '))