Ik krijg een foutmelding in mijn R-programma dat zegt:
Fout in AS.Double (X): kan het type ‘sluiting’ niet dwingen
Typ ‘Double’
Hier is mijn code, ik kan niet achterhalen waar het vandaan komt:
norm.pop = rnorm(100000,10,sd = 1)
exp.pop = rexp(100000, rate = 1/10)
true.mean = 10
norm.func = function(n, N, type)
{
if(type == "N")
pop = norm.pop
else if(type =="E")
pop = exp.pop
all.the.probs = sapply(1:N, function(i)
{
the.sample = sample(pop, size = n, replace = TRUE)
x.bar = mean(the.sample)
sd.norm = sd(sample)/sqrt(n)
z.score = 1.96
upper.fence = x.bar + z.score*sd.norm
lower.fence = x.bar - z.score*sd.norm
if((true.mean >= lower.fence) & (true.mean <= upper.fence))
{
return(1)
}
else
{
return (0)
}
})
result = mean(all.the.probs)
return (result)
}
norm.func(10, 10000, "N")
Antwoord 1, Autoriteit 100%
Wijzigen:
sd.norm = sd(sample)/sqrt(n)
naar:
sd.norm = sd(the.sample)/sqrt(n)
U probeert de functie sample
(een sluiting) te gebruiken als een getal (dubbel)