From fe3748217cc9ab7a099459fbb7ab8e6b83ed1625 Mon Sep 17 00:00:00 2001
From: NamSor <elian.carsenat@namsor.com>
Date: Wed, 29 Jan 2020 18:10:00 +0100
Subject: [PATCH] better example

better example
---
 README.md | 66 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 66 insertions(+)

diff --git a/README.md b/README.md
index e1e78b7..a8ec222 100644
--- a/README.md
+++ b/README.md
@@ -27,6 +27,72 @@ Then execute
 library(devtools)
 install(".")
 ```
+This is an example for processing a CSV file : 
+```R
+library(namsor)
+setwd("D:/Sync/Dropbox/NamSor_CarmenAguilarGarcia/")
+names<-read.csv("combine.csv",header = F)
+
+str(names)
+names$V1<-as.character(names$V1)
+names$V2<-as.character(names$V2)
+names$V3<-as.character(names$V3)
+
+
+
+
+gendercolcol<-vector(length = 10^6)
+b<-1
+c<-1000
+
+for (i in 1:1000) {
+
+  namesnames<-names[b:c,]
+ 
+  r_gender<-c()
+   
+  for (t in 1:1000){
+  for (o in  namesnames$V2[t]) {
+    for (a in namesnames$V3[t]) {
+      y <- PersonalNameGeoIn$new(as.character(t+1),o,a)
+    }
+    r_gender <- c(r_gender,y) 
+  }
+  
+}
+
+var_gender <- BatchPersonalNameGeoIn$new(personalNames = r_gender)
+
+
+api.instance <- PersonalApi$new()
+api.instance$apiClient$apiKeys['X-API-KEY'] <- '<your API key>';
+result_gender <- api.instance$GenderFullGeoBatch(batch.personal.name.geo.in=var_gender)
+
+gendercol<-vector(length = 1000)
+
+for (n in 1:1000) {
+  #print(result_gender$personalNames[[n]]$likelyGender)
+  genderdata <- result_gender$personalNames[[n]]$likelyGender
+  gendercol[n] <- genderdata
+  
+}
+
+
+gendercolcol[b:c]<-gendercol
+
+b<-b+1000
+c<-c+1000
+
+print(i)
+
+}
+
+names<-cbind(names,gendercolcol)
+
+write.csv(names,"names.csv")
+
+```
+
 
 ## Author