Displaying 1 result from an estimated 1 matches for "sevenoutf".
Did you mean:
sevenout
2011 Jul 11
1
How to generate same type of graphs using the previously written commands for a few hundred similar data sets?
...d.csv(file="file.csv",header=T,sep=",")
seven<- subset(alldata, aserno==7, select=c(I,C,D)) ## aserno==7, so I need
to change 7 into different numbers included in the data file##
sevenout <- subset(seven, I=="a" & D>0, select=c(I,C,D))
f <- function(sevenoutf) nrow(sevenoutf)
sevennumber <- ddply(sevenout,.(C), f)
colnames(sevennumber)[2] <- "N"
sevenout$N <- sevennumber$N [match(sevenout$C, sevennumber$C)]
sevenout=data.frame(sevenout,"time"=c(1:nrow(sevenout)))
plot(sevenout$time, sevenout$N, type="n")
line...