我开始编写彩票模拟程序(49个中的6个)。用户可以插入6个数字。然后程序开始创建随机数。如果随机数与用户编号匹配,程序将停止并进行一些评估。
我有一个var来统计随机数的实际创建,因为我想让用户了解在必要的情况下尝试匹配随机数的次数。问题:创建5000个随机数后,系统会引发StackOverflowException。我目前正在学习C#。刚拿了我的第一个Java程序并开始编程。如何防止StackOverflowException。我希望我的程序尽可能快。
pvalue <- function(x, ...) UseMethod("pvalue")
pvalue.survdiff <- function (x, ...)
{
if (length(x$n) == 1) {
df <- 1
pval <- pchisq(x$chisq, 1, lower.tail = FALSE)
} else {
if (is.matrix(x$obs)) {
otmp <- rowSums(x$obs)
etmp <- rowSums(x$exp)
} else {
otmp <- x$obs
etmp <- x$exp
}
df <- sum(etmp > 0) - 1
pval <- pchisq(x$chisq, df, lower.tail = FALSE)
}
list(chisq = x$chisq, p.value = pval, df = df)
}
srv <- survdiff(Surv(futime, fustat) ~ rx, data = ovarian)
pvalue(srv)
#$chisq
#[1] 1.06274
#
#$p.value
#[1] 0.3025911
#
#$df
#[1] 1