70 likes | 79 Views
This article provides labs and resources on various data analytics techniques including SVM, Multi-Dimensional Scaling, Dimension Reduction, Factor Analysis, and RandomForest.
E N D
Labs: (SVM, Multi-Dimensional Scaling, Dimension Reduction), Factor Analysis, RandomForest Peter Fox Data Analytics – ITWS-4600/ITWS-6600 Week 10b, April 8, 2016
If you did not complete svm • 9b labs were incorrectly labeled 8b • Lab8b_svm{1,11}_2016.R • Lab8b_svm{12,13}_2016.R • Lab8b_svm_rpart1_2016.R
And MDS, DR • Lab8b_mds{1,3}_2016.R • Lab8b_dr{1,4}_2016.R • http://www.statmethods.net/advstats/mds.html • http://gastonsanchez.com/blog/how-to/2013/01/23/MDS-in-R.html
Try these • example_exploratoryFactorAnalysis.R on dataset_exploratoryFactorAnalysis.csv (on website) • http://rtutorialseries.blogspot.com/2011/10/r-tutorial-series-exploratory-factor.html (this was the example skipped over in lecture 10a) • http://www.statmethods.net/advstats/factor.html • http://stats.stackexchange.com/questions/1576/what-are-the-differences-between-factor-analysis-and-principal-component-analysi • Do these - Lab10b_fa{1,2,4,5}_2016.R
Factor Analysis data(iqitems) # data(ability) ability.irt <- irt.fa(ability) ability.scores <- score.irt(ability.irt,ability) data(attitude) cor(attitude) # Compute eigenvalues and eigenvectors of the correlation matrix. pfa.eigen<-eigen(cor(attitude)) pfa.eigen$values # set a value for the number of factors (for clarity) factors<-2 # Extract and transform two components. pfa.eigen$vectors [ , 1:factors ] %*% + diag ( sqrt (pfa.eigen$values [ 1:factors ] ),factors,factors )
Glass index <- 1:nrow(Glass) testindex <- sample(index, trunc(length(index)/3)) testset <- Glass[testindex,] trainset <- Glass[-testindex,] Cor(testset) Factor Analysis?
randomForest > library(e1071) > library(rpart) > library(mlbench) # etc. > data(kyphosis) > require(randomForest) # or library(randomForest) > fitKF<- randomForest(Kyphosis ~ Age + Number + Start, data=kyphosis) > print(fitKF) # view results > importance(fitKF) # importance of each predictor # what else can you do? data(swiss) # fertility? Lab10b_rf3_2016.R data(Glass,package=“mlbench”) # Type ~ <what>? data(Titanic) # Survived ~ . Find - Mileage~Price + Country + Reliability + Type