[210916목]

 

 

# database plot(my_exam$database, main="db_산점도") plot(density(my_exam$database), main="db_밀도추정") plot(my_exam$database, dnorm(my_exam$database),type="l", main="db_n(0,1)-표준") plot(my_exam$database, dnorm(my_exam$database, mean=as.numeric(m_ex[1])),       type='b', main=paste("db_mean:",m_ex[1],"sd:1")) plot(my_exam$database, dnorm(my_exam$database, sd=as.numeric(sd_ex[1])),       type='b', main=paste("db_mean:0","sd:",sd_ex[1])) plot(my_exam$database, dnorm(my_exam$database, mean=as.numeric(m_ex[1]),sd=as.numeric(sd_ex[1])),       type='b', main=paste("db_mean:",m_ex[1],"sd:",sd_ex[1]))