Olá!!
Depois de tanto tempo fazendo códigos, aprendendo técnicas mirabolantes de conferência de fechamento de parênteses e coisas mais… Agente acaba tendo felicidades “Polianas”:
Aqui está o maior comando que fuciona que eu consegui fazer… hahaha
egran=read.table("egrandis.csv",header=T,sep=",",as.is=T)
um.comando.bem.grandão <- plot(quantile(egran$ht, seq(0,1,by=0.05))~quantile(rnorm(length(quantile(egran$ht, seq(0,1,by=0.05))), mean=mean(egran$ht), sd=sd(egran$ht)),seq(0,1,by=0.05)),main="Grandão")
Tudo bem… é simples… mas já to feliz!! ^^