• QR Code (size=2)
• QR Code (size=3)
• QR Code (size=4)
• QR Code (size=5)
• QR Code (size=6)

Make sure to register this week...	 0.057 
Make sure to register this week...	 0.186 
Want to join our Career Fair?	 0.115 
Professional Development Month is coming up. here's what you need to know...	 0.110 
Professional Development Month is coming up. here's what you need to know...	 0.191 
Professional Development Month is coming up. here's what you need to know...	 0.193 
Looking for a diverse major? This is a good one...	 0.400 
Looking for a diverse major? This is a good one...	 0.098 
Looking for a diverse major? This is a good one...	 0.167 
Have you met our marketing faculty?	 0.163 
What Can a Management Degree Do For You?	 0.164 
What Can a Management Degree Do For You?	 0.082 
ISU's Management Program Featured	 0.143 
What Can a Management Degree Do For You?	 0.150 
What can Informatics do for you?	 0.091 
ISU's Informatics Program Featured	 0.172 
What can Informatics do for you?	 0.184 
What can Informatics do for you?	 0.147 
Finding Opportunities in Finance	 0.257 
Finding Opportunities in Finance	 0.195 
Finding Opportunities in Finance	 0.084 
ISU's Finance Program Featured	 0.202 
What can you do with a degree in Economics? 	 0.089 
What can you do with a degree in Economics? 	 0.167 
What can you do with a degree in Economics? 	 0.169 
What can you do with a degree in Economics? 	 0.143 
Could accounting be your major?	 0.100 
Could accounting be your major?	 0.148 
Could accounting be your major?	 0.233 
Could accounting be your major?	 0.217 
Graduation Video and more...	 0.236 
Graduation Video and more...	 0.109 
It's time to register for the Career Fair!	 0.198 
Reminder for Friday's Events...	 0.482 
Graduating? Full-time jobs are available...	 0.190 
Graduating? Full-time jobs are available...	 0.100 
Graduate Students Take Home Two Trophies...	 0.152 
Student-Written Book Releases May 5	 0.172 
May 5... it's coming up! 🎓	 0.161 
May 5... it's coming up! 🎓	 0.112 
Big event coming up Monday!	 0.123 
Big event coming up Monday!	 0.165 
Big event coming up Monday!	 0.196 
Reminder: Grand Opening on Monday!	 0.425 
ICCU BBQ on the Quad Tuesday!	 0.114 
ICCU BBQ on the Quad Tuesday!	 0.175 
Join us on Thursday this week!	 0.155 
Stand-Up Comedian Coming Soon Near You...	 0.221 
Stand-Up Comedian Coming Soon Near You...	 0.094 
Stand-Up Comedian Coming Soon to ISU...	 0.136 
Stand-Up Comedian Coming Soon Near You...	 0.181 
Don't forget about Wednesday's event!	 0.107 
Young Money Live! Good Event for You or Your Kids...	 0.216 
Don't forget about Wednesday's event!	 0.160 
Meet the Faculty event on March 29!	 0.107 
A Grand Opening Success!	 0.200 
Are you available March 29?	 0.636 
Meet the Faculty event on March 29!	 0.160 
Officially opening to students...!	 0.124 
Officially opening to students...!	 0.179 
Grand Opening on Wednesday!	 0.451 
Officially opening to students...!	 0.227 
Reminder: Speaker Series this Monday!	 0.122 
Monday is the last day to register for IBLOY	 0.205 
Reminder: Speaker Series this Monday!	 0.174 
🎓 Planning to graduate in May? Friday is your deadline...	 0.493 
You're Invited:: CEO & Alumnus Steven Cooper	 0.730 
We're introducing a new program this fall!	 0.133 
Thank you for your support!	 0.184 
We're introducing a new program this fall!	 0.111 
We're introducing a new program this fall!	 0.240 
What does it mean to choose an accredited college? 	 0.444 
Do you know what it means to be accredited? 	 0.201 
Do you know what it means to be accredited? 	 0.104 
The CoB Earns Highest Possible Ratings from Accreditors... 	 0.225 
Did you graduate?	 0.159 
It's finally here...	 0.118 
It's finally here...	 0.221 
Avoiding Career Fair Flops...	 0.164 
Avoiding Career Fair Flops...	 0.109 
Want to help with the Career Fair?	 0.188 
Is your resume ready for today?	 0.199 
Is your resume ready for today?	 0.097 
Hear from the CEO of a Silicon Valley-style startup...	 0.233 
Hear from the CEO of a Silicon Valley-style startup...	 0.123 
CommUniversity is this Wednesday	 0.227 
Hear from the CEO of a Silicon Valley-style startup...	 - 
Are you True Blue?	 0.480 
Monday is the last day to add or drop classes! 	 0.171 
Monday is the last day to add or drop classes! 	 0.134 
Idaho Business Leader of the Year Announced...	 0.288 
Gaining real-world experience in accounting...	 0.188 
Big events coming up! 	 0.296 
Big events coming up! 	 0.112 
Hey Alumni. this one is just for you...	 0.239 
Thinking about ISU? ISU Info Nights are coming up...	 0.333 
Welcome to the Spring 2017 Semester! 🐯	 0.148 

par1 <- '2'
library(psych)
par1 <- as.numeric(par1)
x <- t(x)
nrows <- length(x[,1])
ncols <- length(x[1,])
y <- array(as.double(x[1:nrows,2:ncols]),dim=c(nrows,ncols-1))
colnames(y) <- colnames(x)[2:ncols]
rownames(y) <- x[,1]
print(y)
fit <- principal(y, nfactors=par1, rotate='varimax')
fit
fs <- factor.scores(y,fit)
fs
bitmap(file='test2.png')
plot(fs$scores,pch=20)
text(fs$scores,labels=rownames(y),pos=3)
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Rotated Factor Loadings',par1+1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Variables',1,TRUE)
for (i in 1:par1) {
a<-table.element(a,paste('Factor',i,sep=''),1,TRUE)
}
a<-table.row.end(a)
for (j in 1:length(fit$loadings[,1])) {
a<-table.row.start(a)
a<-table.element(a,rownames(fit$loadings)[j],header=TRUE)
for (i in 1:par1) {
a<-table.element(a,round(fit$loadings[j,i],3))
}
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')