• Script para juntar fustes multiplos

### JUNTA FUSTES MULTIPLOS EM UM MESMO CAMPO

fust2<-unique(peic04$arv[peic04$fuste>1])
length(fust2) ## 2332
table(peic04$fuste==2)
table(fust2 %in% peic04$arv[peic04$fuste==2])
peic04f1<-peic04[peic04$fuste==1,]
dim(peic04f1)
str(peic04f1)
peic04f1$nfust<-1
f2ndapvf<-(is.na(peic04$dbh) & peic04$fuste>1 )
f2ndap<-peic04[f2ndapvf,]
str(f2ndap)
peic04<-peic04[!f2ndapvf,]

for (i in fust2)
{
fdap= peic04[peic04$arv==i, "dbh_04"]
nfust=length(fdap)
peic04f1[peic04f1$arv==i,"dbh_04"]<-paste(fdap, collapse=";")
peic04f1[peic04f1$arv==i,"nfust"]<-nfust
}

peic04f1[peic04f1$nfust>1,"dbh_04"]
str(peic04f1)

* Script para separar fustes multiplos

##################################
# SEPARAR FUSTES MULTIPLOS
#  em linhas diferentes
#################################

peic04<-read.table("/home/ale/Documentos/Ale2010/Ale_Projetos/Restinga/ParcelaPermanente_Restinga/DadosCenso2009/Censo1.csv", sep="\t", as.is=TRUE, header=TRUE)
str(peic04)
names(peic04)[10]<-"dbh"
names(peic04)
f2pos<-grep(";", peic04$dbh)
f2tag<-peic04$tag[f2pos]
peic04$dbh[peic04$tag%in% f2tag]
peic04$fuste<-1
peic04new<-peic04[-f2pos,]
str(peic04new)
peic04new$fuste<-1
	for(i in f2tag)
	{
	dbh=peic04[peic04$tag==i, "dbh"]
	dado.i<-peic04[peic04$tag==i, ]
	dado.i$dbh<-NA
	dbh.split<-unlist(strsplit(dbh,"; "))
		for(j in 1: length(dbh.split))
		{
		dado.i$dbh<-dbh.split[j]
		dado.i$fuste<-j
		peic04new<-rbind(peic04new, dado.i)
		}
	}
str(peic04new)
##############################