Nothing
pheno.table<-c(926,288,293,104)
names(pheno.table)<-c("tall-cut","tall-pot","dwarf-cut","dwarf-pot")
pheno.table
freq1way(pheno.table,c(9/16,3/16,3/16,1/16))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.