#Lancio di una moneta
moneta<-c("TESTA","CROCE")
esiti<-sample(moneta,size=1000,replace=TRUE)

cat(table(esiti),"\n",prop.table(table(esiti)),"\n")
par(mfrow=c(1,2))

plot(table(esiti),xlab="1000 LANCI",ylab="FREQUENZA ASSOLUTA")

pie(table(esiti))
par(mfrow=c(1,1))