R erzeugt einen Vektor aus der bedingten Operation auf der Matrix - r

Ich möchte einen Vektor aus einer Matrix nach erstellenAnwenden einer bedingten Anweisung auf jede Spalte. Die bedingte Anweisung lautet: Wenn ein Wert in der Spalte einen festen Schwellenwert überschreitet, sollte der Wert im Vektor die letzte Zeile dieser Spalte sein. Wenn dies nicht der Fall ist, sollte der Wert im Vektor 0 sein. Am Ende wird I sollte mit einem Vektor enden, der die gleiche Anzahl von Spalten wie meine Matrix hat. Irgendwelche Tipps, wie man das macht?

Antworten:

So ähnlich ?

mat <- matrix(rnorm(100),nrow=10,ncol=10)
apply(mat, 2, function(v) {
ifelse (any(v > 0.7), v[length(v)],0)
})