aula de hoje

lambda<-2
epsilon<-0.01
n<-100000
m<-100
x<-matrix(0,nrow=n,ncol=m)
xbarra<-matrix(0, nrow=m, ncol=1)
erro<-matrix(0, nrow=m, ncol=1)
freq<-matrix(0, nrow=m, ncol=1)
for (j in 1:m){x[,j]<-rexp(n, lambda)
xbarra[j,]<-mean(x[,j])
erro[j,]<-abs(xbarra[j,]-1/lambda)
freq[j,]<-length(subset(erro[j,],erro[j,]>epsilon))}
sum<-sum(freq)
sum
freqrel<-sum/m
freqrel

E foram duas horas de aula intensas... xD

ahah as belas das aulas da iglesias xDD

epah mas uma sugestão, podiam meter o nome do topico com a data da aula e o tema..
assim para os caloiros dos proximos anos se entenderem melhor xD

a unica coisa que me ocorre dizer é que foi uma aula espectacular, intensa, vibrante...

muy buena mesmo... e sim... foi td o que fizemos na aula... que aventura hein...

ah! assim que tentou fazer sem olhar para os apontamentos... enganou-se... coincidencias -.-

Já vi que nao perdi muito da aula LOl

lameira escreveu:

Já vi que nao perdi muito da aula LOl

Nada mesmo...

brunosm escreveu:

lameira escreveu:

Já vi que nao perdi muito da aula LOl

Nada mesmo...

Não digas isso bruno... Foi uma aula brutal pah xD

boas, será que alguém pode por aqui o último programa que fizemos hoje(20-05-2009) na aula? acho que tenho uma linha de código mal e está so a dar erro. O programa é este:

p<-matrix(0,nrow=10,ncol=1)
errotipoII<-matrix(0, nrow=10,ncol=1)
for (i in 1:10){p[i,]<-p0-i/(20)
errotipoII[i,]<-pnorm(k,p[i,],sqrt((p[i,]*1-p[i,])/n),lower.tail=False)
errotipoII
plot(p,errotipoII,col="red",pch=3)


obrigadoooo!

errotipoII[i,]<-pnorm(k,p[i,],sqrt((p[i,]*(1-p[i,])/n),lower.tail=False)

penso que te faltava colocares os () no 1 - p[i,]..

Tenta la agora

Bem realmente faltava la os parentises, obrigado mas continua a aparecer um erro na mesma :S

Error: unexpected symbol in:
"errotipoII[i,]<-pnorm(k,p[i,],sqrt((p[i,]*(1-p[i,])/n),lower.tail=False)
errotipoII"

tou farto de olhar para isto e não vejo o que está mal :S