Forum for the R statistical computing and graphical language and environment. http://forums.stat.ucla.edu/list.php?3 Mon, 23 Nov 2009 22:48:51 -0800 Phorum 5.2.10 http://forums.stat.ucla.edu/read.php?3,39,39#msg-39 http://forums.stat.ucla.edu/read.php?3,39,39#msg-39 Ryan Rosario R Tue, 21 Apr 2009 23:42:08 -0700 http://forums.stat.ucla.edu/read.php?3,14,14#msg-14 http://forums.stat.ucla.edu/read.php?3,14,14#msg-14 For crosstabs is more simply with xtabs(weights~var1+....varn)
For calculate correlation matrix view cov.wt.
But I don`t have any idea for others methods, like homals.
Thanks]]> joscani R Wed, 11 Mar 2009 18:07:00 -0700 http://forums.stat.ucla.edu/read.php?3,9,9#msg-9 http://forums.stat.ucla.edu/read.php?3,9,9#msg-9 This is a pretty basic question but any help is appreciated:
I'm having some trouble getting a loop to work and I believe it my problem is in how I am trying to extract the info from the table it is in.

Thanks a ton for any help!

here is the code I'm trying to get to work:

# RESULTS TABLE
(TblResults <- data.frame(Motivations=names(TblTable1), n=0, n1=0, n2=0, n3=0, n4=0, n5=0, Median=0, Q25=0, Q75=0, IQRng=0))

for (i in 1:nrow(TblResults)) {
#Calculate Median and IQR for each Motivation
TblResults$n <- nrow(TblTable1[,i])
TblResults$n1 <- nrow(TblAnalysis[TblTable1[,i]==1,])
TblResults$n2 <- nrow(TblAnalysis[TblTable1[,i]==2,])
TblResults$n3 <- nrow(TblAnalysis[TblTable1[,i]==3,])
TblResults$n4 <- nrow(TblAnalysis[TblTable1[,i]==4,])
TblResults$n5 <- nrow(TblAnalysis[TblTable1[,i]==5,])
TblResults$Median <- median(TblTable1[,i])
TblResults$Q25 <- quantile(TblTable1[,i],0.25)
TblResults$Q75 <- quantile(TblTable1[,i],0.75)
TblResults$IQRng <- IQR(TblTable1[,i])
}

#Complete Results table
TblResults








The data is coming from a table I set up earlier with this code:

TblDB <- sqlQuery(ADF2_ASTOnline,"Select MotivPowder,MotivCrowds, MotivAdventure, MotivTerrain, MotivBored, MotivNotSupposed, MotivKicker, MotivExercise, MotivFriends, MotivNature, MotivImpress, MotivAbout, MotivLifeStyle, MotivDMSkill, MotivPictures, MotivIdentity from tbl_analysis;")

TblTable1 <- na.omit(TblDB)






Here is a header of the table to see what it looks like:

> head(TblTable1)
MotivPowder MotivCrowds MotivAdventure MotivTerrain MotivBored
1 5 5 4 4 2
2 5 2 4 5 2
3 5 5 4 3 3
4 5 5 3 2 1
5 5 5 5 3 3
6 5 4 3 3 1
MotivNotSupposed MotivKicker MotivExercise MotivFriends MotivNature
1 1 1 3 3 2
2 1 3 2 3 2
3 2 4 2 3 2
4 1 1 5 3 5
5 1 1 3 3 5
6 1 1 1 1 3
MotivImpress MotivAbout MotivLifeStyle MotivDMSkill MotivPictures
1 1 4 3 3 4
2 1 1 4 2 3
3 1 1 2 2 1
4 2 1 5 4 1
5 1 1 3 3 2
6 1 1 3 3 1
MotivIdentity
1 3
2 4
3 4
4 5
5 3
6 4]]> matosan R Mon, 02 Mar 2009 21:52:13 -0800 http://forums.stat.ucla.edu/read.php?3,7,7#msg-7 http://forums.stat.ucla.edu/read.php?3,7,7#msg-7
A simple example is shown below:

a is a [2x3x2] array.

> (a = array(c(1:12),c(2,3,2)))
, , 1

[,1] [,2] [,3]
[1,] 1 3 5
[2,] 2 4 6

, , 2

[,1] [,2] [,3]
[1,] 7 9 11
[2,] 8 10 12

I want to obtain a 3rd matrix that is the sum of the these two matrices.

> a[,,1]+a[,,2]
[,1] [,2] [,3]
[1,] 8 12 16
[2,] 10 14 18

This is easy by simple addition when there are only 2 matrices however I have 119 of these. I know it's possible to do this with a loop but I was wondering if there is another way of doing this without a loop.

Thanks,
Mine]]> Mine Cetinkaya R Tue, 03 Mar 2009 09:11:27 -0800 http://forums.stat.ucla.edu/read.php?3,2,2#msg-2 http://forums.stat.ucla.edu/read.php?3,2,2#msg-2 Jose Hales-Garcia R Mon, 02 Mar 2009 11:58:47 -0800