統計学に関する問題について教えてほしいです。Rの使い方を何も教えてくれない先生からこのような問題が出されました。問：同じ日に生まれた人数の最大の期待値を求めるa=0for(iin1:500){+data=sample(1:365,180,replace=T)+t<-table(data)+a<-a+max(t)+}a/500・Rを用いてこの計算をした時、どのように計算されて答えが得られるのか説明する・計算結果を報告する（反復回数については500回以外のもので設定）また、上記以外に求める方法があれば教えていただきたいです。
