Solutions des TPs
641
5.9- Allez r´ ecup´ erer les cooordonn´ ees de la ville d’Al` es sur http://www.gpsvisualizer.
com/geocode.
ales <- c(4.08268,44.121288)
points(ales[1],ales[2],pch=16,col="red")
text(ales[1],ales[2],"Al` es",pos=1)
F- Repr´ esentation du g´ eo¨ ıde en France
5.1- Lecture des donn´ ees :
readLines("http://www.biostatisticien.eu/
springeR/formatgeoide.txt")
data <- scan("http://www.biostatisticien.eu/
springeR/raf98.gra", skip = 3)
5.2- Z <- matrix(data,nrow=421,ncol=381,byrow=FALSE)
Z <- as.matrix(rev(as.data.frame(Z)))
layout(mat=matrix(1:2,ncol=2),widths=c(5,1))
par(mar=c(4,4,3,0),mai=c(1, 1, 1, 0),las=1,tck=-0.01)
x<-seq(from=-5.5,to=8.5,length=421)
y<-seq(from=42,to=51.5,length=381)
image(x,y,Z,col=rainbow(17),xlab="Longitude",ylab="Latitude",
axes=FALSE)
par(ps=18)
title("Le mod` ele de quasig´ eoide QGF98",family="HersheyScript")
par(ps=11)
axis(1,at=(-6):8,labels=paste((-6):8,"o",sep=""))
axis(2,at=42:51,labels=paste(42:51,"o",sep=""))
contour(x,y,Z,add=TRUE)
par(mai=c(0, 0, 0, 0),bty="n")
plot(0:1,0:1,axes=FALSE,xlab="",ylab="",type="n")
legend("center",legend=42:55,fill=rainbow(17),bty="n",
title="M` etres")
Solutions des TPs du chapitre 6
Programmation de fonctions et programmation R orient´ ee objet
A- Gestion d’un compte bancaire
6.1- .repertoires.comptes <- "./Comptes"
chemin.compte <- function(nom) {