Hey Josh,
Thank you so much for the help!
Now I have edited my codes--breaking into smaller pieces:) R does not state
the error again:)
However, the problem comes, please see my codes below-- You've suggested
earlier that I should move the "eight" part outside the loop; I changed the
"eight" into "temp.dat", because I wanted the codes and functions to work on
every file. In order to include it into the loop, I renamed it into this
general name "temp.dat".
The codes work--in the way that they generates plots and csv files-- BUT,
they somehow produce exactly the same plots and csv files (for the
number/length of my.files).
I think the problem has to do with the way I named the files,
i.e."temp.dat". Is it wrong to name it like that? How should I name it so
that R produces the result desired? I also tried naming them "i", but it
doesn't work.
I believe it's just one last small step towards success, but I couldn't
figure it out. Please help me:) Thanks a lot in advance!!
my.files <- list.files()
for (i in 1: length(my.files)) {
temp.dat <- read.csv(my.files[i], header=TRUE, sep=",")}
for (i in 1: length(my.files)){
temp.datout <- subset(temp.dat, inout=="Outgoing from panel hh" &
o_duration>0, select=c(inout, enc_callee, o_duration))
}
for (i in 1: length(my.files)){
f <- function(temp.datoutf) nrow(temp.datoutf)
temp.datnocalls <- ddply(temp.datout,.(enc_callee),f)
colnames(temp.datnocalls)[2] <- "nocalls"
temp.datout$nocalls <- temp.datnocalls$nocalls
[match(temp.datout$enc_callee, temp.datnocalls$enc_callee)]
temp.datout=data.frame(temp.datout,"time"=c(1:nrow(temp.datout)))
}
for (i in 1: length(my.files)){
png(paste(Sys.Date(),"_",my.files[i],"_.png", sep=""))
plot(temp.datout$time, temp.datout$nocalls, main=my.files[i])
dev.off()
write.csv(temp.datout, paste(Sys.Date(),"_",my.files[i],"_.csv", sep=""),
row.names=FALSE)
}
--
View this message in context:
http://r.789695.n4.nabble.com/What-s-wrong-with-my-code-Edited-version-added-my-data-tp3662910p3663933.html
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
