Displaying 1 result from an estimated 1 matches for "compo3".
Did you mean:
compo
2011 Aug 20
4
I have a problem with R!!
...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 <- data[indices]
c2 <- (abs(mean(d) - T))/D
return (1-c2)
}
compo3<-function(data, indices)
{
d<- data[indices]
n<- length (d)
y<- rep(1:n)
y[d < LIE] <- 1
y[d >= LIE] <- 0
INFE <- mean (y);
y<- rep(1:n)
y[d > LSE] <- 1
y[d <= LSE] <- 0
SUPE<- mean (y);
PPI <- (1 - INFE)/(1-MA)
PPS <- (1 - SUPE)/(1-MA)
return (min...