Plot[ PDF[BetaDistribution[1,1],p], {p,0,1} ]