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.
