[R-br] dúvidas de gráficos

bom dia desta vez a minha duvida prende-se com graficos. fiz o teste  
ks e o resultado da a normalidade. Queria desenhar um grafico da curva  
da normal.
Mostro meu codigo  aqui:
setwd("G:/SIN/Users/Ana Rua/Ana_trabalho")
dados<-read.table("transplante.csv",header=TRUE,sep=";")
dados
dim(dados)
summary(dados)
quantis<-c(0.05,0.1,0.25,0.5,0.75,0.9,0.95)
quantis
ks.test(dados$X.Doentes,"pnorm",mean=mean(dados$X.Doentes),sd=sd(dados$X.Doentes))
shapiro.test(dados$X.Doentes)
main="curva da normal"
hist(dados$X.Doentes, probability=TRUE)
curve(expr=dnorm(x,mean=mean(dados$X.Doentes),sd=sd(dados$X.Doentes)),add=TRUE,col="red")
mtext(paste("mean ", round(mean(dados$X.Doentes),1), "; sd ",  
round(sd(dados$X.Doentes),1)
xlab="nome das clínicas no eixo do X"
ylab="probabilidades no eixo do Y"


as linhas hist e curve estao a dar o seguinte erro:
> ist(dados$X.Doentes, probability=TRUE)
Error: could not find function "ist"
> curve(expr=dnorm(x,mean=mean(dados$X.Doentes),sd=sd(dados$X.Doentes)),add=TRUE,col="red")
> mtext(paste("mean ", round(mean(dados$X.Doentes),1), "; sd ",  
> round(sd(dados$X.Doentes),1)
+ xlab="nome das clínicas no eixo do X"
Error: unexpected symbol in:
"mtext(paste("mean ", round(mean(dados$X.Doentes),1), "; sd ",  
round(sd(dados$X.Doentes),1)
xlab"
> ylab="probabilidades no eixo do Y"
>
queria saber o que falta para o grafico ser desenhado.
obrigada pela atenção. Cumprimentos An Rocha