638
Le logiciel R
Solutions des TPs du chapitre 5
Cr´ eation de graphiques divers et vari´ es
A- Nombres complexes
5.1- z <- 1+2i
plot(1,3,xlab="Re(z)",ylab="Im(z)",xlim=c(0,2.5),ylim=c(0,2.5),
main="Nombres complexes")
segments(0,0,Re(z),Im(z))
points(Re(z),Im(z),pch=19)
abline(h=0,v=0)
segments(Re(z),0,Re(z),Im(z),lty=3)
segments(0,Im(z),Re(z),Im(z),lty=3)
text(Re(z),Im(z),"z",pos=4)
text(0.4,1.1,"Mod(z)",srt=Arg(z) * 180/pi)
r<-0.5
x<-seq(from=Re(r * exp(1i * Arg(z))),to=r,length=100)
y<-sqrt(0.5^2-x^2)
points(x,y,type="l")
text(0.55,0.35,"Arg(z)",srt=-45,cex=0.8)
B- Dessiner le drapeau du Canada
5.1- require("caTools")
5.2- Enregistrez le fichier http://www.biostatisticien.eu/springeR/canada.
gif dans votre repertoire de travail. Puis tapez l’instruction :
X <- read.gif("canada.gif")
5.3- image(as.matrix(rev(as.data.frame(t(X$image)))),col=X$col)
5.4- coord <- locator(25) # Recup´ erer les coordonn´ ees des points
# constitutifs du contour de la feuille
# d’´ erable.
rec1 <- locator(2)
# R´ ecup´ erer les coordonn´ ees des sommets
# bas-gauche
# et haut-droite du rectangle de gauche.
rec2 <- locator(2)
# R´ ecup´ erer les coordonn´ ees des sommets
# bas-gauche
# et haut-droite du rectangle de droite.
windows() # ou X11() sous Linux.