Skip to main content
Robert's user avatar
Robert's user avatar
Robert's user avatar
Robert
  • Membro há 9 anos, 9 meses
  • Visto mais de uma semana atrás
  • Brazil
Estatística
940
reputação
41mil
reached
38
respostas
0
perguntas
Carregando…
Sobre

Hi!

This is how I created my abatar!

library(grid)
library(jpeg)
mfig <- readJPEG("mfig.jpg")

#plot and rasterImage
 x <- y <- seq(10,20,by=.5)

 step <- diff(x)[1]
 xrange <- range(x) + c(-step/2, step/2)
 yrange <- range(y) + c(-step/2, step/2)
 plot(x, y, ann=FALSE, xlim=xrange, ylim=yrange, xaxs="i", yaxs="i")

 rasterImage(mfig,xrange[1], yrange[1], xrange[2], yrange[2], interpolate=FALSE)

# add hist with 30% transparency
mh=list()
 mh$breaks=seq(x[2], x[length(x)-1],by=step)
 mh$mids=sapply(2:length(mh$breaks),function(z)mean(mh$breaks[c(z-1,z)]))
 mh$counts=-52.5+12.3*mh$mids-0.804*mh$mids^2+0.0186*mh$mids^3+rnorm(length(mh$mids),0,0.05);mh$counts[c(8,11)]<-mh$counts[c(8,11)]*4/5
 mh$equidist= TRUE
 class(mh)="histogram"
plot(mh,add=TRUE,col=rainbow(length(mh$counts),alpha=0.3))
Este usuário ainda não tem nenhuma medalha de ouro.
6
medalhas de prata
14
medalhas de bronze
Principais tags
Ver todas as tags
51
Pontuação
33
Publicações
87
Publicações %
6
Pontuação
3
Publicações
8
Publicações %
5
Pontuação
4
Publicações
11
Publicações %
4
Pontuação
3
Publicações
8
Publicações %
4
Pontuação
1
Publicações
3
Publicações %
2
Pontuação
2
Publicações
5
Publicações %
Melhores publicações
Ver todas perguntas e respostas