0

プログラミングの世界は初めてですが、生成したオブジェクトにさまざまな値を割り当てる方法を知りたいです。このスクリプトを実行した後、オブジェクトに 1:28 値「index」を割り当てたいと思います。ファイル名を変更してスクリプトを再実行すると、異なる「インデックス」値が生成され、これらの値を txt ファイルに保存したいと考えています。

    wave<-readWave("myfile.wav")
    waveenv<-env(wave, f=48000, envt="hil", plot=FALSE)
    thvalue<-th(waveenv)
    wavespec<-meanspec(wave, f=48000, wl=1024, wn="hanning", plot=FALSE)
    shvalue<-sh(wavespec)
    index<-thvalue*shvalue   
    for(i in 1:28)
    assign(paste('obj',i,sep=''),NULL)

助けが必要な部分:) 

    ##obj1:28<-index
    ##list<-c(obj1:28)
    ##lapply(list, write, "test.txt", append=TRUE)

助けてくれてありがとう。インデックス値を28回再作成したくありません.obj1:28には意味がないことを知っています:)スクリプトを実行し、インデックス値を取得し、この値をオブジェクト（obj1など）に保存したいと考えています。次に、スクリプトを再実行し、新しいインデックス値を obj2 に保存したいので、最後に txt ファイルをラップして、すべての obj 値を txt ファイルに保存できます。しかし、私はばかです:)取得したインデックス値を追加するだけです。総ブロックヘッド:/

4

1 に答える 1

0

代わりにこれを提案してもいいですか：

wave<-readWave("myfile.wav")
waveenv<-env(wave, f=48000, envt="hil", plot=FALSE)
wavespec<-meanspec(wave, f=48000, wl=1024, wn="hanning", plot=FALSE)
index<-th(waveenv)*sh(wavespec)

lapply(1:28, function(.)write(x=index, file="test.txt", append=TRUE))

indexこれは単純に値を28 回複製します。これは、あなたの望むことですか？

注: コードを少し簡略化しました :-)

于 2013-06-05T18:13:27.197 に答える