R/tfun.R

Defines functions tfun

tfun<-function(x){

if(a>0) {alb <- alb_melt_snow
}else{if (b>0) { alb <- alb_melt_ice 
} else alb <- albedo_mod(Trnsmiss, alt, alb_table) } 

return(alb)
}
rmpilla/MyLakeR documentation built on Jan. 29, 2020, 12:06 a.m.