Basic.R

Basic.R

basic.summary <- function(){
  summary(mysql.data)
  write.csv(summary(mysql.data), file="summary.csv")
}

basic.boxplot <- function(name){
  boxplot(name)
}

basic.hist <- function(name){
  hist(name, col = "orange", main = 'Histgram', labels=T, xlab="range")
}

basic.pairs <- function(name){
  pairs.panels(name,hist.col="skyblue",rug=F,ellipses=F,lm=T)
}

basic.cor <- function(name){
  qgraph(cor(name),edge.labels=T,minimum=.2,edge.color="black")
}

basic.heatmap <- function(name){
  cor.plot(cor(name),numbers=T)
}

basic.cmdscale <- function(name){
  plot(cmdscale(dist(cor(name))),type="n",xlab="", ylab=""); 
  text(cmdscale(dist(cor(name))),rownames(cor(name)))
}