remove one plot with missing ecocode 2

merge.data.FRANCE.R

@@ -193,7 +193,7 @@ data.BA.sp <- merge(data.frame(tree.id=dataIFN.FRANCE[["tree.id"]],ecocode=dataI
 if( sum(! data.BA.sp[["tree.id"]] == data.tree[["tree.id"]]) >0) stop("competition index not in the same order than data.tree")
 
 
-data.BA.sp[is.na(data.BA.sp[,2]),c(1,2)]
+
 ## save everything as a list
 list.FRANCE <- list(data.tree=data.tree,data.BA.SP=data.BA.sp,data.traits=data.traits)
 save(list.FRANCE,file="./data/process/list.FRANCE.Rdata")