R/wordfeud_gameinfo.R

In vdweijer/games: Functions for word games.

wordfeud_gameinfo=function(){
   cat(paste("Numbers of games recorded: ",length(unique(wf$start)),".\n",sep=""))
   cat(paste("Highest score: ",max(tapply(wf$points,wf$start,sum))," points.\n",sep=""))
   cat(paste("Lowest score: ",min(tapply(wf$points,wf$start,sum))," points.\n",sep=""))
   cat(paste("Average score: ",round(mean(tapply(wf$points,wf$start,sum)))," points.\n",sep="")) 
   cat(paste("Shortest game: ",min(table(wf$start))," moves.\n",sep="")) 
   cat(paste("Longest game: ",max(table(wf$start))," moves.\n",sep="")) 
   }