Raw Message

Message-ID: <1357848151.31614.YahooMailNeo@web142605.mail.bf1.yahoo.com>
Date: 2013-01-10T20:02:31Z
From: arun
Subject: merging command
In-Reply-To: <BLU170-W8567585F51052A1CA0143A892A0@phx.gbl>

HI Eliza,

You could do this:
set.seed(15)
mat1<-matrix(sample(1:800,124*12,replace=TRUE),nrow=12) # smaller dataset
#Your codes
?list1<-list()
?for(i in 1:ncol(mat1)){
? list1[[i]]<-t(apply(mat1,1,function(x) x[i]-x))
? list1}
?x<-list1?? 
x<-matrix(unlist(x),nrow=12)
x<-abs(x)
?y<-colSums(x, na.rm=FALSE)
z<-matrix(y,ncol=10)
?z<-as.dist(z)
?z
?# ?? 1?? 2?? 3?? 4?? 5?? 6?? 7?? 8?? 9
#2? 319??????????????????????????????? 
#3? 459 516??????????????????????????? 
#4? 385 504 260??????????????????????? 
#5? 365 282 506 520??????????????????? 
#6? 318 363 373 305 383??????????????? 
#7? 382 277 459 457 363 370??????????? 
#8? 526 521 431 443 523 472 608??????? 
#9? 329 534 358 374 382 393 467 429??? 
#10 364 377 393 365 419 420 346 472 489

#Modified code
z1<-as.dist(do.call(cbind,lapply(seq_len(ncol(mat1)),function(i) colSums(abs(t(apply(mat1,1, function(x) x[i]-x))),na.rm=FALSE))))
z1
#???? 1?? 2?? 3?? 4?? 5?? 6?? 7?? 8?? 9
#2? 319??????????????????????????????? 
#3? 459 516??????????????????????????? 
#4? 385 504 260??????????????????????? 
#5? 365 282 506 520??????????????????? 
#6? 318 363 373 305 383??????????????? 
#7? 382 277 459 457 363 370??????????? 
#8? 526 521 431 443 523 472 608??????? 
#9? 329 534 358 374 382 393 467 429??? 
#10 364 377 393 365 419 420 346 472 489

A.K.







________________________________
From: eliza botto <eliza_botto at hotmail.com>
To: "smartpink111 at yahoo.com" <smartpink111 at yahoo.com> 
Sent: Thursday, January 10, 2013 9:13 AM
Subject: merging command



Dear Arun,
i need you expertise to merge the following commands in to one step command.

mat1<-m
list1<-list()
for(i in 1:ncol(mat1)){
?list1[[i]]<-t(apply(mat1,1,function(x) x[i]-x))
?list1}
x<-list1??

x<-matrix(unlist(x),nrow=12)

x<-abs(x)

y<-colSums(x,
na.rm=FALSE)

z<-matrix(y,
ncol=124)

z<-as.dist(z)

i needed that distance to be executed in one command by merging all these commands.
is it possible??

thanks in advance

elisa????????????????????????