Robert
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))
-
Brazil
-
Member for 7 years, 5 months
-
1 profile view
-
Last seen Nov 15 '17 at 16:13
Communities (14)
- Stack Overflow 4.6k 4.6k 11 gold badge2121 silver badges4040 bronze badges
- Stack Overflow em Português 842 842 66 silver badges1414 bronze badges
- Cross Validated 568 568 55 silver badges1717 bronze badges
- TeX - LaTeX 383 383 11 silver badge1010 bronze badges
- Spanish Language 254 254 11 silver badge55 bronze badges
- View network profile
Top network posts
- 21 Plot a data frame as a table
- 16 Modifying a Tukey HSD 95% family-wise CL plot in Rstudio
- 13 How to calculate the p-value of parameters for ARIMA model in R?
- 9 pgfplot/tikz stacked bar chart
- 8 Em R, usando o pacote plotly, posso plotar o mapa do Brasil e seus estados?
- 7 Error: please supply starting values
- 6 Understanding Kolmogorov-Smirnov test in R
- View more network posts →
Keeping a low profile.
This user hasn't posted yet.
Badges (9)
Gold
—
Silver
7
Rarest
Bronze
2
Rarest
-
May 30 '15
-
May 30 '15