On 14-12-2013, at 08:01, Arnaud Michel <michel.arn...@cirad.fr> wrote:
> Hello
>
> I would like to replace the for loop this below
>
> T <- as.matrix(T)
> for(i in 1: nrow(TEMP)){
> for(j in 1: nrow(TEMP)){if (i <= j) T[i, j] <- 0 }}
>
Your code is mangled.
We don’t know what T is.
You refer to TEMP in the for loop but you most likely meant T.
Shouldn’t the second nrow in your for loop be ncol?
> I don't find the function in the doc.
Search with ??uppertri and you’ll find lower.tri in base with sufficient
description to have a look at that entry.
Depending on what packages you have, you may find more.
> Thanks in advance for your help.
>
T[col(T)>=row(T)] <- 0
T[upper.tri(T,diag=TRUE) ] <- 0
Berend
> --
> Michel ARNAUD
> Chargé de mission auprès du DRH
> DGDRD-Drh - TA 174/04
> Av Agropolis 34398 Montpellier cedex 5
> tel : 04.67.61.75.38
> fax : 04.67.61.57.87
> port: 06.47.43.55.31
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
