2018 Hakyung R command

library(ggplot2) ggplot(summary, aes(x=summary$no, y = summary$m)) + geom_point() + geom_errorbar(aes(ymin=summary$m-summary$se, ymax=summarWarning message: width=.1)

> pdf("RWC_distribution.pdf") > hist(xvalues, xlim=c(0,1), xlab="Relative Water Contents", ylab = "Density", col="lightgray", main= "RWC distribution after> curve(dnorm(x, mean= mean(xvalues), sd = sd(xvalues)), add = TRUE, col = "red", lwd = 2) dev.off()

ggplot(summary, aes(x=summary$no, y = summary$m)) + geom_point() + geom_errorbar(aes(ymin=summary$m-summary$se, ymax=summary$m+summary$se)

data.frame()

ref1 <- unlist(ref1, use.names = FALSE)

shapiro.test(ref1)