R/parameter.R

In juliusfoerstel/LaseR: Evaluation of Laser-MassSpec data

#' Get cups
#'
#' This adds important parameters to the global environment
#' @keywords parameters, decay constants, masses
#' @export
#' @examples
#' set.parameters()


set.parameters <- function(){
  
  #von Jenny
  lambda234 <<- 2.8263e-06;  # decay constant U234
  lambda238 <<- 1.55125e-10;  # decay constant U238
  lambda230 <<- 9.1577e-06;# decay constant Th230
  lambda232 <<- 4.9475e-11; # decay constant Th232
  
  con08 <<- lambda230/lambda238
  con48 <<- lambda234/lambda238
  con28 <<- lambda232/lambda238
  con02 <<- lambda230/lambda232
  
  # Isotopic masses
  # Source: http://physics.nist.gov/cgi-bin/Compositions/stand_alone.pl
  
  m30 <<- 230.0331341
  m32 <<- 232.0380558
  m34 <<- 234.0409523
  m35 <<- 235.0439301
  m38 <<- 238.0507884
  
  
  #natural ratios
  ratio85 <<- 137.881
  
  
  #resistor conversion
  res11<<- 1/(1.6*10^(-19))/10^11
  
  
  #NIST 612 values
  nist.th <<- 37.23
  nist.th.e <<- 0.72
  nist.u <<- 37.15
  nist.u.e <<- 1.23
  
  nist.ThU <<- nist.th/nist.u
  nist.ThU.e <<- nist.ThU * sqrt((nist.u.e/nist.u)^2+(nist.th.e/nist.th)^2)
  
  #KOZ7 Values
  koz.ar48 <<- 1-0.1471
  koz.age  <<- 396000
  koz.ar08 <<- 0.777854
  koz.ar28 <<- 0.0000012423


  
}