ファイルに保存する関数でエラーが発生する

Question

2つのプロットを保存することを前提とした単純な関数を書いていますが、unfortunetelly sthは間違っています。それを動作させるには？ dev.offのよう

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> 

Answer 1

はあなたのコードを変更し

）（）：この関数を呼び出した結果として

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 
    } 

私はこのメッセージが表示されます