Dear Susie,
I'm glad the pieces are working. Sorry if I wasn't clear before, when I said
break down into smaller pieces, I meant for testing and figuring out what's
wrong. If you have everything in separate loops, they will be completed
individually, so reading all the datasets will be done and tempdat will get
overwritten many times but it won't be plotted and saved inbetween overwrites
like if everything was in one loop.
So I would now combine all the pieces that you know are working :)
Josh
On Jul 12, 2011, at 18:12, Susie <susiecrab_l...@hotmail.com> wrote:
> 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.
______________________________________________
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.
