R/rotor_list.R

In gbedwell/calibrateR: Streamline Standard Laboratory Calculations

rotor_list <- function(){
  data.frame(
    name = c( "Type 70", "Type 70.1", "SW 28", "SW 32", "SW 40", "SW 41", 
              "JA-10", "JA-17", "JA-20", "JA-25.5", "JS-5.2"),
    rmin = c( 39.5, 40.5, 75.3, 66.8, 66.7, 67.4, 38, 56, 32, 38.5, 86 ),
    rmax = c( 91.9, 82, 161, 152.5, 112.7, 153.1, 158, 123, 108, 108, 226 )
  )
}