search for: trial1

Hi, I've got a problem building a contrast matrix for the Dunnet contrast in package multcopm. The following works fine: > summary(simtest(adiff ~ trial)) Simultaneous tests: Dunnett contrasts Data: adiff by trial Contrast matrix: trial1 trial2 trial3 trial4 trial5 trial2-trial1 -1 1 0 0 0 trial3-trial1 -1 0 1 0 0 trial4-trial1 -1 0 0 1 0 trial5-trial1 -1 0 0 0 1 Absolute Error Tolerance: 0.001 Coefficients: Estimate t...

...x2 <- runif(100)) myfit <- list(func="wrap.lm",args=alist(formula=null,data=train)) mystep <- list(func="wrap.step",args=alist(object=model,scope=full,trace=0)) setClass("trial",representation(n="numeric",fit="list",step="list")) trial1 <- new("trial",n=50,fit=myfit,step=mystep) trial2 <- new("trial",n=75,fit=myfit,step=mystep) result <- lapply(list(trial1,trial2),fitmodel,mydf) print(coef(result[[1]])) print(coef(result[[2]])) cat("result #1",NROW(result[[1]]$model),"\n") cat(&quo...

...yesterday I mailed this query however I could not see this on the mail list. Therefore, I am reposting it again. I was using package.skeleton() function to create the skeleton of my package in windows. Here is my attempt: rm(list = ls()) setwd("F:/R_PackageBuild") package.skeleton("trial1", namespace = TRUE, code_files = "F:/R_PackageBuild/trial.r") In the trial.r file, there are 2 objects, one is a function and another is data. Here they are: fn1 <- Vectorize(function(x,y,z) { ? ? ? ? ? ? ? ? ? ? ? ?return(x + y +z) ? ? ? ? ? ? ? ?}, SIMPLIFY = TRUE) Data <-...

Hi, I am wondering if anyone can suggest how to test the equality of 2 proportions. The caveat here is that the 2 proportions were calculated from the same number of samples using 2 different tests. So essentially we are comparing 2 accuracy rates from same, say 100, samples. I think this is like a paired test, but don't know if really we need to consider the "paired" nature of the

Dear R-users, I want to plot residuals vs fitted for multiple groups with ggplot2. I try this code, but unsuccessful. library("plyr") models<-dlply(dat1,"d",function(df) mod<-lm(y~x,data=df) ggplot(models,aes(.fitted,.resid), color=factor(d))+ geom_hline(yintercept=0,col="white",size=2)+ geom_point()+ geom_smooth(se=F) -- --- Catalin-Constantin ROIBU

...I am very very new to R and solicit your kind help I am trying to use my excel files in R. I used the Xlread/write package and able to load the a sample file into console. Then I tried to find the mean of a column vector for example. But I could not proceed Here is the problem rfile <- "Trial1.xls" > read.xls( rfile, colNames = TRUE, sheet = 1, type = "data.frame", from = 1 ) x y z 1 4 7 9 2 5 7 10 3 6 9 11 I request your help to find mean of column x With warm regards Milan Send instant messages to your online friends http://uk.messenger.yahoo.com

Hi again, I was using package.skeleton() function to create the skeleton of my package in windows. Here is my attempt: rm(list = ls()) setwd("F:/R_PackageBuild") package.skeleton("trial1", namespace = TRUE, code_files = "F:/R_PackageBuild/trial.r") In the trial.r file, there are 2 objects, one is a function and another is data. Here they are: fn1 <- Vectorize(function(x,y,z) { return(x + y +z) }, SIMPLIFY = TRUE) Data <- rnorm(20) However my problem is...

Hi, It would be better to give an example. If your dataset is like the one attached: con<-file("Trial1.txt") ?Lines1<- readLines(con) ?close(con) #If the data you wanted to extract is numeric and the header and footer are characters, dat1<-read.table(text=Lines1[-grep("[A-Za-z]",Lines1)],sep="\t",header=FALSE) dat1 #?? V1 V2 V3 V4 V5 #1? 38 43 39 44 45 #2? 39 44 36 49...

i have a function that returns a list containing a variety of variable types i am trying to run the function multiple times and return the output into a variable with a semi-consistent naming pattern i.e., for ten trials i want to return the list into variables trial1,trial2,...trial10 is there a generic way to get this to happen i have a similar process that does the same thing to an external file: paste("connection", trial, ".net", sep="") -> outfile write(header, file=outfile, ncolumns=2) write("*Edges",...

...ibrary(boot) > library(car) > data<-c(2,45,555,1,77,1,2,1,2,1) > group<-c(1,1,1,1,1,2,2,2,2,2) > levene.test(data,group) Levene's Test for Homogeneity of Variance Df F value Pr(>F) group 1 1.6929 0.2294 8 > stat<-function(a){levene.test(a,group)} > trial1<-boot(data,statistic,100) Error in statistic(data, original, ...) : unused argument(s) ( ...) Best regards, Kevin

Dear R family,i am trying to plot and save, simultaneously, about 1000. the name of each plot is contained in "names" file. when i run this loop, i get an error. "Error in plot.new() : Unable to open file 'C:/R/SAVEHERE/myplot_Tak.jpg' for writing". could you please correct the mistake in the loop? >names<-(names(sp)) >for(a in seq_along(names)){ >mypath

Hello I have data of body length and body weight of people of different skin colors. I tried to write a code to plot body length and body weight according to the skin colors. (Thanks for Petr's advice so far.) A loop is used but an error shows up in the following code. It says: unexpected '}' in "