r********1
发帖数: 32 | 1 我有3000位病人的数据，对每个病人的数据做autoregression处理，得到他们的
coefficient。对于每个病人，他们的optimal的model的order可能是不同的。比如向下
面的，病人1有6个coefficient,病人2只有4个。当我用ar得出结果的时候，想用write.
table导出结果，为什么不行，出现error:
Error in data.frame(c(2.37280339095806, -2.29542407946284, 1.38539195577368,
:
arguments imply differing number of rows: 6, 4, 10, 9, 2, 8, 3, 7, 0, 1, 5
求大神开导一下，已经琢磨一天了。不甚感激~~
> arcof1[1:4]
[[1]]
[1] 2.372803 -2.295424 1.385392 -1.399576 1.475775 -0.681480
[[2]]
[1] 3.2510648 -4.4255243 2.9754794 -0.8487327
[[3]]
[1] 0.972978379 -1.284645869 0.697525265 -0.442692140 -0.001998221 0.
442300734 -0.695413410 1.276846181 -0.966779752 0.995493951
[[4]]
[1] 2.27760675 -1.80040060 0.15055155 -0.08879402 1.12055099 -1.22756523
0.81359082 -1.14892891 1.25998111 -0.59611725 | t**c
发帖数: 539 | 2 arcof1是list,不是dataframe，不能直接一起write.table吧。
可以用一个循环，把结果一个一个输出：
nb.patient <- length(arcof1)
out_file <- file("C:/file.csv", open="a")
for (i in 1:nb.patient){
write.table(t(arcof1[[i]]), file=out_file, sep=",", col.names=FALSE, row.
names=FALSE)}
close(out_file) | r********1
发帖数: 32 | 3 谢谢。最后我也是用loop做出来的~~
【在 t**c 的大作中提到】
: arcof1是list,不是dataframe，不能直接一起write.table吧。
: 可以用一个循环，把结果一个一个输出：
: nb.patient <- length(arcof1)
: out_file <- file("C:/file.csv", open="a")
: for (i in 1:nb.patient){
: write.table(t(arcof1[[i]]), file=out_file, sep=",", col.names=FALSE, row.
: names=FALSE)}
: close(out_file)
|
|
