Skip to content

Instantly share code, notes, and snippets.

@smzn

smzn/Basic.R

Created Jan 20, 2017
Embed
What would you like to do?
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)))
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.