Подсчет отрицательных значений в векторах со случайными числами

Question

Я пытаюсь определить функцию, считающую значения меньше 0 для двух векторов. x = rnorm (100) и y = rnorm (500).

Определите другую функцию для расчета пропорции, что значения меньше 0 для х и у соответственно.

Я хотел бы сравнить рассчитанный пропорции с теоретической пропорцией 0.5.

myf <- function (x)
{
  a <- rnorm(100)
  b <- x[x < 0]
  return(a)
}

myf (x)

Answer 1

set.seed(92)
x <- rnorm(100)
y <- rnorm(500)

countnegatives <- function(a,b){

  counta <- sum(a<0); countb <- sum(b<0)

return(
  paste(deparse(substitute(a)), "has", counta, "negative numbers",
        "and",
        deparse(substitute(b)), "has", countb, "negative numbers")
)}

countnegatives(x,y)
#> [1] "x has 44 negative numbers and y has 267 negative numbers"

Или вы можете просто вернуть c(counta, countb) в вашей функции. Если вы хотите получить пропорции, вы можете разделить counta/length(a) и то же самое на b и вернуть это в вашей функции.