Update BootStarpMedian.R

BootStarpMedian.R

-
-
 # BootStarpMedian function 
 BootStarpMedian <- function(x) {
   x <- as.vector(x)
@@ -11,9 +9,7 @@ BootStarpMedian <- function(x) {
 #----------------------
 # app std
 #----------------------
-
 # loading data 
-
 app_query_sql <- "select appid,
                          category_id,
                          isgame ,
@@ -23,7 +19,6 @@ app_query_sql <- "select appid,
                    where ds between '2017-02-20' and '2017-02-26'
                    group by appid,category_id,isgame,ds
 "
-
 # app_query_result
 app_query_result <- sql(app_query_sql)
 # 
@@ -37,15 +32,12 @@ app <- gapply(x=app_query_result,
               data.frame(key,BootStarpMedian(x$ins_rate),stringsAsFactors = FALSE )
               },
          schema=app_schema)
-
 # collect(yy)
 app_output <- join(x=app_query_result,
                    y=app,
                    joinExpr=app_query_result$category_id==app$category_id_app & app_query_result$isgame==app$isgame_app,
                    joinType='inner'
                    )
-
-
 app_output <- select(app_output,'appid','category_id','isgame','ins_rate_std','ds')
 
 #----------------------
@@ -60,7 +52,6 @@ cid_query_sql <- "select appid,
                      ins_rate 
                    from tkdm.tkdm_data_active_detial_day
                    where ds between '2017-02-20' and '2017-02-26'
-
 "
 # result of query sql
 aa <- sql(cid_query_sql)
@@ -76,13 +67,9 @@ cid <- gapply(x=aa,
               data.frame(key,BootStarpMedian(x$ins_rate),stringsAsFactors = FALSE )
               },
          schema=cid_schema)
-
 # collect(cid)
 cid_output <- join(x=aa,y=cid,
                    joinExpr=aa$category_id==cid$category_id_cid & aa$isgame==cid$isgame_cid & aa$cid==cid$cid_cid,
                    joinType='inner'
                    )
-
-# cid_output <- cid_output[,c('appid','cid','category_id','isgame','ins_rate_std')]
-
 cid_output <- select(cid_output,'appid','cid','category_id','isgame','ins_rate_std','ds')
\ No newline at end of file