bci full format run for only one census

R/format.function.R

@@ -268,7 +268,7 @@ if(parallel){
   print("start mclapply")
   list.BA.SP.data <- mclapply(obs.id,FUN=fun.compute.local,obs.id,xy.table,
                               diam,sp,Rlim,mc.cores=4)
-  prin("done")
+  print("done")
   data.BA.SP <-  rbind.fill(list.BA.SP.data)
  }else{
   list.BA.SP.data <- lapply(obs.id,FUN=fun.compute.local,obs.id,xy.table,

merge.data.BCI.R

@@ -127,8 +127,7 @@ Rlim <- 15 # set size of neighborhood for competition index
 
 ## for each census compute competition index
 
-## FOR CENSUS 1
-data.tree1 <-  data.tree[1:1000,]
+## FOR CENSUS 6 only to start
+data.tree1 <-  data.tree[data.tree$census==6,]
 
 fun.data.per.bigplot(data=data.tree1,name.site="BCI",data.TRAITS=data.trait,Rlim=15,xy.name=c("x","y"))
-ls()