高校数学の質問スレ（医者・東大卒専用） Part438

高校数学の質問スレ（医者・東大卒専用） Part438 (991ﾚｽ)
上下前次1-新
抽出解除ﾚｽ栞

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

282: １３２人目の素数さん [sage] 2024/10/31(木)13:54:27.02 ID:grkcalAP(6/9)
QuotientRemainder[70,12]
QuotientRemainder[-70,12]
QuotientRemainder[70,-12]
QuotientRemainder[-70,-12]

RのnumbersとWolframのQuotientRemaiderでは
結果が異なるな。

405(1): １３２人目の素数さん [sage] 2024/12/09(月)20:44:15.02 ID:IkiMxMea(1)
>>401
尿瓶ジジイいつまでダンマリ決め込んでんだよ
こっちじゃいくらでもバカにしてやるって言ってんだよ

509(1): １３２人目の素数さん [sage] 01/07(火)19:53:08.02 ID:rJfoFeSd(1)
【問題】
固定円の半径を２、回転ローターの円の半径を３とするときに
ルーローの三角の軌跡の内部でローターが移動できるには三角の頂点とロータ円の中心の距離が
回転ローターの円の半径の何倍以上であることが必要ですか？

> 2/3*(2+sqrt(3))
[1] 2.488034

554: １３２人目の素数さん [sage] 01/12(日)08:45:54.02 ID:Sb0hrOht(1)
>>5の日本語すら理解できないチンパンが紛れ込んでいる模様

634: １３２人目の素数さん [sage] 01/25(土)15:06:03.02 ID:sR6PLZzA(1)
>>611
答えに自信が持てないクズに教えてやる義理なんて無いぞ

流れからして、答え分かっても書かないだろ、普通。

635: １３２人目の素数さん [sage] 01/25(土)15:32:26.02 ID:OxxNUgqg(1)
>>611
尿瓶ジジイ発狂しすぎて精神病院にぶち込まれた？

639: １３２人目の素数さん [sage] 02/01(土)16:52:01.02 ID:vQLmOc+V(1)
尿瓶ジジイまた論破されてダンマリ決め込んでる

676: １３２人目の素数さん [sage] 02/06(木)16:22:07.02 ID:rViXyt0w(4/13)
裏口シリツ医ってχ二乗検定すらできないようだなぁ。

706: １３２人目の素数さん [sage] 02/08(土)08:19:29.02 ID:Jwab6M7K(1)
>>705
AIに判定させる器具じゃないの？笑

826: １３２人目の素数さん [sage] 05/05(月)19:07:36.02 ID:LDY1RQtT(1/4)
# This R function, riskratio.boot, calculates the risk ratio and its Highest Density Interval (HDI)
# using a bootstrap method. It takes the number of events and the total number of observations
# for two groups as input.

riskratio.boot <- function(r1, r2, n1, n2, nboot = 5000, conf.level = 0.95, verbose = FALSE){
# Combine the number of events and total observations for both groups.
r <- c(r1, r2)
n <- c(n1, n2)
# Create a 2x2 matrix representing the contingency table (number of events and non-events).
m <- cbind(r, n - r) ; m
# Perform bootstrap resampling to estimate the risk ratio distribution.
rr <- replicate(nboot, {
# Simulate the number of events in the first group by sampling with replacement
# from a population with the observed event rate.
sample(c(rep(1, r1), rep(0, n1 - r1)), n1, replace = TRUE) |> sum() -> R1
# Simulate the number of events in the second group similarly.
sample(c(rep(1, r2), rep(0, n2 - r2)), n2, replace = TRUE) |> sum() -> R2
# Calculate the risk ratio from the bootstrapped event counts.
(R1 / n1) / (R2 / n2)
})
# If verbose is TRUE, plot the posterior distribution of the risk ratio.
if(verbose){
source('plotpost.R') # Assuming 'plotpost.R' is a script for plotting posterior distributions.
plotpost(rr, compVal = 1, showCurve = 1, lwd = 4) # Plot the distribution with a comparison value of 1.
}
# Calculate the mean of the bootstrapped risk ratios.
b_mean <- mean(rr)
# Calculate the Highest Density Interval (HDI) of the bootstrapped risk ratios.
b_ci <- HDInterval::hdi(rr, credMass = conf.level)
# Return a list containing the bootstrap mean and the HDI.
list(b_mean = b_mean, b_ci = b_ci)
}

# Example usage of the riskratio.boot function.
riskratio.boot(244, 282, 2345, 2333)

896(1): １３２人目の素数さん [sage] 06/20(金)10:21:40.02 ID:H9bDPTb3(2/3)
>>893
方針の説明は解答ではありません。

上下前次1-新書関写板覧索設栞歴

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.033s