frequencies for individual weekdays

startdate<- data.frame(weekdays(
  strptime(bike2012$Start.Date,format="%d/%m/%Y %H:%M",tz="UTC")
  ),bike2012$Start.Date)

sjp.frq(startdate$weekdays.strptime.bike2012.Start.Date..format.....d..m..Y..H..M...)