0

我是编程世界的新手,但我想知道如何为我生成的对象分配不同的值。运行此脚本后,我想为对象 1:28 分配值“索引”。我更改了文件名并重新运行脚本,因此生成了不同的“索引”值,我想将这些值存储在一个 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))

这将简单地复制该值index28 次。这是你想要的吗?

注意:我已经稍微简化了您的代码:-)

于 2013-06-05T18:13:27.197 回答