T01: Transformación de valores

AntonioG
Site Admin
Posts: 93
Joined: Sun Feb 18, 2018 2:17 pm
Contact:

T01: Transformación de valores

Post by AntonioG » Thu Oct 03, 2019 7:45 pm

Código base

Code: Select all

plotIm<-function(x){
   nr<-dim(x)[1]
   nc<-dim(x)[2]
   par(mai=c(0,0,0,0))
   plot(c(1,nc),c(1,nr), type='n', axes = FALSE, xlab = "", ylab = "")
   rasterImage(x, 1, 1, nc, nr,interpolate=FALSE)
   }

library(jpeg)

ruta<-file.choose()
img <- readJPEG(ruta)
R <- img[,,1]
plotIm(R)

https://en.wikipedia.org/wiki/Probabili ... _transform
Attachments
ImagPrueba.rar
(201.99 KiB) Downloaded 12 times

Who is online

Users browsing this forum: No registered users and 0 guests