require(gdata)

intervalo_decisao = read.table("intervalo_decisao.txt")

# completa coluna extra com NAs e restaura dataframe

intervalo_decisao = data.frame(V=rep(NA,nrow(intervalo_decisao),
					intervalo_decisao)

colnames(intervalo_decisao) = c("V1","V2","V3","V4","V5")
intervalo_decisao

intervalo_sentenca = read.table("intervalo_sentenca.txt")



juntar_intervalos <- combine(intervalo_sentenca,intervalo_decisao) 

juntar_intervalos = data.frame(juntar_intervalos)

# nao funcionam, e nao entendi o que voce quis fazer
juntar_intervalos2 <- combine(list(intervalo_decisao, intervalo_sentenca))

juntar_intervalos2 = data.frame(juntar_intervalos2)