Can you tell us what you want to do, and not how you want to do it.
Without the data it is hard to see. Some of your indexing probably
does not have the correct number of parameters when trying to do the
replacement. An explanation of what you expect the output to be would
be useful in determining what the script might look like.
On Nov 8, 2007 4:51 PM, Gang Chen <gangchen at mail.nih.gov>
wrote:> I have trouble creating an array of lists? For example, I want to do
> something like this
>
> clist <- array(data=NA, dim=c(7, 2, 3));
> for (n in 1:7) {
> for (ii in 1:2) {
> for (jj in 1:3) {
> if (cc[n, ii, jj] == "0") { clist[n, ii, ][[jj]]
<- list(levels
> (MyModel[,colnames(MyModel)[jj+1]])); }
> else { clist[n, ii, ][[jj]] <- cc[n, ii, jj]; }
> names(clist[n, ii, ][[jj]]) <- colnames(MyModel)[jj];
> }
> }
> }
>
> but I get an error:
>
> Error in `*tmp*`[n, ii, ] : incorrect number of dimensions
>
> Is it because each list has different number of components? The two
> variables involved in the loop, character matrix cc and dataframe
> MyModel are shown below:
>
> > cc
> , , 1
>
> [,1] [,2]
> [1,] "U" "T"
> [2,] "0" "0"
> [3,] "0" "0"
> [4,] "0" "0"
> [5,] "U" "T"
> [6,] "U" "T"
> [7,] "U" "T"
>
> , , 2
>
> [,1] [,2]
> [1,] "0" "0"
> [2,] "M" "F"
> [3,] "0" "0"
> [4,] "0" "0"
> [5,] "0" "0"
> [6,] "0" "0"
> [7,] "0" "0"
>
> , , 3
>
> [,1] [,2]
> [1,] "0" "0"
> [2,] "0" "0"
> [3,] "Lo" "Hi"
> [4,] "No" "Hi"
> [5,] "Hi" "Hi"
> [6,] "Lo" "Lo"
> [7,] "No" "No"
>
> > MyModel
> Trust Sex Freq
> 1 T F Hi
> 2 T F Hi
> 3 T F Hi
> 4 T F Hi
> 5 T F Hi
> 6 T F Hi
> 7 T F Hi
> 8 T F Hi
> 9 T F Lo
> 10 T F Lo
> 11 T F Lo
> 12 T F Lo
> 13 T F Lo
> 14 T F Lo
> 15 T F Lo
> 16 T F Lo
> 17 T F No
> 18 T F No
> 19 T F No
> 20 T F No
> 21 T F No
> 22 T F No
> 23 T F No
> 24 T F No
> 25 T M Hi
> 26 T M Hi
> 27 T M Hi
> 28 T M Hi
> 29 T M Hi
> 30 T M Hi
> 31 T M Hi
> 32 T M Hi
> 33 T M Lo
> 34 T M Lo
> 35 T M Lo
> 36 T M Lo
> 37 T M Lo
> 38 T M Lo
> 39 T M Lo
> 40 T M Lo
> 41 T M No
> 42 T M No
> 43 T M No
> 44 T M No
> 45 T M No
> 46 T M No
> 47 T M No
> 48 T M No
> 49 U F Hi
> 50 U F Hi
> 51 U F Hi
> 52 U F Hi
> 53 U F Hi
> 54 U F Hi
> 55 U F Hi
> 56 U F Hi
> 57 U F Lo
> 58 U F Lo
> 59 U F Lo
> 60 U F Lo
> 61 U F Lo
> 62 U F Lo
> 63 U F Lo
> 64 U F Lo
> 65 U F No
> 66 U F No
> 67 U F No
> 68 U F No
> 69 U F No
> 70 U F No
> 71 U F No
> 72 U F No
> 73 U M Hi
> 74 U M Hi
> 75 U M Hi
> 76 U M Hi
> 77 U M Hi
> 78 U M Hi
> 79 U M Hi
> 80 U M Hi
> 81 U M Lo
> 82 U M Lo
> 83 U M Lo
> 84 U M Lo
> 85 U M Lo
> 86 U M Lo
> 87 U M Lo
> 88 U M Lo
> 89 U M No
> 90 U M No
> 91 U M No
> 92 U M No
> 93 U M No
> 94 U M No
> 95 U M No
> 96 U M No
>
> Thanks,
> Gang
>
> ______________________________________________
> R-help at 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.
>
--
Jim Holtman
Cincinnati, OH
+1 513 646 9390
What is the problem you are trying to solve?