Merge pull request #1 from Microsoft/ramnov-test

modifying memberId and loanId to be integers

HDI/RSparkCluster/step4_prepare_new_data.R

@@ -49,6 +49,8 @@ prepare_newdata <- function(HDFSDataDir,
       return(x)
     }
     dataList <- lapply(dataList, replaceFun)
+    dataList$memberId <- as.integer(dataList$memberId)
+    dataList$loanId <- as.integer(dataList$loanId)
     return(dataList)
   }
   
@@ -66,4 +68,4 @@ prepare_newdata <- function(HDFSDataDir,
   }
   
   return(newData)
-}
+}