Code: Alles auswählen
> print(cbind(mean,sd))
mean sd
[1,] -0.001635293 1.007086
Code: Alles auswählen
mean sd
-0.001635293 1.007086
Vielen Dank für Eure Hilfen.
Code: Alles auswählen
> print(cbind(mean,sd))
mean sd
[1,] -0.001635293 1.007086
Code: Alles auswählen
mean sd
-0.001635293 1.007086
Code: Alles auswählen
> cat(c(5,3))
5 3
> cat(mean(1:15))
8
Code: Alles auswählen
EWFA_Summary <- function(x) {
mean <-mean(x)
sd <- sd(x)
Quantil <- (c(quantile(x, 0.00),
quantile(x, 0.01),
quantile(x, 0.25),
quantile(x, 0.50),
quantile(x, 0.75),
quantile(x, 0.99),
quantile(x, 1.00)))
Main1="[[1]]\n"
cat(Main1)
print(cbind(mean,sd))
Main2="[[2]]\n"
cat(Main2)
print(cbind(Quantil))
}
x=rnorm(1000)
EWFA_Summary(x)
Code: Alles auswählen
EWFA_Summary <- function(x) {
mean <-mean(x)
sd <- sd(x)
Quantil <- (c(quantile(x, 0.00),
quantile(x, 0.01),
quantile(x, 0.25),
quantile(x, 0.50),
quantile(x, 0.75),
quantile(x, 0.99),
quantile(x, 1.00)))
cat("[[1]]\n")
print(c(mean = mean, sd = sd))
cat("\n")
cat("[[2]]\n")
print(cbind(Quantil))
}
x=rnorm(1000)
EWFA_Summary(x)