# NOT RUN {
# decibels to candela
cd <- dbTocd(0) # 10000/pi
cd <- dbTocd(10) # 1000/pi
cd <- dbTocd(20) # 100/pi
cd <- dbTocd(30) # 10/pi
cd <- dbTocd(40) # 1/pi
# candela to decibels
dB <- cdTodb(10000/pi) # 0 dB
dB <- cdTodb(1000/pi) # 10 dB
dB <- cdTodb(100/pi) # 20 dB
dB <- cdTodb(10/pi) # 30 dB
dB <- cdTodb(1/pi) # 40 dB
dB <- cdTodb(0.1/pi) # 50 dB
# }
Run the code above in your browser using DataLab