From: david.whiting@ncl.ac.uk
Date: Wed 26 Mar 2003 - 02:47:15 EST
Message-id: <20030325154715.GP2735@192.168.57.2>
Try the following function:
student.exercise <- function (i.think.so = TRUE) {
if (i.think.so) {
cat("Hmmm...how many marks do I get for answering this?\n")
}
else
{
cat("Sorry, my mistake\n")
}
}
On Tue, Mar 25, 2003 at 12:50:11PM +0100, Cesar Ortega wrote:
> Hi there,
>
> Thank you in advance for your help.
>
> I need to do the following:
>
> 1. Take one file from excell and one from SPSS and with the data
> calculate:
>
> ESTIMATED N= SUM {1/PI(i)}; PI is the proportion
> ESTIMATED T(Y)= SUM {Yi/PI(i)}; i belongs to the sample.
>
> GINMi=[SUMi{(Yi/PI(i))*[1/PI(i)+SUMj(2/PI(j)]}]/[(2*ESTIMATED
> N*ESTIMATED T)]. i belongs to M (1000,etc.) times, WHERE j=i+1
>
> WE HAVE ONLY ONE VARIABLE Y, BUT WITH THE FIRST POSITION i AND THE
> NEXT j, IN THE ASCENDING ORDER.
>
> And last to get the errors as:
>
> E1= [SUMi {|GINP-GINMi |}]/[M] ; i belongs M
>
> E2= SQRT[SUMi {|GINP-GINMi |}]/[M]; i belongs TO M
>
> Thanks,
>
> Cesar Ortega
>
> ______________________________________________
> R-help@stat.math.ethz.ch mailing list
> https://www.stat.math.ethz.ch/mailman/listinfo/r-help
-- Dave Whiting Dar es Salaam, Tanzania______________________________________________ R-help@stat.math.ethz.ch mailing list https://www.stat.math.ethz.ch/mailman/listinfo/r-help
This archive was generated by hypermail 2.1.3 : Tue 01 Jul 2003 - 09:11:26 EST