Extremes

R Base 3.6.2 🇮🇩 Bahasa Indonesia

Mengembalikan nilai maksimum dan minimum (reguler atau paralel) dari nilai masukan. pmax*() dan pmin*() mengambil satu atau lebih vektor sebagai argumen, mendaur ulangnya menjadi panjang yang sama dan mengembalikan satu vektor yang memberikan maksimum (atau minimum) 'paralel' dari vektor argumen.

Syntax

max(&#8230;, na.rm = FALSE)
min(&#8230;, na.rm = FALSE)<p></p><p>pmax(&#8230;, na.rm = FALSE)
pmin(&#8230;, na.rm = FALSE)</p><p>pmax.int(&#8230;, na.rm = FALSE)
pmin.int(&#8230;, na.rm = FALSE)</p>

Arguments

Parameter	Deskripsi
`…`	numeric or character arguments (see Note).
`na.rm`	a logical indicating whether missing values should be removed.

Return Value

Untuk min atau maks, vektor panjangnya satu. Untuk pmin atau pmax, vektor dengan panjang terpanjang dari vektor masukan, atau panjang nol jika salah satu masukan mempunyai panjang nol. Jenis hasilnya adalah input tertinggi dalam hierarki bilangan bulat < ganda < karakter. Untuk min dan max jika hanya ada input numerik dan semuanya kosong (setelah kemungkinan penghapusan NA), hasilnya ganda (Inf atau -Inf).

Details

max dan min mengembalikan maksimum atau minimum dari semua nilai yang ada dalam argumennya, sebagai integer jika semuanya logis atau integer, sebagai double jika semuanya numerik, dan karakter sebaliknya. Jika na.rm adalah FALSE, nilai NA dalam salah satu argumen akan menyebabkan nilai NA dikembalikan, jika tidak, nilai NA akan diabaikan. Minimum dan maksimum himpunan kosong numerik adalah +Inf dan -Inf (dalam urutan ini!) yang menjamin transitivitas, misalnya min(x1, min(x2)) == min(x1, x2). Untuk numerik x max(x) == -Inf dan min(x) == +Inf setiap kali length(x) == 0 (setelah menghapus nilai yang hilang jika diminta). Namun, pmax dan pmin mengembalikan NA jika semua elemen paralelnya adalah NA bahkan untuk na.rm = TRUE. pmax dan pmin mengambil satu atau lebih vektor (atau matriks) sebagai argumen dan mengembalikan satu vektor yang memberikan maxima 'paralel' (atau mi

Contoh

Example

# NOT RUN {
require(stats); require(graphics)
 min(5:1, pi) #-> one number
pmin(5:1, pi) #->  5  numbers

x <- sort(rnorm(100));  cH <- 1.35
pmin(cH, quantile(x)) # no names
pmin(quantile(x), cH) # has names
plot(x, pmin(cH, pmax(-cH, x)), type = "b", main =  "Huber's function")

cut01 <- function(x) pmax(pmin(x, 1), 0)
curve(      x^2 - 1/4, -1.4, 1.5, col = 2)
curve(cut01(x^2 - 1/4), col = "blue", add = TRUE, n = 500)
## pmax(), pmin() preserve attributes of *first* argument
D <- diag(x = (3:1)/4) ; n0 <- numeric()
stopifnot(identical(D,  cut01(D) ),
          identical(n0, cut01(n0)),
          identical(n0, cut01(NULL)),
          identical(n0, pmax(3:1, n0, 2)),
          identical(n0, pmax(n0, 4)))
# }