Error in raw2temp

[gtatters]

Error in raw2temp

[gtatters]

have you tried running the entire example in readFLIRJPG? What is pasted above is not enough for me to tell that you succeeded in creating all the variables required for raw2temp to work. You will need to populate some of these inputs yourself, which is facilitated with the example:

`

library(Thermimage)
imagefile<-paste0(system.file("extdata/IR_2412.jpg", package="Thermimage"))

cams<-flirsettings(imagefile, exiftool="installed", camvals="")
cams

Emissivity<-cams$Info$Emissivity # Image Saved Emissivity - should be ~0.95 or 0.96
ObjectEmissivity<-0.96 # Object Emissivity - should be ~0.95 or 0.96
dateOriginal<-cams$Dates$DateTimeOriginal
dateModif<- cams$Dates$FileModificationDateTime
PlanckR1<- cams$Info$PlanckR1 # Planck R1 constant for camera
PlanckB<- cams$Info$PlanckB # Planck B constant for camera
PlanckF<- cams$Info$PlanckF # Planck F constant for camera
PlanckO<- cams$Info$PlanckO # Planck O constant for camera
PlanckR2<- cams$Info$PlanckR2 # Planck R2 constant for camera
OD<- cams$Info$ObjectDistance # object distance in metres
FD<- cams$Info$FocusDistance # focus distance in metres
ReflT<- cams$Info$ReflectedApparentTemperature # Reflected apparent temperature
AtmosT<- cams$Info$AtmosphericTemperature # Atmospheric temperature
IRWinT<- cams$Info$IRWindowTemperature # IR Window Temperature
IRWinTran<- cams$Info$IRWindowTransmission # IR Window transparency
RH<- cams$Info$RelativeHumidity # Relative Humidity
h<- cams$Info$RawThermalImageHeight # sensor height (i.e. image height)
w<- cams$Info$RawThermalImageWidth # sensor width (i.e. image width)

img<-readflirJPG(imagefile)

imgr<-rotate270.matrix(img)

library(fields)
image.plot(imgr, useRaster=TRUE, col=ironbowpal)

temperature<-raw2temp(imgr,ObjectEmissivity,OD,ReflT,AtmosT,IRWinT,IRWinTran,RH,
PlanckR1,PlanckB,PlanckF,PlanckO,PlanckR2)
colnames(temperature)<-NULL
rownames(temperature)<-NULL

t<-temperature
image.plot(t, asp=h/w, bty="n", useRaster=TRUE, xaxt="n", yaxt="n", col=ironbowpal)

library(ggplot2)
library(reshape2)
d<-melt(temperature)

p<-ggplot(d, aes(Var1, Var2))+
geom_raster(aes(fill=value))+coord_fixed()+
scale_fill_gradientn(colours=ironbowpal)+
theme_void()+
theme(legend.key.height=unit(2, "cm"), legend.key.width=unit(0.5, "cm"))
p

[jsgutierr]

My bad... I had skipped the chuck where all relevant variables are specified - I somehow thought they were specified by default in 'raw2temp'. It now works perfectly, many thanks!

…

On Mon, Sep 21, 2020 at 5:18 PM Glenn Tattersall ***@***.***> wrote: have you tried running the entire example in readFLIRJPG? What is pasted above is not enough for me to tell that you succeeded in creating all the variables required for raw2temp to work. You will need to populate some of these inputs yourself, which is facilitated with the example: ` library(Thermimage) imagefile<-paste0(system.file("extdata/IR_2412.jpg", package="Thermimage")) cams<-flirsettings(imagefile, exiftool="installed", camvals="") cams Emissivity<-cams$Info$Emissivity # Image Saved Emissivity - should be ~0.95 or 0.96 ObjectEmissivity<-0.96 # Object Emissivity - should be ~0.95 or 0.96 dateOriginal<-cams$Dates$DateTimeOriginal dateModif<- cams$Dates$FileModificationDateTime PlanckR1<- cams$Info$PlanckR1 # Planck R1 constant for camera PlanckB<- cams$Info$PlanckB # Planck B constant for camera PlanckF<- cams$Info$PlanckF # Planck F constant for camera PlanckO<- cams$Info$PlanckO # Planck O constant for camera PlanckR2<- cams$Info$PlanckR2 # Planck R2 constant for camera OD<- cams$Info$ObjectDistance # object distance in metres FD<- cams$Info$FocusDistance # focus distance in metres ReflT<- cams$Info$ReflectedApparentTemperature # Reflected apparent temperature AtmosT<- cams$Info$AtmosphericTemperature # Atmospheric temperature IRWinT<- cams$Info$IRWindowTemperature # IR Window Temperature IRWinTran<- cams$Info$IRWindowTransmission # IR Window transparency RH<- cams$Info$RelativeHumidity # Relative Humidity h<- cams$Info$RawThermalImageHeight # sensor height (i.e. image height) w<- cams$Info$RawThermalImageWidth # sensor width (i.e. image width) img<-readflirJPG(imagefile) imgr<-rotate270.matrix(img) library(fields) image.plot(imgr, useRaster=TRUE, col=ironbowpal) temperature<-raw2temp(imgr,ObjectEmissivity,OD,ReflT,AtmosT,IRWinT,IRWinTran,RH, PlanckR1,PlanckB,PlanckF,PlanckO,PlanckR2) colnames(temperature)<-NULL rownames(temperature)<-NULL t<-temperature image.plot(t, asp=h/w, bty="n", useRaster=TRUE, xaxt="n", yaxt="n", col=ironbowpal) library(ggplot2) library(reshape2) d<-melt(temperature) p<-ggplot(d, aes(Var1, Var2))+ geom_raster(aes(fill=value))+coord_fixed()+ scale_fill_gradientn(colours=ironbowpal)+ theme_void()+ theme(legend.key.height=unit(2, "cm"), legend.key.width=unit(0.5, "cm")) p — You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub <#15 (comment)>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/ARCVPNUVBF4DXDXEZK6NJBDSG5VGHANCNFSM4RUUX5XA> .

[gtatters]

no worries. It's good to ask.
My function coding isn't perfect.
Usually they are all working by default since I do populate with my camera's default values (danger for others since they will be completely wrong by default!).

Maybe there was a syntax error with IRT but I noticed my example has IRWinTran spelled out. That could be me being inconsistent between examples. Thanks for bringing it up. I might need to fix the help files!