sordid=c("Liivi sibul", "Kuldrenett")
kesk=c(3, 4)
halve=c(1, 2)
write.table(as.data.frame(t(sapply(rbinom(10, length(sordid), 0.3)+1, function(nr){
  c(ounasort=sordid[nr], diameeter=round(rnorm(1, kesk[nr], halve[nr]), 2))
}))), "c:/jaagup/ounad/ounad10.txt", sep=",", quote=FALSE, row.names=FALSE)