# ::Free Statistics and Forecasting Software::

v1.1.23-r7
Secure website (SSL) | Donate to wessa.net

### :: Sample Size - Free Statistics Software (Calculator) ::

All rights reserved. The non-commercial (academic) use of this software is free of charge. The only thing that is asked in return is to cite this software when results are used in publications.

This free online software (calculator) reproduces Table 7.1 (about Required Sample Sizes) in Saunders et al., Methoden en technieken van onderzoek, 4th ed., Pearson Education Benelux.

 Send output to: Browser Blue - Charts White Browser Black/White CSV MS Excel MS Word Foutenmarge #1 Foutenmarge #2 Foutenmarge #3 Foutenmarge #4 Betrouwbaarheidsniveau Proportie Power Populatieomvang (eerste rij in de tabel) Chart options Width: Height:

 Source code of R module par1 <- as.numeric(par1) par2 <- as.numeric(par2) par3 <- as.numeric(par3) par4 <- as.numeric(par4) par5 <- as.numeric(par5) par6 <- as.numeric(par6) par7 <- as.numeric(par7) par8 <- as.numeric(par8) confidence <- par5 proportion <- par6 power <- par7 userpopsize <- par8 load(file="createtable") compsize <- function(population,confidence,proportion,marginoferror,power) { par22 <- marginoferror*marginoferror z <- abs(qnorm((1-confidence)/2)) + abs(qnorm(1-power)) dum <- z*z * proportion*(1-proportion) size <- round(population * dum / (dum + (population-1) * par22)) return(size) } comprow <- function(population, confidence, proportion, marginoferror1, marginoferror2, marginoferror3, marginoferror4, power) { population <- as.integer(population) #this prevents scientific notation row <- "" row<-table.row.start(row) row<-table.element(row,population,header=TRUE) row<-table.element(row, compsize(population, confidence, proportion, marginoferror1, power)) row<-table.element(row, compsize(population, confidence, proportion, marginoferror2, power)) row<-table.element(row, compsize(population, confidence, proportion, marginoferror3, power)) row<-table.element(row, compsize(population, confidence, proportion, marginoferror4, power)) row<-table.row.end(row) return(row) } npop <- array(NA, 200) ppop <- array(NA, 200) for (i in 1:200) { ppop[i] <- i * 100 npop[i] <- compsize(ppop[i], confidence, proportion, par1, power) } bitmap(file="test1.png") dum <- paste(par1*100,"%") plot(ppop,npop,col=2,main=paste("Steekproefomvang bij een Foutenmarge van ", dum), xlab="Populatieomvang", ylab="Steekproefomvang") dev.off() a<-table.start() dum <- paste(confidence*100, "%, een Proportie van ",sep="") dum <- paste(dum, proportion) dum <- paste(dum, "en een Power van ") dum <- paste(dum, power*100) dum <- paste(dum, "%",sep="") a<-table.row.start(a) a<-table.element(a,paste("Tabel 7.1: Steekproefomvang voor verschillende waarden van de populatieomvang op een betrouwbaarheidsniveau van ", dum),5,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,"",1,TRUE) a<-table.element(a,"Foutenmarge",4,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a, "Populatie",1,TRUE) a<-table.element(a, paste(par1*100,"%"),1,TRUE) a<-table.element(a, paste(par2*100,"%"),1,TRUE) a<-table.element(a, paste(par3*100,"%"),1,TRUE) a<-table.element(a, paste(par4*100,"%"),1,TRUE) a<-table.row.end(a) a <- paste(a,comprow(userpopsize, confidence, proportion, par1, par2, par3, par4, power)) a <- paste(a,comprow(100, confidence, proportion, par1, par2, par3, par4, power)) a <- paste(a,comprow(150, confidence, proportion, par1, par2, par3, par4, power)) a <- paste(a,comprow(200, confidence, proportion, par1, par2, par3, par4, power)) a <- paste(a,comprow(250, confidence, proportion, par1, par2, par3, par4, power)) a <- paste(a,comprow(300, confidence, proportion, par1, par2, par3, par4, power)) a <- paste(a,comprow(400, confidence, proportion, par1, par2, par3, par4, power)) a <- paste(a,comprow(500, confidence, proportion, par1, par2, par3, par4, power)) a <- paste(a,comprow(750, confidence, proportion, par1, par2, par3, par4, power)) a <- paste(a,comprow(1000, confidence, proportion, par1, par2, par3, par4, power)) a <- paste(a,comprow(2000, confidence, proportion, par1, par2, par3, par4, power)) a <- paste(a,comprow(5000, confidence, proportion, par1, par2, par3, par4, power)) a <- paste(a,comprow(10000, confidence, proportion, par1, par2, par3, par4, power)) a <- paste(a,comprow(100000, confidence, proportion, par1, par2, par3, par4, power)) a <- paste(a,comprow(1000000, confidence, proportion, par1, par2, par3, par4, power)) a <- paste(a,comprow(10000000, confidence, proportion, par1, par2, par3, par4, power)) a<-table.end(a) table.save(a,file="mytable.tab")
 Top | Output | Charts | References | History | Feedback

 Cite this software as: Wessa P., (2012), Reproduction of Table 7.1 from Saunders et al. in Methoden en technieken van onderzoek, 4e editie (v1.0.2) in Free Statistics Software (v1.1.23-r7), Office for Research Development and Education, URL http://www.wessa.net/rwasp_saundersetal71.wasp/ The R code is based on : NIST/SEMATECH e-Handbook of Statistical Methods, http://www.itl.nist.gov/div898/handbook/, 2006-11-12. Saunders et al., Methoden en technieken van onderzoek, 4th ed., Pearson Education Benelux
 Top | Output | Charts | References | History | Feedback
 Top | Output | Charts | References | History | Feedback