Error in (function (filename = “Rplotd.png”, width = 480, height = 480, : unable to start png() device

Question

I tried to draw a histogram but it showed me this error. Can anybody fix it??

My code is

u<-NULL
for (i in 1:10000){
  x<-mean(runif(n=100))
  u[i]&l