Displaying 1 result from an estimated 1 matches for "compo1".
Did you mean:
compo
2011 Aug 20
4
I have a problem with R!!
...se ahora el valor del l?mite superior de especificaciones#
LSE <- 17
# Ingrese ahora el valor objetivo#
T <- 14.5
# Ingrese ahora el m?ximo valor admitido para la proporci?n de producci?n
no conforme a cada lado de los l?mites de especificaciones#
MA<- 0.00135
D<- min ((LSE-T), (T-LIE))
compo1 <- function(data, indices)
{
d<- data[indices]
n = length (d)
desvio <- sd(d)
y<- rep(1:n)
y[x <= mean(d)] <- 1
y[x >mean(d)] <- 0
RI1<- D/(3*desvio*2*mean(y))
RI2 <- D/(3*desvio*2*(1-mean(y)))
return (min (RI1, RI2))
}
compo2<- function(data, indices)
{
d <- dat...