计算具有随机数的向量中的负值

Question

我正在尝试定义一个函数来计算两个向量的小于0的值 x = rnorm（100）和y = rnorm（500）。

定义另一个函数来计算 x和y值分别小于0的比例。

我想比较算一下 理论比例为0.5的比例。

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

myf (x)

Answer 1

constructor() {
    super(props);

    this.state = {
        value: 0
    }
}

或者您可以简单地在函数中返回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)并在函数中返回。