[script][xs]: Changed generation script to replace NA appropriately

datasets · May 22, 2017 · 4fd4090 · 4fd4090
1 parent 42ba08f
commit 4fd4090
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/acquire_data.r b/acquire_data.r
@@ -211,7 +211,7 @@ for (i in 1:length(listFiles)) {
 	tt<-which(countries.i==7)
 	if (length(tt)>0) print(i)
 		match.countries<-match(countries.i,CPI[,1])
-	CPI<-cbind(CPI, rep(NA, nrow(CPI)))
+	CPI<-cbind(CPI, rep(-, nrow(CPI)))
 	CPI[match.countries,i+1]<-round(listFiles[[i]][,2], digits=2)
 }