This sensor from TPF collection
Article | |
---|---|
Collibration | |
Precision | |
Ranges | |
Renew sensors |
- source("utilities_tpf.r");
- sensors.t.ol_l_leeman_scheidegger_1977_a <- function(Ol, L, ...){
- L <- tpf.recalc_minaral("L",L);
- Ol <- tpf.recalc_minaral("OL",Ol);
- X <- Ol$MnO_wtp;
- Y <- L$MnO_wtp;
- T <- 12184 / (log(X / Y) + 7.96) - 273;
- warning(" ONLY MNO IS INVOLVED IN CALCULATIONS");
- return(data.frame(Name=paste0(L$Name,"-", Ol$Name),T_calc=T));
- }
- sensors.t.ol_l_leeman_scheidegger_1977_a.args <- function(){
- ars <- list();
- ars$minerals <- c("Ol", "L");
- ars$ranges <- c();
- return(ars);
- }
- #sensors.t.ol_l_leeman_scheidegger_1977_a.test <- function(){
- #
- #}