Displaying 2 results from an estimated 2 matches for "trial_function".
2002 Jun 07
2
Hope fo help - functions, fits and for cycles
...;clinical" variables gender and age
response<-c(2.1,3.5,6.1,2.0,1.5)
dataset<-data.frame(ID,gender,age,G1,G2,G3,response)
GG<-c("G1","G2","G3")
# here I construct a function that makes a basic fit,
then updates with each variable from GG vector.
trial_function(mydata,formule,expl,distr="binomial")
{
n_length(expl)
fit.low_glm(formule, family = distr, data = mydata,
na.action = na.exclude)
for (j in 1:n)
{
fit_update(fit.low,~.+ mydata[,expl[j]])
print(mydata[,expl[j]])
}
}
result<-
trial(mydata=dat...
2002 Aug 30
4
(PR#1964) The attached function working fine with R 1.3.0 but giving problem with R 1.5.1 (PR#1964)
...eproduce them?
On Fri, 30 Aug 2002 stakb@nus.edu.sg wrote:
> Full_Name: Kaushik Bhattacharyya
> Version: 1.5.1
> OS: Solaris
> Submission from: (NULL) (137.132.3.10)
>
>
> Main R-function used:
>
> pp1
>
> function(X)
>
> {
>
> x_as.matrix(X)
>
> trial_function(a)
>
> {
>
> clusproj(x,a)
>
> }
>
> test.nlm_nlm(trial,rep(1,ncol(X)))
>
> theta_test.nlm$estimate
>
> theta_theta/sqrt(sum(theta^2))
>
> cluster.index_round(1/test.nlm$min,6)
>
> # print the results
>
> ###############
>
> cat(paste(&quo...