Re: substring()'s problem

[Nora Muda <noramuda@yahoo.com>]

Thank you Romain and Steffen for your answered. Actually I know if defined as first, second and third character. But I want it  become first and second character only; 1 and 10.

 

below are my programs that the last output should be like the blue one:

n <- 10

label <- array(dim=n,NA)

for(i in 1:n) label[i] <- i

small <- 3

big <- 4

label[small] <- as.numeric(paste(label[small],label[big],sep=""))

labelSmall <- label[small]

label[big] <- NA

lengLabel <- array(dim=n-1,NA)

cell <- array(dim=nchar(labelSmall),NA)

for(j in 1:nchar(labelSmall)){

cell[j] <- as.numeric(substring(labelSmall,j,j))

}

for(i in 1:n){

if(i!=small && i!=big ){

labelOther <- label[i]

lengOther <- nchar(labelOther)

index <- array(dim=length(lengOther),NA)

weight <- length(lengOther)*length(cell)

d <- matrix(NA,length(cell),length(lengOther))

for(j in 1:length(cell)){

for(k in 1:length(lengOther)){

index[k] <- as.numeric(substring(labelOther,k,k))

d[j,k] <- as.numeric(paste(index[k],cell[j],sep=""))

}

}

print(d)

}

}

outputs:

[,1]

[1,] 13

[2,] 14

[,1]

[1,] 23

[2,] 24

[,1]

[1,] 53

[2,] 54

[,1]

[1,] 63

[2,] 64

[,1]

[1,] 73

[2,] 74

[,1]

[1,] 83

[2,] 84

[,1]

[1,] 93

[2,] 94

[,1]

[1,] 13        --------->    [1,] 103

[2,] 14                            [2,] 104

 

The outputs will be used in future clustering process where any number can be clustered together following the rule given; let say after this "110" joined with number 8, so it can be "1810". I want it become first, second and third character only, here '0' not a fourth character.

 

Is there any way to modified it?

 

 

 

--Nora .

---

Don't get soaked.  Take a quick peak at the forecast 
 with theYahoo! Search weather shortcut.