Raw Message

Message-ID: <op.wiuf0am70v2h2n@hvl.fqdn.th-h.de>
Date: 2012-08-10T21:15:36Z
From: Dr. Holger van Lishaut
Subject: Function definition: where is the error in the "for" loop?

Dear all,

The following function code fails with errors (see below):

RegPlots <- function (data, ContrVar, RespVar){
       intNmbrRows<-length(RespVar);intNmbrCols<-lenght(ContrVar)
       par(mfrow=c(intNmbrRows,intNmbrCols))
       For(i in 1:intNmbrRows){
           For (j in 1:intNmbrCols){
               RegGraf(data,ContrVar[i],RespVar[j])
           }
       }
       par(mfrow=c(1,1))

#(RegGraf is another function that creates a plot and that runs flawlessly)

Output (translated to english):

> RegPlots <- function (data, ContrVar, RespVar){
+     intNmbrRows<-length(RespVar);intNmbrCols<-lenght(ContrVar)
+     par(mfrow=c(intNmbrRows,intNmbrCols))
+     For(i in 1:intNmbrRows){
Error: Unexpected 'in' in:
"    par(mfrow=c(intNmbrRows,intNmbrCols))
       For(i in"
>         For (j in 1:intNmbrCols){
Error: Unexpected 'in' in "        For (j in"
>             RegGraf(data,ContrVar[i],RespVar[j])
Error in RegGraf(data, ContrVar[i], RespVar[j]) :
     Object 'ContrVar' not found
>         }
Error: Unexpected '}' in "        }"
>     }
Error: Unexpected '}' in "    }"
>     par(mfrow=c(1,1))

Can someone please show me what is wrong?

Thanks in advance
Holger