Print oder Cat - Zahl vor der Reihe soll verschwinden

Wie rufe ich R-Funktionen auf, wie selektiere ich Daten, ich weiß nicht genau ....

Moderatoren: EDi, jogo

Antworten
Mr.KSS

Print oder Cat - Zahl vor der Reihe soll verschwinden

Beitrag von Mr.KSS »

In meiner Console erscheint Folgendes (siehe auch "Aktueller Stand")

Code: Alles auswählen

> print(cbind(mean,sd))
             mean       sd
[1,] -0.001635293 1.007086
Es soll aber so aussehen:

Code: Alles auswählen

    mean      sd
-0.001635293 1.007086
Also die Zahl [1] soll verschwinden. Wie muss ich vorgehen?

Vielen Dank für Eure Hilfen.
Bild
Dateianhänge
Unbenannt66.PNG
Unbenannt66.PNG (22.19 KiB) 554 mal betrachtet
Aktueller Stand.PNG
Aktueller Stand.PNG (2.05 KiB) 566 mal betrachtet
Zuletzt geändert von Mr.KSS am Fr Dez 22, 2017 9:17 pm, insgesamt 1-mal geändert.
bigben
Beiträge: 2771
Registriert: Mi Okt 12, 2016 9:09 am

Re: Print oder Cat - Zahl vor der Reihe soll verschwinden

Beitrag von bigben »

Hi,


herzlich willkommen im Forum.

Das Bild ist nicht nötig - R schreibt ja reinen Text - den kann man gut ins Forum kopieren und mit code-Tags als Code kennzeichnen. Deine Überschrift zeigt ja schon einen möglichen Lösungsansatz:

Code: Alles auswählen

> cat(c(5,3))
5 3
> cat(mean(1:15))
8
LG,
Bernhard
---
Programmiere stets so, dass die Maxime Deines Programmierstils Grundlage allgemeiner Gesetzgebung sein könnte
Mr.KSS

Re: Print oder Cat - Zahl vor der Reihe soll verschwinden

Beitrag von Mr.KSS »

Vielen Dank für Deine Antwort. Jedoch komm ich damit nicht so richtig klar. Ich habe folgenden Code geschrieben:

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)
Und in der Console soll im Endergebnis von der Aufteilung genau so aussehen (Zahlen spielen keine Rolle). Wie unschwer zu erkennen ist, kommt in dem oben genannten Code in der ersten Zeile immer ein [1] und dieses soll verschwinden.
Dateianhänge
Unbenannt66.PNG
Unbenannt66.PNG (22.19 KiB) 561 mal betrachtet
Benutzeravatar
EDi
Beiträge: 1599
Registriert: Sa Okt 08, 2016 3:39 pm

Re: Print oder Cat - Zahl vor der Reihe soll verschwinden

Beitrag von EDi »

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)
Kleine Abwandlung zu einem named vector...
Bitte immer ein reproduzierbares Minimalbeispiel angeben. Meinungen gehören mir und geben nicht die meines Brötchengebers wieder.

Dieser Beitrag ist lizensiert unter einer CC BY 4.0 Lizenz
Bild.
Antworten