A working template with limarka

Binaries are now too old to be working now.

imagens/R/densidadegama.R

@@ -0,0 +1,8 @@
+curve(dgamma(x,1,1/2),0,20,ylab="f(x)")
+curve(dgamma(x,2,1/2),0,20,add=T)
+curve(dgamma(x,9,2),0,20,add=T)
+curve(dgamma(x,3,1/2),0,20,add=T)
+text(2,0.4,"(1;0,5)")
+text(0.9,0.2,"(2;0,5)")
+text(7,0.2,"(9;2)")
+ text(10,0.08,"(3;0,5)")

imagens/R/dois-graficos.R

@@ -0,0 +1,10 @@
+library(grDevices)
+pdf(width =10, height = 6)
+par(mfrow = c(1,2), mai = c(0, 0, 0, 0))
+x = c(10,20,3,4,15,32,11,12,33,5,10,2,33,22,11,22,7)
+y = c(3,1,3,4,5,6,7,8,9,23,15,18,45,32,43,65,19)
+par(fig=c(0.05,0.5,0,1))
+hist(x,ylab=expression(F[i]),xlab="Classes",main="")
+par(fig=c(0.55,1,0,1), new=TRUE)
+plot(x,y)
+dev.off()

imagens/R/historgrama.R

@@ -0,0 +1,2 @@
+x = c(10,20,3,4,15,32,11,12,33,5,10,2,33,22,11,22,7,100)
+hist(x,ylab=expression(F[i]),xlab="Classes",main="")

imagens/R/pizza-grafico.R

@@ -0,0 +1,7 @@
+# Precisa instalar:
+# install.packages("plotrix")
+
+library(plotrix)
+slices <- c(10, 12, 4, 16, 11) 
+lbls <- c("Centro-Oeste", "Sudeste", "Sul", "Norte", "Nordeste")
+pie3D(slices,labels=lbls,explode=0.1)