只有一个函数输出数字答案

Question

我想知道是否有一种方法可以让Gi1随后UrUr在下面的R代码中仅提供NUMBERIC ANSWER而不是额外的字 {{ 1}}目前有多少答案？

注意：我知道使用B10但我需要这个功能本身才能从头开始提供纯数字，所以我不需要使用很多[[ith output]]稍后在我的代码中。

[[]]

Answer 1

在unname：

中使用Gi1

Gi1 <- function(x) {
 unname(ttest.tstat(t, N1, ifelse(ttype==1, F, N2),
             nullInterval = c(ifelse(dexp==-1, -Inf, Inf), 
                              ifelse(tl==1, 0, Inf)),rscale = x, simple = TRUE)) }

然后就没事了。

> UrUr <- sapply(c(1/2, 1, sqrt(2)/2 ), Gi1)
> UrUr
[1] 0.3015327 0.1579931 0.2197861