This blog has relocated to https://coolbutuseless.github.ioand associated packages are now hosted at https://github.com/coolbutuseless.

29 April 2018

Tweet

mikefc
C=strsplit('851+-. ','')[[1]]
i=jpeg::readJPEG(system.file('img/Rlogo.jpg',package='jpeg'))[c(T,F),,2]
i[]=C[findInterval(i,quantile(i,p=seq(0,1,,length(C))))]
cat(apply(i,1,paste,collapse=''),sep='\n')
                  --        -  --   -    ++++++++++++++++++      --  --     -   -  - -+             
                 -    - +  -- ++++155555555555555555555555555555551+++   -+-    +--  +              
                - +- -…