f1<-function(x){


write.table(as.matrix(summary(x)),file="dane.txt",sep=";",row.names=T)

#I want here to make two plots.
    png(filename="hist.png")
    hist(x)
    dev.off

    dev.cur()
    png(filename="density.png")
    plot(density(x))
    dev.off
    }

function (which = dev.cur())
{
    if (which == 1)
        stop("cannot shut down device 1 (the null device)")
    .External(C_devoff, as.integer(which))
    dev.cur()
}
<bytecode: 0x0000000010dbfaa8>
<environment: namespace:grDevices>