Displaying 1 result from an estimated 1 matches for "probenbr".
Did you mean:
probeer
2003 May 01
2
What' wrong?
...ot;ctest")
catSignifTest <- function( catFile ) {
###############################################################
## Get the data sets from text file
catData <- read.table( catFile )
ncols <- length(catData)
nrows <- length(catData[,1])
ncol1 <- ncols - 1
probeNbr <- catData[1,]
Achip <- catData[,ncols]
for ( row in 2:nrows ) {
prob <- Achip[ row ] / Achip[ 1 ]
if ( prob <= 0 ) prob <- 0.0000001
if ( prob >= 1 ) prob <- 0.9999999
chip <- catData[row,]
for ( col in 1:ncol1 ) {
succ <- chip[col]
tri...