The R Project SVN R-packages

Rev

Rev 5788 | Rev 5793 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5788 Rev 5789
Line 142... Line 142...
142 
     q <- rbind( q, v[n,] );
 142 
     q <- rbind( q, v[n,] );
143 
     diag(q) <- round(diag(q));
 143 
     diag(q) <- round(diag(q));
144 
     q
 144 
     q
145 
}
 145 
}
146 
 
 146 
 
147 
 
 - 
 
148 
frets.fun <- function( data, i )
 147 
frets.fun <- function(data, i) {
149 
{    d <- data[i,];
 148 
     d <- data[i,];
150 
     v <- pcorr( d );
 149 
     v <- pcorr( d );
151 
     c(v[1, ], v[2, ], v[3, ], v[4, ])
 150 
     c(v[1, ], v[2, ], v[3, ], v[4, ])
152 
}
 151 
}
153 
frets.boot <- boot(log(as.matrix(frets)),  frets.fun,  R = 999)
 152 
frets.boot <- boot(log(as.matrix(frets)),  frets.fun,  R = 999)
154 
plot(frets.boot, index = 7, jack = TRUE, stinf = FALSE, useJ = FALSE)
 153 
plot(frets.boot, index = 7, jack = TRUE, stinf = FALSE, useJ = FALSE)