search for: tinysample

...here is the whole code in case I am wrong that that is the problem area: #loop for making index #clean dataset of empty cells dataset <- na.omit (datasetORIGINAL) #how messed up was the data? holeyDATA <- datasetORIGINAL - dataset D <- dim(dataset) #what is the smallest sample? tinysample <- 100 #how long is the dataset? datalength <- length (dataset) #MD <- how many divisions MD <- datalength/tinysample #clear things up for the index loop WHOLE <- NULL index <- NULL #do the index loop for (a in 1:MD) { index <- cbind (index, rep (1:a, length...