mistat-package: The Modern Industrial Statistics Package

Description Details Author(s) See Also Examples

Description

This R package is providing all the data sets and statistical analysis of Modern Industrial Statistics, with applications using R, MINITAB and JMP by R.S. Kenett and S. Zacks with contributions by D. Amberti, John Wiley and Sons, 2013. This second revised and expanded second edition.

Details

Package: mistat
Type: Package
Date: 2012-08-22
License: GPL >= 2

Author(s)

Daniele Amberti

Maintainer: Daniele Amberti <amberti@inwind.it>

See Also

Bootstrap Resampling, Quality Control Charts, Operating Characteristics of an Acceptance Sampling Plan, Quality Control Charts, Fractional Factorial 2-level designs.

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
data(OELECT)
data(OELECT1)

randomizationTest(list(a=OELECT, b=OELECT1), 
                  R=500, calc=mean, 
                  fun=function(x) x[1]-x[2],
                  seed=123)

Ps <- pistonSimulation(
  m = rep(60, 100),
  s = rep(0.02, 100),
  v0 = rep(0.01, 100),
  k = rep(5000, 100),
  p0 = rep(110000, 100),
  t = c(rep(296,35), 296*1.1^(1:65)),
  t0 = rep(360, 100),
  each = 1, 
  seed = 123,
  check = FALSE)

head(Ps)

cusumArl(mean= 0.0, 
         N=100,  
         limit=5000,
         seed=123)

powerCircuitSimulation(seed=123, each=3)

set.seed(123)

Ttf <- rgamma(50, 
              shape=2, 
              scale=100)

Ttr <- rgamma(50, 
              shape=2, 
              scale=1)
              
AvailEbd <- availDis(ttf=Ttf,  
                     ttr=Ttr, 
                     n=1000, seed=123)


RenewEbd <- renewDis(ttf=Ttf, 
                     ttr=Ttr, 
                     time=1000, 
                     n=1000)

Example output

Original stat is at quantile 1 over 501  ( 0.2 %)  
Original stat is -10.72198 
   m    s   v0    k     p0   t  t0   seconds
1 60 0.02 0.01 5000 110000 296 360 0.5233827
2 60 0.02 0.01 5000 110000 296 360 0.3607560
3 60 0.02 0.01 5000 110000 296 360 0.4231793
4 60 0.02 0.01 5000 110000 296 360 0.4441514
5 60 0.02 0.01 5000 110000 296 360 0.5658896
6 60 0.02 0.01 5000 110000 296 360 0.3899954
       ARL Std. Error 
  930.5500   125.8908 
   rsA    rsB  rsC   rsD   rsE  rsF  rsG  rsH  rsI rsJ trK trL trM tlA tlB tlC
1 8200 220000 1000 33000 56000 5600 3300 58.5 1000 120 130 100 130   5  10  10
2 8200 220000 1000 33000 56000 5600 3300 58.5 1000 120 130 100 130   5  10  10
3 8200 220000 1000 33000 56000 5600 3300 58.5 1000 120 130 100 130   5  10  10
  tlD tlE tlF tlG tlH tlI tlJ tlK tlL tlM    volts
1   5   5   5  10   5   5   5   5  10   5 227.4984
2   5   5   5  10   5   5   5   5  10   5 229.0699
3   5   5   5  10   5   5   5   5  10   5 234.4896
 The estimated MTTF from ttf is 153.01
 The estimated MTTR from ttr is 1.91
 The estimated asymptotic availability is 0.9877
 availability EBD
 Min.   :0.9815  
 1st Qu.:0.9865  
 Median :0.9877  
 Mean   :0.9876  
 3rd Qu.:0.9887  
 Max.   :0.9921  
 The estimated MEAN NUMBER Of RENEWALS is 8.19
number of renewals EBD
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  3.000   7.000   8.000   8.185   9.000  15.000 

mistat documentation built on April 18, 2021, 5:07 p.m.