| 50 | # below changes from version 1, adding dist_source_max_aval from first calculations |
| 51 | load(paste(datawd,"/dataEDAcommun/chainage/parcours_source/noeud&troncon_final.RData",sep="")) |
| 52 | ex(colnames(noeuds_final)) |
| 53 | noeuds_1<-read.delim(paste(datawd,"/dataEDAcommun/amorce_mer/bassin final/source/troncon_parcouru_source.txt",sep=""),sep="\t") |
| 54 | write.table(noeuds_final,file=paste(datawd,"/dataEDAcommun/chainage/parcours_source/noeud&troncon_final.csv",sep=""),sep=";",row.names=FALSE,col.names=TRUE) |
| 55 | str(noeuds_final) |
| 56 | str(noeuds_1) |
| 57 | noeuds_final.1<-merge(noeuds_1[,c("Id_BDCARTHAGE","dist_source_max_aval")],noeuds_final,by="Id_BDCARTHAGE") |
| 58 | plot(noeuds_final.1$dist_source_max_aval,noeuds_final.1$distance_source) # inquiétant non ? |
| 59 | str(noeuds_final.1) |
| 60 | write.table(noeuds_final.1,file=paste(datawd,"/dataEDAcommun/chainage/parcours_source/noeud&troncon_final_1.csv",sep=""),sep=";",row.names=FALSE,col.names=TRUE) |