R/data.R

## A table of tap drill sizes
## @docType and @name; do not forget NULL in the end

#' Starrett Inch Tap Drill Sizes
#'
#' A few numbers from \code{rnorm()}.
#' @docType data
#' @name StarrettTapDrills
#' @format A numeric data frame.
#' @source Generated from \code{
#' decimal <- c(
#'              0.0135, 0.0145, 0.0156, 0.0160, 0.0180, 0.0200,
#'              0.0210, 0.0225, 0.0240, 0.0250, 0.0260, 0.0280,
#'              0.0292, 0.0310, 0.0312, 0.0320, 0.0330, 0.0350,
#'              0.0360, 0.0370, 0.0380, 0.0390, 0.0400, 0.0410,
#'              0.0420, 0.0430, 0.0465, 0.0469, 0.0520, 0.0550,
#'              0.0595, 0.0625, 0.0635, 0.0670, 0.0700, 0.0730,
#'              0.0760, 0.0781, 0.0785, 0.0810, 0.0820, 0.0860,
#'              0.0890, 0.0935, 0.0938, 0.0960, 0.0980, 0.0995,
#'              0.1015, 0.1040, 0.1065, 0.1094, 0.1100, 0.1110,
#'              0.1130, 0.1160, 0.1200, 0.1250, 0.1285, 0.1360,
#'              0.1405, 0.1406, 0.1440, 0.1470, 0.1495, 0.1520,
#'              0.1540, 0.1562, 0.1570, 0.1590, 0.1610, 0.1660,
#'              0.1695, 0.1719, 0.1730, 0.1770, 0.1800, 0.1820,
#'              0.1850, 0.1875, 0.1890, 0.1910, 0.1935, 0.1960,
#'              0.1990, 0.2010, 0.2031, 0.2040, 0.2055, 0.2090,
#'              0.2130, 0.2188, 0.2210, 0.2280, 0.2340, 0.2344,
#'              0.2380, 0.2420, 0.2460, 0.2500, 0.2570, 0.2610,
#'              0.2656, 0.2660, 0.2720, 0.2770, 0.2810, 0.2812,
#'              0.2900, 0.2950, 0.2969, 0.3020, 0.3125, 0.3160,
#'              0.3230, 0.3281, 0.3320, 0.3390, 0.3438, 0.3480,
#'              0.3580, 0.3594, 0.3680, 0.3750, 0.3770, 0.3680,
#'              0.3906, 0.3970, 0.4040, 0.4062, 0.4130, 0.4219,
#'              0.4375, 0.4531, 0.4688, 0.4844, 0.5000, 0.5156,
#'              0.5312, 0.5469, 0.5625, 0.5781, 0.5938, 0.6094,
#'              0.6250, 0.6406, 0.6562, 0.6719, 0.6875, 0.7031,
#'              0.7188, 0.7344, 0.7500, 0.7656, 0.7812, 0.7969,
#'              0.8125, 0.8281, 0.8438, 0.8594, 0.8750, 0.8906,
#'              0.9062, 0.9219, 0.9375, 0.9531, 0.9688, 0.9844,
#'              1.0000, 1.0469, 1.1094, 1.1250, 1.1719, 1.2188,
#'              1.2500, 1.2969, 1.3438, 1.3750, 1.4219, 1.5000
#'              )
#' drills <- (
#'              80    , 79     , 1/64   , 78   , 77     , 76,
#'              75    , 74     , 73     , 72   , 71     , 70,
#'              69    , 68     , 1/32   , 67   , 66     , 65,
#'              64    , 63     , 62     , 61   , 60     , 59,
#'              58    , 57     , 56     , 3/64 , 55     , 54,
#'              53    , 1/16   , 52     , 51   , 50     , 49,
#'              48    , 5/64   , 47     , 46   , 45     , 44,
#'              43    , 42     , 3/32   , 41   , 40     , 39,
#'              38    , 37     , 36     , 7/64 , 35     , 34,
#'              33    , 32     , 31     , 1/8  , 30     , 29,
#'              28    , 9/64   , 27     , 26   , 25     , 24,
#'              23    , 5/32   , 22     , 21   , 20     , 19,
#'              18    , 11/64  , 17     , 16   , 15     , 14,
#'              13    , 3/16   , 12     , 11   , 10     , 9,
#'              8     , 7      , 13/64  , 6    , 5      , 4,
#'              3     , 7/32   , 2      , 1    , A      , 15/64,
#'              B     , C      , D      , 1/4 E, F      , G,
#'              17/64 , H      , I      , J    , K      , 9/32,
#'              L     , M      , 19/64  , N    , 5/16   , O,
#'              P     , 21/64  , Q      , R    , 11/32  , S,
#'              T     , 23/64  , U      , 3/8  , V      , W,
#'              25/64 , X      , Y      , 13/32, Z      , 27/64,
#'              7/16  , 29/64  , 15/32  , 31/64, 1/2    , 33/64,
#'              17/32 , 35/64  ,  9/16  , 37/64, 19/32  , 39/64,
#'              5/8   , 41/64  , 21/32  , 43/64, 11/16  , 45/64,
#'              23/32 , 47/64  , 3/4    , 49/64, 25/32  , 51/64,
#'              13/16 , 53/64  , 27/32  , 55/64, 7/8    , 57/64,
#'              29/32 , 59/64  , 15/16  , 61/64, 31/32  , 63/64,
#'              1     , 1 3/64 , 1 7/64 , 1 1/8, 1 11/64, 1 7/32,
#'              1 1/4 , 1 19/64, 1 11/32, 1 3/8, 1 27/64, 1 1/2
#'             )
#' TapSizeInch <- c(
#'                         ,           ,           ,           ,            ,            ,
#'                         ,           ,           ,           ,            ,            ,
#'                         ,           ,           ,           ,            ,            ,
#'                         ,           ,           ,           ,            ,            ,
#'                         ,           ,           , "0-80"    ,            ,            ,
#'              "1-64,1-72",           ,           ,           , "2-56,2-64",            ,
#'                         ,           , "3-48"    ,           , "3-56"     ,            ,
#'              "4-40"     , "4-48"    ,           ,           ,            ,            ,
#'              "5-40"     , "5-44"    , "6-32"    ,           ,            , 0.1110     ,
#'              "6-40"     ,           ,           ,           ,            , "8-32,8-36",
#'                         ,           ,           ,           , "10-24"    , 0.1520     ,
#'                         ,           ,           , "10-32"   ,            ,            ,
#'                         ,           ,           , "12-24"   ,            , "12-28"    ,
#'                         ,           ,           ,           ,            ,            ,
#'                         , "1/4-20"  ,           ,           ,            ,            ,
#'              "1/4-28"   ,           ,           ,           ,            ,            ,
#'                         ,           ,           ,           , "5/16-18"  ,            ,
#'                         ,           , "5/16-24" ,           ,            ,            ,
#'                         ,           ,           ,           , "3/8-16"   ,            ,
#'                         ,           , "3/8-24"  ,           ,            ,            ,
#'                         ,           , "7/16-14" ,           ,            ,            ,
#'              "7/16-20"  ,           ,           ,           ,            , "1/2-13"   ,
#'                         , "1/2-20"  ,           , "9/16-12" ,            , "9/16-18"  ,
#'              "5/8-11"   ,           ,           , "5/8-18"  ,            ,            ,
#'                         ,           , "3/4-10"  ,           , "3/4-16"   ,            ,
#'                         ,           ,           , "7/8-9"   ,            ,            ,
#'              "7/8-14"   ,           ,           ,           , "1-8"      ,            ,
#'                         , "1-12"    , "1-14"    ,           ,            , "1 1/8-7"  ,
#'                         , "1 1/8-12", "1 1/4-7" ,           , "1 1/4-12" , "1 3/8-6"  ,
#'                         , "1 3/8-12", "1 1/2-6" ,           , "1 1/2-12" ,           
#'              )
#'  InchTapDrills <- data.frame(Decimal,
#'                              Drills, 
#'                              inchTapSize, 
#'                              stringsAsFactors = FALSE)
#' }
#' @examples data(InchTapDrills)
#' str(InchTapDrills)
NULL


#' Starrett Metric Tap Drill Sizes
#'
#' A few numbers from \code{rnorm()}.
#' @docType data
#' @name MetricTapDrills
#' @format A numeric data frame.
#' @source Generated from \code{
#' ThreadSizeMetric <- c(
#'                        1.6,   1.8,   2  ,   2.2,   2.5,   3,
#'                        3.5,   4  ,   4.5,   5  ,   6  ,   7,
#'                        8  ,   8  ,  10  ,  10  ,  12  ,  12,
#'                       14  ,  14  ,  16  ,  16  ,  18  ,  18,
#'                       20  ,  20  ,  22  ,  22  ,  24  ,  24,
#'                       27  ,  27  ,  30  ,  30  ,  33  ,  33,
#'                       36  ,  36  ,  39  ,  39
#'                       )
#' ThreadPitchMeric <- (
#'                      0.35,  0.35,  0.4 ,   0.45,  0.45,  0.5 ,
#'                      0.6 ,  0.7 ,  0.75,   0.8 ,  1   ,  1   ,
#'                      1.25,  1   ,  1.5 ,   1.25,  1.75,  1.25,
#'                      2   ,  1.5 ,  2   ,   1.5 ,  2.5 ,  1.5 ,
#'                      2.5 ,  1.5 ,  2.5 ,   1.5 ,  3   ,  2   ,
#'                      3   ,  2   ,  3.5 ,   2   ,  3.5,   2   ,  
#'                      4   ,  3   ,  4   ,   3
#'                      )
#' TapDrillMetric <- (
#'                     1.25,   1.45,   1.60,   1.75,   2.05,   2.50,
#'                     2.90,   3.30,   3.70,   4.20,   5.00,   6.00,
#'                     6.70,   7.00,   8.50,   8.70,  10.20,  10.80,
#'                    12.00,  12.50,  14.00,  14.50,  15.50,  16.50,
#'                    17.50,  18.50,  19.50,  20.50,  21.00,  22.00,
#'                    24.00,  25.00,  26.50,  28.00,  29.50,  31.00,
#'                    32.00,  33.00,  35.00,  36.00
#'                    )
#' TapDrillInch <- c(
#'                  0.0492, 0.0571, 0.0630, 0.0689, 0.0807, 0.0984, 
#'                  0.1142, 0.1299, 0.1457, 0.1654, 0.1968, 0.2362,
#'                  0.2638, 0.2756, 0.3346, 0.3425, 0.4016, 0.4252,
#'                  0.4724, 0.4921, 0.5512, 0.5709, 0.6102, 0.6496,
#'                  0.6890, 0.7283, 0.7677, 0.8071, 0.8268, 0.8661,
#'                  0.9449, 0.9843, 1.0433, 1.1024, 1.1614, 1.2205,
#'                  1.2598, 1.2992, 1.3780, 1.4173
#'                  )
#'  MetricTapDrills <- data.frame(ThreadSizeMetric,
#'                                ThreadPitchMetric,
#'                                TapDrillMetric, 
#'                                TapDrillInch, 
#'                                stringsAsFactors = FALSE)
#' }
#' @examples data(InchTapDrills)
#' str(InchTapDrills)
NULL


#' Starrett Pipe Thread Tap Drill Sizes
#'
#' A few numbers from \code{rnorm()}.
#' @docType data
#' @name StarrettTapDrills
#' @format A numeric data frame.
#' @source Generated from \code{
#' DrillSize <- (
#'               11/32,  7/16  , 37/64,   23/32 , 59/64  , 1 5/32, 1 1/2,
#'               1 3/4, 2 7/32, 2 21/32, 3 1/4, 3 3/4, 4 1/4
#'               )
#' ThreadSize <- c(
#'                 "1/8"  , "1/4", "3/8"  , "1/2", "3/4"  , "1", "1 1/4", 
#'                 "1 1/2", "2"  , "2 1/2", "3"  , "3 1/2", "4"            
#'                 )
#' ThreadPitch <- c(
#'                  27  , 18, 18  , 14, 14  , 11.5, 11.5, 
#'                  11.5, 11.5  , 8, 8  , 8, 8            
#'                 )
#'  PipeThreadDrill <- data.frame(Decimal,
#'                              Drills, 
#'                              inchTapSize, 
#'                              stringsAsFactors = FALSE)
#' }
#' @examples data(PipeThreadDrill)
#' str(PipeThreadDrill)
NULL


#' Cutting Speeds Table
#'
#' Cutting speeds for various materials  
#' using a plain high speed steel cutter

#' @docType data
#' @name CuttingSpeeds
#' @format A numeric data frame.
#' @source Generated from \code{
#' Material <- c(  "Steel (tough)", 
#'                "Mild Steel", 
#'                "Mild Steel (with colant)", 
#'                "Cast Iron",
#'                "Alloy Steels (1320–9262)",
#'                "Carbon Steels (C1008–C1095)",
#'                "Free Cutting Steels (B1111–B1113 & C1108–C1213)",	
#'                "Stainless Steels (300 & 400 series)",	
#'                "Bronzes",	
#'                "Steel 12L14",	
#'                "Aluminium",	
#'                "Brass",	
#'                "Machinable Wax",	
#'                "Delrin",	
#'                "Polyethylene",	
#'                "Acrylic (with coolant)",	
#'                "Wood"
#'	        )	
#' MPM.Min  <- c(18,  3,   6,  1, 3,  4,  35,  23, 24, 9,  122,  90,  6,  11, 12, 15, 183) 
#' MPM.Max  <- c(50,  38, 	7,	2, 20, 21, 69,	40,	45,	10, 305,  210, 6,  11, 12, 15, 305)	
#' SFM.Min  <- c(60,  10,  20, 6, 12, 10, 115, 30, 10,	30, 400,  300, 20, 35, 40, 50, 600)
#' SFM.Max  <- c(100, 125, 25, 8, 65, 70, 225, 7,  80, 33, 1000, 700, 20, 35, 40, 50, 1000)
#'
#' cuttingSpeeds <- data.frame(Material, MPM.Min, MPM.Max, SFM.Min, SFM.Max, stringsAsFactors = FALSE)
#' }
#' @examples data(cuttingSpeeds)
#' str(cuttingSpeeds)
NULL
jariou/MachCalc documentation built on March 1, 2020, 2:38 a.m.