Try this:
jpeg("UserDA%02dT.jpg")
sapply(1:10, function(x)plot(rnorm(100)))
dev.off()
On 20/12/2007, Daniel Jegelka <[EMAIL PROTECTED]> wrote:
> Hello, i only got a small problem.
>
> i try to create automatic new dataframes, or png´s. the main problem i
> got is:
>
> how can i create automatic a new name for a file (read out by simply
> "for") -
> i tried to use "(paste...) but theres an errormessage, about a wrong
> declination. R told it is as.character, but need as.Real.
>
> Should i use another method than "paste"?
>
> i tried as this:
> png("User-", paste(subject, ".png", sep = " "))
>
> ^^ as png file, example: User-DA5T.png <- but if i create one, they are
> empty.
>
> Would anybody help me please?
>
> thx Daniel
>
>
>
>
> Prog:
> files <- list.files(
> path = "/SCR/STATISTIK",
> pattern = ".*t_simple\.txt",
> all.files = TRUE,
> full.names = TRUE,
> recursive = TRUE )
> list(files)
> anz <- nrow(files)
> print(anz)
>
> for (file in files) {
>
> lines <- readLines(file)
> name <- lines[1]
> print(name)
> #png("/SCR/STATISTIK/all-user-names.png")
> #name <- as.character(name)
> #barplot(name)
> #dev.off()
> for (line in lines[-1]) {
> liste <- unlist(strsplit((line), " "))
> subject <- as.character(liste[1])
> if (length(liste) < 2 ) {
> data <- 0
> }
> else {
> data <- as.numeric(liste[-1])
> }
> #png(paste[subject],".png")
> dev.set()
> boxplot(data[subject], ylim=c(400,1500))
> dev.off()
> datalist <- data.frame(data)
> names(datalist) <- subject
> print(datalist)
> png("/SCR/STATISTIK/datalist.png", width=1024, height=768)
>
> plot(datalist)
> dev.off()}}
> #png("/SCR/all-show.png")
> #boxplot(datalist, main="Proband - ", col= "blue",
> ylab=
> "reactiontime in milliseconds", xlab= "name")
> #dev.off()
> #dev.set()
> #Datenmatrix <- cbind(datalist)
> #print(Datenmatrix)
> #dev.off()
> #plot(datalist)
> #dev.off()
>
> #einlesen <- datalist
> #print(einlesen)
> #Monate,storage, type="l", ylab="Datenvolumen [B]", xlab="Alter [M]",
> main="Altersverteilung", col="blue", ylog=TRUE, xpd=TRUE
> #print(x)
>
> #
> # alle kritischen Befehle wurden wohl von Felix "behoben" :( - aber
> danke :)
> #
> (rbind(User)) -> ueber
> print(ueber)
> list(ueber)
> x <- ncol(ueber)
> print(x)
> y <- nrow(ueber)
> print(y)
> #{# for (i in 1:x)
> # {fileseq <- (unlist(strsplit((a[i]), "
> "))[-1])
> # print(zeilen <- list(fileseq))
> # zeilen[i]<- zeilen
> # print(fileseq)}
> # for (j in 1:17)
> # {fileline <-
> as.logical(unlist((zeilen), " "))
> # fileline[j] <- list(fileline)
> # print(fileline[j])}
> #}
>
> #
> #
>
> #
>
> #list(ueber)
> #fix(ueber)
> #dim(ueber)
> #names(ueber)
> #ausgabe der userdaten in R
> #ueber$Sephal.Length
> #ueber$Sepal.Width
> #ausgabe der userdaten in einem Übersichtpopup
>
> #anzahl der Zeilen, die "files" besitzt
>
> #
> #daten der einzelnen datein in den Speicher schreiben
> #file <- unlist(files), NA = TRUE
> #print(file)
> #meinetabelle <- read.table(file, header=FALS)
> #a <- read.table(file=stdin(User),header=FALSE)
> #meinetabelle <- read.table(, sep=?\t?, header=FALSE)
> #simul<-data.frame(times=c(0, anz),simul=c(3,4,5,6))
> #mget(files, envir = , mode = "any",
> # inherits = TRUE)
>
>
> #
> #read.table(files)
> #
> #
>
>
> #date(inbox)
> #attach(files, pos == anz, name = deparse(substitute(files)),
> #warn.conflicts = TRUE)
>
> #step(anz, scope, scale = 1,
> # direction = c("forward"),
> # trace = 1, keep = NULL, steps = anz, k = 1)
> #test <- as.numeric(unlist(strsplit((a[i]), " "))[-1])
> #print(nrow(test))
>
> ______________________________________________
> 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.
>
>
--
Henrique Dallazuanna
Curitiba-Paraná-Brasil
25° 25' 40" S 49° 16' 22" O
______________________________________________
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.
